Bir çalışma sayfası alt kümesini nasıl çözebilirim?

Question

Bir çalışma kitabındaki tüm çalışma sayfalarını nasıl değiştireceğimi ve bir 'uç bayrak' çalışma sayfasına eriştikten sonra nasıl çıkacağımı biliyorum:

For Each ThisWorkSheet In Worksheets 
    If ThisWorkSheet.Name = "FlagEnd" Then Exit For 
    MsgBox "This worksheet name is: " & ThisWorkSheet.Name 
Next 

Ancak, bir başlangıç ​​bayrağına başlamak için döngü alamıyorum 'çalışma sayfası (veya başlangıç ​​bayrağı çalışma sayfasından hemen sonra çalışma sayfasında daha iyi. Örneğin, işaretlenmiş başlangıç ​​/ bitiş çalışma sayfaları, diğer çalışma sayfalarının ortasındadır, yani başlangıç ​​veya bitiş geçişi uygulanabilir değildir.

"FlagStart" sayfasından önce yüzlerce çalışma sayfası olabilir, bu yüzden gerçekten sağdaki sayfadan başlamalıyım.

Deneme:

Set ThisWorkSheet = Sheets("FlagNew") 

ve

For Each Sheets("FlagNew") In Worksheets 

Fikirler?

Çözüm: Mathias çok yakındı, ama dendarii özel bitiş endeksi ile o kadar küçük bir adımdı ki, son çözümümü kendi başıma buldum, ama kredi vermek istedim. İşte benim son çözümüm:

Private Sub CommandButtonLoopThruFlaggedSheets_Click() 
    ' determine current bounds 
    Dim StartIndex, EndIndex, LoopIndex As Integer 
    StartIndex = Sheets("FlagNew").Index + 1 
    EndIndex = Sheets("FlagEnd").Index - 1 

    For LoopIndex = StartIndex To EndIndex 
     MsgBox "this worksheet is: " & Sheets(LoopIndex).Name 
     ' code here 
    Next LoopIndex 
End Sub 

Answer 1

Bu özellikle değiştirilebilen bir çalışma kitabı değilse (yani çalışma sayfaları her zaman eklenmez ve silinmez), çalışma sayfalarının adlarını gizli bir sayfada bir aralıkta saklayabilir ve adlarına göre bunlarla döngü yapabilirsiniz.

Public Function GetStartIndex() As Integer 
    On Error Resume Next 
    GetStartIndex = ThisWorkbook.Worksheets("MyStartingWorksheet").Index + 1 
End Function 

Public Function GetEndIndex() As Integer 
    On Error Resume Next 
    GetEndIndex = ThisWorkbook.Worksheets("MyEndingWorksheet").Index - 1 
End Function 

Sub LoopThrough() 

    Dim wks As Worksheet 
    Dim i As Integer 
    Dim iStart As Integer 
    Dim iEnd As Integer 

    iStart = GetStartIndex() 
    iEnd = GetEndIndex() 

    If iStart > 0 And iEnd > 0 And iEnd > iStart Then 
     For i = iStart To iEnd 
      Set wks = ThisWorkbook.Worksheets(i) 
      MsgBox wks.Name 
     Next i 
    End If 

End Sub 

Answer 2

Ne dersin?

For Each ThisWorkSheet In Worksheets 
    If ThisWorkSheet.Name = "FlagStart" Then output = true 
    If ThisWorkSheet.Name = "FlagEnd" Then Exit For 
    If output = true Then MsgBox "This worksheet name is: " & ThisWorkSheet.Name 
Next 

Bu kod düzgün olmayabilir. Ben VBA'da değil, editörde yazıyorum ama sen fikir edin.

Answer 3

Eğer "foreach" kullanıyorsanız, başlangıç ​​sayfası üzerinde herhangi bir kontrole sahip olmayacağınıza inanıyorum. Bu nedenle, iterasyonun gerçekleşeceği sırayı garanti ettiğinizden bile emin değilim.
Öncelikle yapmanız gereken şey, ilgilendiğiniz sayfanın dizinini almaktır (sayfayı isme göre alın ve dizinini alın) ve ardından bir for döngüsü kullanarak yinelenen sayfaların dizinleri üzerinde yineleyin. bayrak sayfası endeksi.
: Eğer üzerinde yineleme bir ortak ad biçime sahip sayfaları mı

Sub Iterate() 

Dim book As Workbook 
Dim flagIndex As Integer 
Dim flagSheet As Worksheet 

Set book = ActiveWorkbook 
Set flagSheet = book.Worksheets("Sheet3") 
flagIndex = flagSheet.Index 

Dim sheetIndex As Integer 
Dim currentSheet As Worksheet 

For sheetIndex = flagIndex To book.Worksheets.Count 
    Set currentSheet = book.Worksheets(sheetIndex) 
Next 

End Sub 

Answer 4

[Düzenle Ben hızlı örnek üzerinden kesmek]? o başvurmak istediğiniz bir levha ise her döngü için, sadece Left(ThisWorkSheet.name, 4) = "emp" yapmak senin içinde

Ör)

Sheets(0).name > "Reports" 
Sheets(1).name > "Start Here" 
Sheets(2).name > "emp.0001" 
Sheets(3).name > "emp.0002" 
Sheets(4).name > "emp.0003" 
Sheets(5).name > "emp.0004" 
Sheets(6).name > "End Here" 

Eğer öyleyse, doğrulamak için.

Answer 5

: bu kadar, Mathias' çözüm üzerinde inşa başlangıç ​​ve bitiş çalışma sayfalarının endekslerini ve sonra döngü boyunca dönmek için bir işlev kullanabilirsiniz çalışma kitabında ardışık saklanır gibi

Ancak, bu sesler

Public Sub ITERATE_WORKSHEETS() 
    On Error Resume Next  
    Dim x As Long 
     For x = 0 To 100 
       MsgBox Worksheets(x).Name 
     Next x 
    On Error GoTo 0 
    MsgBox "all done" 
End Sub 

Answer 6

Excel VBA 2013'te, çalışma sayfaları varsa, "Blankfirst" ve "Blanklast" sekmeleri arasında güncelleştirmek istediğinizde bu çalışır.

Sekme adlarınızı geri getirip, ardından MsgBox wks.Name bölümü yerine işlem kodunuzu değiştirip test etmek için aşağıdaki kodu kullanın.

Sub Macro2() 

    On Error Resume Next 
    GetStartIndex = ThisWorkbook.Worksheets("Blankfirst").Index + 1 

    On Error Resume Next 
    GetEndIndex = ThisWorkbook.Worksheets("Blanklast").Index - 1 

    Dim wks As Worksheet 
    Dim i As Integer 
    Dim iStart As Integer 
    Dim iEnd As Integer 

    iStart = GetStartIndex 
    iEnd = GetEndIndex 


    If iStart > 0 And iEnd > 0 And iEnd > iStart Then 
     For i = iStart To iEnd 
      Set wks = ThisWorkbook.Worksheets(i) 
      MsgBox wks.Name 
     Next i 
    End If 

End Sub