Kandungan halaman ini akan sentiasa dikembangkan...

1. Program kalkulator "Meningkatkan nombor kepada kuasa besar."
   

   Laksanakan pengiraan yang tepat menaikkan nombor satu digit (dari 2 kepada 9) kepada kuasa besar menggunakan aritmetik panjang.

2. Daripada forum daripada Jonny323. Perkataan VBA

   Hai semua. Saya sangat memerlukan makro, saya rasa ia tidak rumit: Cetak halaman pertama dalam 6 salinan dan halaman ke-2 dalam 2 salinan. Terima kasih terlebih dahulu.

3. ProgressBar pada borang. VBA Excel

   Kawalan yang menunjukkan kemajuan program (berapa banyak kerja yang telah dilakukan daripada 100%)...

4. Pengiraan statistik dalam teks yang dipilih. Perkataan VBA

   Buat makro dalam Word yang akan menentukan bilangan perkataan, koma dan noktah dalam teks percuma.
   Perkataan ialah kumpulan aksara yang dipisahkan oleh ruang (satu atau lebih) dan tidak mengandungi ruang dalam diri mereka. Tidak boleh ada noktah atau koma di dalam perkataan. Elips tidak dikira sebagai titik...

5. Pengiraan statistik dalam teks dokumen. Menggunakan UserForm untuk memasukkan data. Perkataan VBA

   Buat masuk Program perkataan- Dalam borang, pengguna memasukkan perkataan atau frasa, dan atur cara mengimbas keseluruhan teks dan memasukkan perkataan (frasa) yang dimasukkan pada penghujung dokumen, di sebelah mana semua nombor halaman di mana perkataan ini berlaku disenaraikan. Nombor halaman yang sepadan tidak dibenarkan. Iaitu, jika perkataan yang dinyatakan muncul tiga kali pada halaman 5, nombor 5 ditunjukkan sekali sahaja dalam output. Borang mesti mengandungi komponen berikut:
   - 1 TextBox untuk memasukkan perkataan (frasa);
   - 1 butang untuk keluar dari program;
   - 1 butang untuk memulakan carian dan memasukkan hasilnya ke dalam dokumen;
   - komponen jenis Label dengan teks penerangan di atas baris input;
   - Di samping itu, borang boleh mempunyai komponen jenis Bingkai;
   

6. Bekerja dengan ListBox (Excel). Memaut, menyusun, berbilang pilihan...

7. Program untuk menyelesaikan teka-teki Jepun Sudoku (Excel)

8. Makro pelaksanaan pertanyaan (iaitu menjana jadual baharu daripada pangkalan data Excel)

9. Isih Hoare (algoritma daripada wikipedia.org)

   Salah satu kaedah pengisihan terpantas.

10. Gabung Isih (menggunakan Hoare)

    Salah satu kaedah pengisihan terpantas dan paling optimum.

11. VBA Excel: Program untuk mengira bioritma manusia

12. Untuk blackarrow dari programmersforum.ru

13. Tentukan suku koordinat yang mana
    titik dengan koordinat A(a,b) yang diberi hits. VBA EXCEL.

14. Mewakili integer dalam perkataan VBA EXCEL.

15. LOGIK.

    Menyelesaikan persamaan kuadratik.

16. VBA EXCEL.

17. VBA EXCEL. Masalah segi tiga. Tatasusunan, gelung, logik.

    Berdasarkan dimensi yang diberikan bagi tiga sisi segitiga, tentukan jenisnya (segi empat tepat, tumpul, akut atau mustahil untuk dibina).

18. Jam penggera dalam Excel

19. VBA EXCEL.

20. VBA EXCEL.

21. VBA EXCEL.

    Makro yang, dalam julat yang dipilih, mewakili semua nombor negatif berwarna biru, nombor positif berwarna merah, dan nombor sifar berwarna putih (atau kuning).

22. VBA EXCEL. Cara menyembunyikan atau menunjukkan elemen lembaran kerja.

    Kadangkala, adalah perlu untuk menyembunyikan beberapa ciri daripada pengguna (biasanya peletakan data disembunyikan):
    - lawati helaian lain buku ini (lebih baik tidak mengetahui tentangnya);
    - tatal (mendatar dan menegak) helaian
    - baca dan tukar formula dalam sel lembaran kerja
    - sembunyikan lajur dan baris baris
    - sembunyikan pengepala (nama dan nombor) lajur dan baris

23. VBA EXCEL. Tambah dan alih keluar item menu.

    Tidak sukar untuk menambah (mengalih keluar) item anda sendiri Menu Excel. Ini semua diterangkan dalam bantuan.
    Tetapi lebih menarik untuk mempercayakan kerja ini kepada makro.
    Kemudian ia menjadi mungkin untuk membuat menu khas, individu apabila membuka dokumen tertentu, dan selepas menutupnya, kembalikan menu Excel ke keadaan asalnya. (Contoh kod ini hanya berfungsi dalam MS Excel 2003, dan pada tahun 2007 nama panel kawalan perlu ditukar)

24. Automata selular VBA EXCEL.

25. Kaedah Nisbah Emas VBA EXCEL.

26. Menggantikan nilai maksimum dan minimum sel dalam julat yang dipilih. VBA Excel

    Membangunkan atur cara atau borang pengguna untuk mencari dan menukar elemen dengan nilai maksimum dan minimum julat lembaran kerja yang dipilih

27. Fungsi rentetan yang mengembalikan kuasa dua nombor perdana daripada sifar kepada nombor tertentu. VBA Excel

    Karang masuk Fungsi Excel, yang mengambil nombor asli N dan mengembalikan kuasa dua semua nombor perdana daripada 0 kepada nombor asli N yang diberikan.

28. Borang pengguna (UserForm) untuk memasukkan data mengenai pinjaman bank perdagangan. VBA Excel

    Atur kemasukan maklumat ke dalam jadual yang mengandungi data mengenai pengeluaran pinjaman jangka panjang oleh bank perdagangan dengan data berikut: kod penerima pinjaman, nama penerima pinjaman, tarikh pinjaman, tempoh (3-4 terma). ) yang mana pinjaman itu dikeluarkan (dalam hari), faedah, jumlah pinjaman, tarikh pembayaran faedah ke atas pinjaman.

29. Borang pengguna (UserForm) untuk memasukkan data mengenai Pendaftaran Pelancong. VBA Excel

    di tempat ini juga...

Walaupun fungsi berkuasa yang disediakan antaramuka pengguna Excel, terdapat beberapa tugas yang hanya boleh dilakukan secara pemrograman. Buku "Menggunakan Macros dalam Excel" ialah pengenalan kepada pengaturcaraan Excel VBA, yang mengandungi contoh penyelesaian pelbagai masalah praktikal masalah yang timbul semasa bekerja dalam Excel.Bahan buku ini ditujukan untuk pengguna Excel, serta pengaturcara yang tidak biasa dengan model objek Excel. Bersama-sama dengan bahagian membangunkan makro untuk Excel 2002, ia menyediakan kursus pengenalan tentang menulis makro dan program dalam persekitaran Excel.

Buku: Kursus Pengaturcaraan Excel Intensif Sepanjang Hujung Minggu

Penerbit: Dialektik
halaman: 421
Format: DJVU
Saiz: 12.6 MB
Kualiti: Biasalah
Bahasa: bahasa Rusia
Genre: pengaturcaraan
Tahun penerbitan: 2004
ISBN: 5-8459-0687-3

Kemungkinan Microsoft Excel tidak terhad kepada bekerja hanya dengan jadual data. Di sebalik alat pemprosesan hamparan terdapat bahasa pengaturcaraan yang berkuasa - VBA (Visual Basic for Applications). Walau bagaimanapun, hampir mana-mana pengguna mempunyai peluang untuk belajar cara menulis program dalam VBA untuk menyelesaikan masalah yang paling pelbagai dalam Excel - daripada pelaksanaan pengiraan mekanikal kepada mencipta sistem untuk memasukkan data dengan bentuk skrinnya sendiri dan dengan kemungkinan menyemak semula ketepatan daripada nilai yang dimasukkan.

Buku: Pengaturcaraan dalam VBA 2002

Kualiti: Biasalah
Bahasa: bahasa Rusia
Genre: pengaturcaraan

Buku ini mengandungi kursus pengaturcaraan dalam Visual Basic for Applications (VBA), yang merupakan bahasa asas dalam aplikasi Microsoft Office (Word, Excel, Access, PowerPoint, FrontPage, Visio, dll.). Buku ini ditujukan untuk pemula dalam pengaturcaraan Persekitaran Windows menggunakan objek Word, Excel, PowerPoint.Sebahagian daripada buku ini dikhaskan untuk pembangunan aplikasi Office yang menggunakan pangkalan data yang disimpan dalam kedua-duanya fail berasingan, dan pada pelayan jauh.Bahan buku ini mencukupi untuk mempelajari asas bahasa Visual Basic dan mencipta makro ringkas yang membantu mengautomasikan kerja rutin, berulang dengan dokumen, hamparan, rajah, pembentangan, dll., serta untuk membangunkan aplikasi pemprosesan pangkalan data yang agak kompleks menggunakan kotak dialog, menyediakan pengguna dengan alatan antara muka yang paling moden.Kebanyakan contoh dalam buku ini ditumpukan kepada isu semasa aktiviti komersil, jadi buku ini akan sangat berguna kepada pengurus di pelbagai peringkat, yang mana Microsoft Office dan bahasa pengaturcaraan VBA terbina dalam nampaknya dimaksudkan.
Lampiran di hujung buku boleh digunakan buku rujukan yang selesa apabila bekerja dengan kedua-dua VBA dan VB biasa.

Banyak buku telah ditulis pada Excel. Tetapi apa yang menjadikan buku ini istimewa ialah ia meletakkan pembangunan aplikasi hamparan ke dalam konteks yang lebih luas. VBA hanyalah satu komponen persekitaran pembangunan aplikasi tersuai, walaupun yang penting. Buku ini akan membantu anda memahami selok-belok pembangunan aplikasi menggunakan VBA. Ia menerangkan banyak ciri bahasa VBA, keupayaannya dan persekitaran untuk digunakan Pertama, anda akan ditawarkan gambaran keseluruhan keupayaan program, kemudian anda akan meneruskan untuk mentakrifkan konsep pengaturcaraan VBA, dan kemudian berkenalan dengan. bahasa itu sendiri. Jika anda seorang pengaturcara VBA yang baru, maka dalam penerbitan ini anda akan menemui semua maklumat yang diperlukan yang anda perlukan untuk kerja selanjutnya. Jika anda sudah mempunyai pengalaman yang boleh dicemburui bekerja dengan VBA, maka buku ini akan memperkaya dan meningkatkan pengetahuan anda, menambah teknik baharu dan contoh kehidupan sebenar.

Versi PDF disunting dan disediakan oleh peserta.

Microsoft Excel adalah lebih daripada sekadar hamparan. Dengan pengenalan Editor Visual Basic dalam Excel 97, diikuti dengan kestabilan Excel 2000 yang dipertingkatkan dengan ketara, Excel menjadi platform pembangunan yang disegani dengan sendirinya. Aplikasi Excel kini ditemui bersama-sama yang berasaskan C++, Java dan platform pembangunan .NET, sebagai sebahagian daripada suite teras aplikasi korporat yang kritikal misi.
Malangnya, Excel masih terlalu kerap dianggap sebagai platform penggemar, yang mana orang ramai hanya membangunkan aplikasi Excel pada masa lapang mereka untuk mengautomasikan tugasan kecil. Pandangan ringkas pada banyak buku Excel VBA nampaknya mengesahkan pendapat ini. Buku ini menumpukan pada asas mengautomasikan tugas Excel menggunakan VBA. Buku ini adalah yang pertama seumpamanya dalam memberikan penjelasan terperinci tentang cara menggunakan Excel sebagai platform untuk membangunkan aplikasi berkualiti profesional.
Walaupun kebanyakan platform pembangunan utama lain nampaknya mempunyai teks standard de facto yang menerangkan amalan terbaik yang dipersetujui biasa untuk arkitek, mereka bentuk dan membangunkan aplikasi menggunakan platform itu, sehingga kini Excel tidak melakukannya. Buku ini cuba mengisi jurang itu. Penulis adalah pembangun Excel profesional yang mencipta aplikasi berasaskan Excel untuk pelanggan daripada individu hingga syarikat multinasional terbesar. Buku ini menerangkan pendekatan yang kami gunakan semasa mereka bentuk, membangun, mengedar dan menyokong aplikasi yang kami tulis untuk pelanggan kami.

Seterusnya contoh mudah Makro Excel menggambarkan beberapa ciri dan teknik yang diterangkan dalam tutorial Excel VBA.

Makro Excel: Contoh 1

Pada mulanya prosedur ini Sub telah diberikan sebagai contoh menggunakan komen dalam kod VBA. Walau bagaimanapun, di sini anda juga boleh melihat cara pembolehubah diisytiharkan, cara rujukan berfungsi sel Excel, menggunakan gelung Untuk, pengendali bersyarat Jika dan memaparkan tetingkap mesej.

"Prosedur Sub mencari sel yang mengandungi rentetan yang ditentukan "dalam julat sel A1:A100 helaian aktif Sub Find_String(sFindText As String) Dim i As Integer "Integer of type Integer, used in a For loop Dim iRowNumber As Integer "Integer of taip Integer untuk menyimpan hasil iRowNumber = 0 "Melihat melalui sel A1:A100 satu demi satu sehingga rentetan ditemui sFindText For i = 1 Hingga 100 If Cells(i, 1).Value = sFindText Then "If a match with the rentetan yang diberikan ditemui "simpan nombor baris semasa dan keluar Untuk gelung iRowNumber = i Exit For End If Next i "Kami memaklumkan pengguna dalam tetingkap pop timbul sama ada baris yang diperlukan telah ditemui "Jika rentetan yang diberikan dijumpai, nyatakan dalam sel mana padanan ditemui Jika iRowNumber = 0 Kemudian MsgBox "Baris " & sFindText & " tidak ditemui" Lain MsgBox "Barisan " & sFindText & " ditemui dalam sel A" & iRowNumber Tamat Jika End Sub

Makro Excel: Contoh 2

Prosedur seterusnya Sub– contoh penggunaan gelung Lakukan Sementara. Anda juga boleh melihat cara pembolehubah diisytiharkan, berfungsi dengan rujukan sel Excel dan menggunakan pernyataan bersyarat. Jika.

"Prosedur Sub mengeluarkan nombor Fibonacci tidak melebihi 1000 Sub Fibonacci() Dim i As Integer "Pembilang untuk menunjukkan kedudukan elemen dalam jujukan Dim iFib As Integer "Menyimpan nilai semasa jujukan Dim iFib_Next As Integer "Menyimpan nilai seterusnya bagi jujukan Dim iStep As Integer "Menyimpan saiz kenaikan seterusnya "Memulakan pembolehubah i dan iFib_Next i = 1 iFib_Next = 0 "Gelung Do While akan dilaksanakan sehingga nilai "nombor Fibonacci semasa melebihi 1000 Do While iFib_Next< 1000 If i = 1 Then "Kes khas untuk elemen pertama jujukan iStep = 1 iFib = 0 Lain "Simpan saiz kenaikan seterusnya sebelum menulis ganti "nilai semasa jujukan iStep = iFib iFib = iFib_Next End Jika "Output nombor Fibonacci semasa dalam lajur A bagi lembaran kerja aktif "dalam baris dengan indeks i Sel(i, 1). Nilai = iFib "Kira nombor Fibonacci seterusnya dan tingkatkan indeks kedudukan elemen sebanyak 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub

Makro Excel: Contoh 3

Prosedur ini Sub mengimbas sel-sel lajur A helaian aktif sehingga ia menemui sel kosong. Nilai-nilai ditulis pada tatasusunan. Makro Excel ringkas ini menunjukkan kerja dengan tatasusunan dinamik, serta menggunakan gelung Lakukan Sehingga. Dalam contoh ini, kami tidak akan melakukan sebarang tindakan dengan tatasusunan, walaupun dalam amalan pengaturcaraan sebenar, selepas data ditulis pada tatasusunan, tindakan sedemikian biasanya dilakukan pada mereka.

"Prosedur Sub menyimpan nilai sel lajur A helaian aktif dalam tatasusunan Sub GetCellValues() Dim iRow As Integer "Menyimpan nombor baris semasa Dim dCellValues() As Double "Suatu tatasusunan untuk menyimpan nilai sel iRow = 1 ReDim dCellValues(1 Hingga 10) "Lakukan Gelung Sehingga berulang secara berurutan melalui sel lajur A helaian aktif "dan mengekstrak nilainya ke dalam tatasusunan sehingga sel kosong ditemui Lakukan Sehingga Kosong(Sel( iRow, 1)) "Semak sama ada tatasusunan dCellValues ​​mempunyai saiz yang mencukupi "Jika tidak, tambahkan tatasusunan saiz sebanyak 10 menggunakan ReDim If UBound(dCellValues)< iRow Then ReDim Preserve dCellValues(1 To iRow + 9) End If "Сохраняем значение текущей ячейки в массиве dCellValues dCellValues(iRow) = Cells(iRow, 1).Value iRow = iRow + 1 Loop End Sub

Makro Excel: Contoh 4

Dalam contoh ini, prosedur Sub membaca nilai daripada lajur A lembaran kerja Lembaran2 dan melakukannya dengan mereka operasi aritmetik. Hasilnya dimasukkan ke dalam sel lajur A pada lembaran kerja aktif. Makro ini menunjukkan penggunaannya Objek Excel. Khususnya, rayuan dijalankan mengikut prosedur Sub kepada objek Lajur, dan menunjukkan cara objek ini diakses melalui objek Lembaran kerja. Ia juga ditunjukkan bahawa apabila mengakses sel atau julat sel pada helaian aktif, ia tidak perlu untuk menentukan nama helaian ini semasa menulis pautan.

"Prosedur Sub, menggunakan gelung, membaca nilai dalam lajur A lembaran kerja Helaian2, "melaksanakan operasi aritmetik dengan setiap nilai dan menulis hasilnya ke "lajur A lembaran kerja aktif (Helaian1) Sub Transfer_ColA() Dim i Sebagai Integer Malapkan Kol Sebagai Julat Malap dVal Sebagai Ganda "Serahkan kepada pembolehubah Kol lajur A lembaran kerja Helaian 2 Set Kol = Helaian("Helaian2"). Lajur("A") i = 1 "Menggunakan gelung, kita membaca nilai ​​daripada sel-sel lajur Kol sehingga "sehingga sel kosong ditemui Lakukan Sehingga IsEmpty(Col.Cells(i)) "Lakukan operasi aritmetik pada nilai sel semasa dVal = Col.Cells(i).Value * 3 - 1 "Arahan berikut menulis hasil ke lajur A lembaran kerja aktif "Nyatakan nama helaian dalam pautan tidak diperlukan kerana ini adalah daun aktif Sel(i, 1) = dVal i = i + 1 Gelung Akhir Sub.

Makro Excel: Contoh 5

Makro ini menunjukkan contoh kod VBA yang memantau acara Excel. Peristiwa yang dilampirkan makro berlaku setiap kali sel atau julat sel dipilih pada lembaran kerja. Dalam kes kami, apabila memilih sel B1, tetingkap mesej muncul pada skrin.

"Kod ini menunjukkan kotak mesej jika sel B1 dipilih pada lembaran kerja semasa. Private Sub Worksheet_SelectionChange(ByVal Target As Range) "Semak sama ada sel B1 dipilih Jika Target.Count = 1 Dan Target.Row = 1 Dan Target.Column = 2 Kemudian "Jika sel B1 dipilih, laksanakan tindakan yang diperlukan MsgBox "Anda telah memilih sel B1" Tamat Jika End Sub

Makro Excel: Contoh 6

Prosedur ini menggambarkan penggunaan operator Mengenai Ralat Dan Sambung semula untuk pengendalian ralat. Kod ini juga menunjukkan contoh membuka dan membaca data daripada fail.

"Prosedur Sub memberikan argumen Val1 dan Val2 nilai sel A1 dan B1" daripada buku kerja Data.xlsx yang terletak dalam folder C:\Documents and Settings Sub Set_Values(Val1 As Double, Val2 As Double) Dim DataWorkbook As Buku Kerja Mengenai Ralat GoTo ErrorHandling " Membuka buku kerja dengan data Set DataWorkbook = Workbooks.Open("C:\Documents and Settings\Data") "Tetapkan pembolehubah nilai Val1 dan Val2 dari buku kerja yang diberikan Val1 = Sheets("Sheet1").Cells(1, 1) Val2 = Sheets( "Sheet1").Cells(1, 2) DataWorkbook.Close Exit Sub ErrorHandling: "Jika fail tidak dijumpai, pengguna akan digesa untuk meletakkan fail yang dicari "dalam folder yang dikehendaki dan kemudian terus melaksanakan MsgBox makro "Fail data.xlsx tidak dijumpai! " & _ "Sila tambahkan buku kerja pada folder C:\Documents and Settings dan klik OK" Resume End Sub

MZTools - Utiliti yang sangat berguna untuk mereka yang memprogram dalam VBA. Benar-benar menjimatkan masa semasa menulis kod. Ia adalah penting bahawa utiliti benar-benar percuma. Berikut adalah beberapa cirinya:

• Memasukkan pengendali ralat secara automatik ke dalam modul
• Memasukkan ulasan dalam pengepala prosedur, dengan sisipan automatik masa, modul dan nama prosedur, keupayaan untuk menunjukkan pengarang prosedur
• Penomboran automatik baris kod
• Mengalih keluar penomboran daripada baris kod
• Cipta templat kod yang kerap digunakan
• Papan keratan sendiri untuk 9 operasi dengan kemungkinan kod dan sisipan seterusnya mana-mana daripada 9 kod yang disalin
• dan banyak lagi perkara yang bermanfaat

Program ini diedarkan secara percuma.

(37.3 KiB, 3,708 muat turun)

Alat VBE - Berapa ramai daripada anda yang telah menulis kod untuk borang, dan kemudian teringat bahawa sesetengah elemen tidak dinamakan seperti yang anda mahukan atau hanya mahu dinamakan semula kerana perubahan dalam kod? Dan, sudah tentu, kami menghadapi masalah bahawa apabila menamakan semula elemen kami perlu pergi ke kod dan menggantikan semua rujukan di sana dengan unsur ini kepada nama baru. Jadi, dengan menggunakan program ini anda boleh menamakan semula nama mana-mana elemen bentuk (TextBox, Label, dll.) dan Kawalan ActiveX pada helaian Excel, dan program itu sendiri akan menggantikan semua pautan dalam kod daripada nama lama kepada yang baharu. Sangat selesa.

Program ini diedarkan secara percuma.

Beberapa orang tahu bahawa versi pertama yang popular produk Microsoft Excel muncul pada tahun 1985. Sejak itu, ia telah melalui beberapa pengubahsuaian dan mendapat permintaan di kalangan berjuta-juta pengguna di seluruh dunia. Pada masa yang sama, ramai yang bekerja hanya dengan sebahagian kecil daripada keupayaan pemproses hamparan ini dan tidak menyedari bagaimana keupayaan untuk memprogram dalam Excel boleh menjadikan hidup mereka lebih mudah.

Apa itu VBA

Pengaturcaraan dalam Excel dijalankan menggunakan bahasa pengaturcaraan Visual Basic for Application, yang pada asalnya dibina ke dalam pemproses hamparan paling terkenal daripada Microsoft.

Pakar mengaitkan kemudahan perbandingan pembelajarannya dengan kelebihannya. Seperti yang ditunjukkan oleh amalan, walaupun pengguna yang tidak mempunyai kemahiran pengaturcaraan profesional boleh menguasai asas VBA. Ciri khas VBA termasuk pelaksanaan skrip dalam persekitaran aplikasi pejabat.

• kembali ke baris "Makros";
• pilih "Makro 1" daripada senarai;
• Klik "Jalankan" (tindakan yang sama dilancarkan dengan memulakan kombinasi kekunci "Ctrl+hh").

Akibatnya, tindakan yang telah dijalankan semasa proses rakaman makro berlaku.

Masuk akal untuk melihat rupa kod tersebut. Untuk melakukan ini, kembali ke baris "Makros" dan klik "Tukar" atau "Log Masuk". Akibatnya, mereka berakhir dalam persekitaran VBA. Sebenarnya, kod makro itu sendiri terletak di antara baris Sub Macro1() dan End Sub.

Jika penyalinan dilakukan, contohnya, dari sel A1 ke sel C1, maka salah satu baris kod akan kelihatan seperti Julat("C1").Pilih. Jika diterjemahkan, ia kelihatan seperti "Julat("C1"). Pilih", dengan kata lain, ia bergerak ke sel C1 dalam VBA Excel.

Bahagian aktif kod dilengkapkan dengan arahan ActiveSheet.Paste. Ini bermakna menulis kandungan sel yang dipilih (dalam kes ini A1) ke dalam sel C1 yang dipilih.

Contoh 2

Gelung VBA membantu anda mencipta pelbagai makro dalam Excel.

Gelung VBA membantu anda mencipta pelbagai makro. Mari kita andaikan bahawa terdapat fungsi y=x + x2 + 3x3 - cos(x). Anda perlu mencipta makro untuk mendapatkan grafnya. Ini hanya boleh dilakukan menggunakan gelung VBA.

Nilai awal dan akhir hujah fungsi ialah x1=0 dan x2=10. Di samping itu, anda mesti memasukkan pemalar - nilai untuk langkah perubahan argumen dan nilai awal untuk pembilang.

Semua contoh Makro VBA Fail Excel dibuat menggunakan prosedur yang sama seperti yang dibentangkan di atas. Dalam kes khusus ini, kod tersebut kelihatan seperti:

Lakukan Semasa x1< x2 (цикл будeт выполняться пока вeрно выражeниe x1 < x2)

y=x1 + x1^2 + 3*x1^3 - Cos(x1)

Sel(i, 1).Nilai = x1 (nilai x1 ditulis pada sel dengan koordinat (i,1))

Sel(i, 2).Nilai = y (nilai y ditulis pada sel dengan koordinat (i,2))

i = i + 1 (kaunter berkuat kuasa);

x1 = x1 + shag (hujah berubah mengikut nilai langkah);

Hasil daripada pelancaran makro ini dalam Excel kita mendapat dua lajur, yang pertama mengandungi nilai untuk x, dan yang kedua untuk y.

Kemudian graf dibina daripadanya dengan cara standard untuk Excel.

Contoh 3

Untuk melaksanakan gelung dalam VBA Excel 2010, seperti dalam versi lain, bersama-sama dengan pembinaan Do While yang telah diberikan, For digunakan.

Mari lihat program yang akan membuat lajur. Dalam setiap selnya petak nombor baris yang sepadan akan ditulis. Menggunakan binaan Untuk membolehkan anda menulisnya dengan sangat ringkas, tanpa menggunakan pembilang.

Mula-mula anda perlu membuat makro seperti yang diterangkan di atas. Seterusnya kita menulis kod itu sendiri. Kami percaya bahawa kami berminat dengan nilai untuk 10 sel. Kodnya kelihatan seperti ini.

Untuk i = 1 hingga 10 Seterusnya

Perintah itu diterjemahkan ke dalam bahasa "manusia" sebagai "Ulang dari 1 hingga 10 dalam langkah satu."

Jika tugasnya adalah untuk mendapatkan lajur dengan petak, sebagai contoh, semua nombor ganjil dari julat 1 hingga 11, maka kami menulis:

Untuk i = 1 hingga 10 langkah 1 Seterusnya.

Di sini langkah adalah langkah. Dalam kes ini ia sama dengan dua. Secara lalai, ketiadaan perkataan ini dalam gelung bermakna langkah itu adalah tunggal.

Keputusan yang diperoleh mesti disimpan dalam sel bernombor (i,1). Kemudian, setiap kali gelung bermula dengan i bertambah mengikut saiz langkah, nombor baris akan meningkat secara automatik. Oleh itu, kod akan dioptimumkan.

Secara umum, kod akan kelihatan seperti:

Untuk i = 1 Hingga 10 Langkah 1 (anda boleh menulis Untuk i = 1 Hingga 10)

Sel(i, 1).Nilai = i ^ 2 (iaitu nilai segi empat sama i ditulis ke sel (i,1))

Seterusnya (dalam erti kata tertentu, ia memainkan peranan sebagai kaunter dan bermakna satu lagi permulaan kitaran)

Jika semuanya dilakukan dengan betul, termasuk merakam dan menjalankan makro (lihat arahan di atas), maka apabila anda memanggilnya setiap kali anda akan mendapat lajur saiz yang ditentukan (dalam kes ini, terdiri daripada 10 sel).

Contoh 4

Dalam kehidupan seharian, selalunya keperluan timbul untuk membuat satu atau lain keputusan bergantung pada beberapa keadaan. Anda tidak boleh melakukannya tanpa mereka dalam VBA Excel. Contoh-contoh program di mana kursus pelaksanaan selanjutnya algoritma dipilih dan tidak ditetapkan pada mulanya, paling kerap menggunakan pembinaan Jika ...Kemudian (untuk kes yang kompleks) Jika ...Kemudian ...TAMAT Jika.

Mari kita pertimbangkan kes tertentu. Katakan anda perlu mencipta makro untuk Excel supaya perkara berikut ditulis dalam sel dengan koordinat (1,1):

1, jika hujah adalah positif;

0 jika hujah adalah sifar;

1 jika hujahnya negatif.

Penciptaan makro sedemikian untuk Excel bermula dengan cara yang standard, melalui penggunaan "panas" Kekunci Alt dan F11. Seterusnya kod berikut ditulis:

x= Cells(1, 1).Value (arahan ini memberikan x nilai kandungan sel dengan koordinat (1, 1))

Jika x>0 Maka Sel(1, 1).Nilai = 1

Jika x=0 Maka Sel(1, 1).Nilai = 0

Jika x<0 Then Cells(1, 1).Value = -1

Yang tinggal hanyalah menjalankan makro dan mendapatkan nilai yang diperlukan untuk hujah dalam Excel.

Fungsi VBA

Seperti yang mungkin anda perhatikan, pengaturcaraan dalam pemproses jadual Microsoft yang paling terkenal tidaklah begitu sukar. Terutama jika anda belajar cara menggunakan fungsi VBA. Secara keseluruhan, bahasa pengaturcaraan ini, yang dicipta khusus untuk menulis aplikasi dalam Excel dan Word, mempunyai kira-kira 160 fungsi. Mereka boleh dibahagikan kepada beberapa kumpulan besar. ini:

• Fungsi matematik. Dengan mengaplikasikannya pada hujah, mereka memperoleh nilai kosinus, logaritma asli, bahagian integer, dsb.
• Fungsi kewangan. Terima kasih kepada ketersediaan mereka dan menggunakan pengaturcaraan dalam Excel, anda boleh mendapatkan alat yang berkesan untuk pengiraan perakaunan dan kewangan.
• Fungsi pemprosesan tatasusunan. Ini termasuk Array, IsArray; LBound; UBound.
• Fungsi Excel VBA untuk rentetan. Ini adalah kumpulan yang agak besar. Ia termasuk, sebagai contoh, fungsi Space untuk mencipta rentetan dengan bilangan ruang yang sama dengan hujah integer, atau Asc untuk menukar aksara kepada kod ANSI. Kesemuanya digunakan secara meluas dan membolehkan anda bekerja dengan baris dalam Excel, mencipta aplikasi yang sangat memudahkan kerja dengan jadual ini.
• Fungsi penukaran jenis data. Contohnya, CVar mengembalikan nilai argumen Expression dengan menukarkannya kepada jenis data Varian.
• Fungsi untuk bekerja dengan tarikh. Mereka mengembangkan keupayaan standard Excel dengan ketara. Oleh itu, fungsi WeekdayName mengembalikan nama (penuh atau sebahagian) hari dalam minggu dengan nombornya. Lebih berguna ialah Pemasa. Ia memberikan bilangan saat yang telah berlalu dari tengah malam ke titik tertentu dalam hari itu.
• Berfungsi untuk menukar argumen berangka kepada sistem nombor yang berbeza. Sebagai contoh, Okt memaparkan nombor dalam perwakilan perlapanan.
• Fungsi pemformatan. Yang paling penting ialah Format. Ia mengembalikan nilai Varian dengan ungkapan yang diformatkan mengikut arahan yang dinyatakan dalam pengisytiharan format.
• dan lain-lain.

Mempelajari sifat fungsi ini dan aplikasinya akan meluaskan skop Excel dengan ketara.

Contoh 5

Mari kita cuba meneruskan untuk menyelesaikan masalah yang lebih kompleks. Sebagai contoh:

Dokumen kertas yang melaporkan tahap kos sebenar perusahaan diberikan. Diperlukan:

• membangunkan bahagian templatnya menggunakan hamparan Excel;
• buat program VBA yang akan meminta data awal untuk mengisinya, menjalankan pengiraan yang diperlukan dan mengisi sel templat yang sepadan dengannya.

Mari kita pertimbangkan salah satu pilihan penyelesaian.

Mencipta templat

Semua tindakan dijalankan pada helaian standard dalam Excel. Sel percuma dikhaskan untuk memasukkan data mengikut bulan, tahun, nama syarikat pengguna, jumlah kos, tahap mereka, perolehan. Memandangkan bilangan syarikat (pertubuhan) yang laporan sedang disusun tidak tetap, sel untuk memasukkan nilai berdasarkan keputusan dan nama pakar tidak dikhaskan terlebih dahulu. Lembaran kerja diberi nama baharu. Sebagai contoh, "laporan".

Pembolehubah

Untuk menulis program untuk mengisi templat secara automatik, anda perlu memilih notasi. Mereka akan digunakan untuk pembolehubah:

• NN - nombor baris jadual semasa;
• TP dan TF - perolehan dagangan yang dirancang dan sebenar;
• SF dan SP - jumlah kos sebenar dan terancang;
• IP dan IF - tahap kos yang dirancang dan sebenar.

Marilah kita menggunakan huruf yang sama, tetapi dengan "awalan" Itog, untuk menandakan pengumpulan jumlah untuk lajur ini. Contohnya, ItogTP merujuk kepada lajur jadual bertajuk "perolehan terancang".

Menyelesaikan masalah menggunakan pengaturcaraan VBA

Menggunakan tatatanda yang diperkenalkan, kami memperoleh formula untuk sisihan. Jika anda perlu mengira dalam %, kami mempunyai (F - P) / P * 100, dan secara keseluruhan - (F - P).

Cara terbaik untuk segera memasukkan hasil pengiraan ini adalah ke dalam sel yang sepadan dalam jadual Excel.

Untuk jumlah sebenar dan ramalan, ia diperoleh menggunakan formula ItogP=ItogP + P dan ItogF=ItogF+ F.

Untuk sisihan gunakan = (ItogF - ItogP) / ItogP * 100, jika pengiraan dijalankan sebagai peratusan, dan dalam kes jumlah nilai - (ItogF - ItogP).

Keputusan sekali lagi ditulis dengan serta-merta ke sel yang sepadan, jadi tidak perlu menetapkannya kepada pembolehubah.

Sebelum menjalankan program yang dibuat, anda perlu menyimpan buku kerja, contohnya, di bawah nama "Report1.xls".

Butang "Buat jadual pelaporan" hanya perlu ditekan sekali selepas memasukkan maklumat pengepala. Anda harus tahu peraturan lain. Khususnya, butang "Tambah baris" mesti ditekan setiap kali selepas memasukkan nilai untuk setiap jenis aktiviti ke dalam jadual. Selepas memasukkan semua data, anda perlu mengklik butang "Selesai" dan kemudian beralih ke tetingkap Excel.

Kini anda tahu cara menyelesaikan masalah Excel menggunakan makro. Keupayaan untuk menggunakan VBA Excel (lihat contoh program di atas) mungkin juga diperlukan untuk berfungsi dalam editor teks paling popular pada masa ini, Word. Khususnya, anda boleh, dengan menulis, seperti yang ditunjukkan pada awal artikel, atau dengan menulis kod, mencipta butang menu, terima kasih kepada banyak operasi pada teks boleh dijalankan dengan menekan kekunci tugas atau melalui "Lihat" tab dan ikon “Makros”.