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:

  1. 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
  2. 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'.

  1. 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
  2. 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

Perlu bantuan lainnya?

Kembangkan keterampilan Anda

JELAJAHI PELATIHAN >

Dapatkan fitur baru terlebih dahulu

GABUNG MICROSOFT INSIDER >

Apakah informasi ini bermanfaat?

Seberapa puaskah Anda dengan kualitas bahasanya?
Apa yang memengaruhi pengalaman Anda?

Terima kasih atas umpan balik Anda!

×