Ringkasan
Artikel ini berisi Microsoft Visual Basic untuk aplikasi makro (Sub prosedur) yang loop melalui semua lembar kerja di buku kerja yang aktif. Makro ini juga menampilkan nama setiap lembar kerja.
Informasi Selengkapnya
Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Untuk mencoba contoh makro, ikuti langkah-langkah berikut:
-
Ketik kode makro berikut ke lembar modul baru.
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
-
Untuk menjalankan makro, posisi titik penyisipan di baris yang membaca "Sub WorksheetLoop()", dan tekan F5.
Makro akan loop melalui buku kerja dan menampilkan kotak pesan dengan nama lembar kerja yang berbeda setiap kali menjalankan melalui loop. Perhatikan bahwa makro ini hanya akan menampilkan nama lembar kerja; tidak akan menampilkan nama jenis lembar di buku kerja. Anda juga dapat loop melalui semua lembar kerja di buku kerja yang menggunakan loop 'Untuk masing-masing'.
-
Masukkan kode makro berikut ke lembar modul baru.
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
-
Untuk menjalankan makro, posisi titik penyisipan di baris yang membaca "Sub WorksheetLoop2()", dan tekan F5.
Makro ini bekerja identik WorksheetLoop makro, kecuali bahwa menggunakan berbagai jenis loop untuk memproses semua lembar kerja di buku kerja yang aktif.
Referensi
Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, baca artikel berikut di Pangkalan Pengetahuan Microsoft:
163435 VBA: pemrograman sumber untuk Visual Basic untuk aplikasi
226118 OFF2000: pemrograman sumber untuk Visual Basic untuk aplikasi
