Блог

Во-первых, извините за мой плохой английский

Таким образом, у меня есть макрос, который задает листы моей книги в качестве имен переменных, чтобы предотвратить необходимость отладки предупреждений, когда пользователь использует книгу и изменяет имя или положение листа.

Например, если имя моего листа «BDD», когда я кодирую, я буду ссылаться на этот лист как на листы («BDD»).xxxxxx или листы(1).xxxxxxx, то если пользователь изменит имя листа, мои макросы больше не будут работать

Вот почему в worbook_open я установил:

 WB00 = activeworkbook
WB00WS01 = first sheet
WB00WS02 = second sheet
 

снова и снова

Поэтому, когда я кодирую, я называю его WB00WS01.xxxx

Итак, мой макрос:

     Sub initWB00()
        Set WB00 = ActiveWorkbook
        For Each W In WB00.Worksheets
            On Error Resume Next
            If W.CodeName = "Sheet1" Then
                Set WB00WS01 = W
            End If
            If W.CodeName = "Feuil2" Then
                Set WB00WS02 = W
            End If
            If W.CodeName = "Feuil3" Then
                Set WB00WS03 = W
            End If
            If W.CodeName = "Feuil4" Then
                Set WB00WS04 = W
            End If
            If W.CodeName = "Feuil5" Then
                Set WB00WS05 = W
            End If
            If W.CodeName = "Feuil6" Then
                Set WB00WS06 = W
            End If
            If W.CodeName = "Feuil7" Then
                Set WB00WS07 = W
            End If
            If W.CodeName = "Feuil8" Then
                Set WB00WS08 = W
            End If
            If W.CodeName = "Feuil9" Then
                Set WB00WS09 = W
            End If
            If W.CodeName = "Feuil10" Then
                Set WB00WS10 = W
            End If
        Next W
    End Sub
 

Это работает как есть, но, как вы можете видеть, оно довольно ограничено (например, если я хочу перейти на WB00WS100) и очень тривиально

Затем у меня возникла идея зациклить переменную «i», которая даст номер листа "WB00WS" amp; i = "sheet" amp; I

 Sub initWB00()
Dim i As Integer
    Set WB00 = ActiveWorkbook
    For Each W In WB00.Worksheets
        For i = 1 To 20
        If W.CodeName = "Feuil" amp; i Then
            Set "WB00WS0"amp;i = W
        End If
        Next i
    Next W
End Sub
 

Если я сделаю это так, у меня будет ожидаемая ошибка с идентификатором

Я предполагаю, что это потому, что я поместил строку и переменную слева от равенства, но в противном случае я не могу представить, как я могу написать цикл, который делает то, что мне нужно

У тебя есть какие-нибудь идеи?

Заранее спасибо!!

Это один из методов заполнения массива ссылками на рабочие листы и эмуляции попыток, которые вы предприняли в своем коде. Однако замечание Раймонда Ву, возможно, является более правильным решением.

 Option Explicit

Public Function initWB00(ByRef ipWB As Workbook) As Variant
    
    Dim myWorksheetArray As Variant
    ReDim myworksheet(1 To ipWB.Worksheets.Count)
    
    Dim myItem As Variant
    Dim mySheet As Worksheet
    For Each myItem In ipWB.Worksheets
    
        ' The next line just allow intellisense
        Set mySheet = myItem
        If InStr(mySheet.CodeName, "Sheet1") Then
        
            Set myWorksheetArray(1) = mySheet
            
        Else
        
            Set myWorksheetArray(CLng(Split(mySheet.CodeName, "l")(1))) = mySheet
        
        End If
        
    Next
    
    initWB00 = myWorksheetArray
    
End Function
 

Пожалуйста, попробуйте использовать следующий подход. Вы запустите код один раз, и все кодовые имена листов будут изменены. Тогда вы должны использовать только их:

 Sub initWB00()
    Dim i As Long, w As Worksheet, WB00 As Workbook
    
    Set WB00 = ActiveWorkbook 'if the active workbook is not ThisWorkbook, it will change the names of he active workbook sheets.
                              'but they can be used only running codes inside them
                              'In order to not have such problems, you should use ThisWorkbook instead of ActiveWorkbook 
    For Each w In WB00.Worksheets
        For i = 1 To 20
            If w.CodeName = "Feuil" amp; i Then
                ChangeCodeName w, WB00, "WB00WS0" amp; i
            End If
        Next i
    Next w
End Sub

Private Sub ChangeCodeName(sh As Worksheet, WB As Workbook, strCodeName As String)
  Dim shCModule As Object
  Set shCModule = WB.VBProject.VBComponents(sh.CodeName)
  shCModule.Name = strCodeName
End Sub
 

Ооооооооооооооо Благодаря @FaneDuru я нашел решение ! Мне просто нужно было удалить глобальное приложение в начале моего кода (у меня был глобальный WB00WS01, Глобальный WB00WS2…) , и это сработало !

Моя единственная проблема заключается в том, что где-то в своем коде я установил WB00 в качестве этой рабочей книги, и я не могу ссылаться на нее позже в своем коде. Даже когда я затемняю WB00 как рабочую книгу в заголовке моего кода. Когда я использую WB00.Windows(1).VisibleRange(2, 2).Top , у меня возникает ошибка неопределенной переменной

В любом случае, спасибо всем вам за то, что помогли мне !!