Подскажите, пожалуйста, по части кода. Если листы есть Hidden - обрабатывается корректно. Если есть листы VeryHidden -некорректно. Суть в том, что при вызове формы в комбобокс подставляется текущий лист), как правильно видоизменить (см. ниже)?
Код:
Код:
Код |
---|
Function addListsToComboBox(myCombobox As ComboBox) As Integer Dim wb As Workbook Dim sh As Worksheet Dim shActName As String Set wb = ActiveWorkbook shActName = ActiveSheet.name f = wb.name returnValue = 0 VisibleListCount = 0 For j = 1 To wb.Sheets.Count Set sh = wb.Sheets(j) If sh.Visible = True Then VisibleListCount = VisibleListCount + 1 End If Next For j = 1 To VisibleListCount Set sh = wb.Sheets(j) If sh.Visible = True Then myCombobox.AddItem (sh.name) If sh.name = shActName Then returnValue = j - 1 End If End If Next addListsToComboBox = returnValue End Function |