Özet
Bu makalede, Microsoft Visual Basic for Applications makrosu (alt yordam) etkin çalışma kitabındaki tüm çalışma sayfaları aracılığıyla döngüler içerir. Bu makro, ayrıca her çalışma sayfasının adını görüntüler.
Ek Bilgi
Microsoft zımni veya açık garanti olmadan programlama örneklerini yalnızca gösterim amacıyla sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilirler, ancak ilave işlevsellik sağlamak için bu örnekleri değiştirmezler veya belirli gereksinimlerinizi karşılayacak şekilde yordamları yapılandırmazlar. Örnek makro denemek için aşağıdaki adımları izleyin:
-
Yeni bir Modül sayfasına aşağıdaki makro kodunu yazın.
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
-
Makroyu çalıştırmak için "Alt WorksheetLoop()" okur bir satırda ekleme noktasını yerleştirin ve F5 tuşuna basın.
Makro, çalışma kitabını döngü, döngü her çalıştığında farklı çalışma sayfası adı içeren bir ileti kutusu görüntüler. Not Bu makroyu yalnızca çalışma sayfası adları görüntülenir; çalışma kitabındaki sayfaları diğer tür adlarını görüntülemez. Siz de çalışma kitabındaki tüm 'For Each' döngü kullanarak bir döngüye girer.
-
Yeni bir Modül sayfasına aşağıdaki makro kodunu girin.
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
-
Makroyu çalıştırmak için "Alt WorksheetLoop2()" okur bir satırda ekleme noktasını yerleştirin ve F5 tuşuna basın.
Bu makro aynı WorksheetLoop makro etkin çalışma kitabındaki çalışma sayfalarının tüm işlemek için farklı türde bir döngü kullanır dışında çalışır.
Başvurular
Uygulamalar için Visual Basic Yardımı alma hakkında ek bilgi için lütfen Microsoft Bilgi Bankası'ndaki aşağıdaki makaleye bakın:
163435 VBA: Visual Basic for Applications programlama kaynakları
226118 OFF2000: Visual Basic for Applications programlama kaynakları
