Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Корректная проверка на скрытые листы
 
Подскажите, пожалуйста, по части кода. Если листы есть 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
 
Если надо добавить только видимые листы и выделить в них имя активного:
Код
For j = 1 To wb.Sheets.Count
    Set sh = wb.Sheets(j)
    If sh.Visible = True Then myCombobox.AddItem sh.name
Next
myCombobox.Value = shActName
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо!
Страницы: 1
Читают тему (гостей: 1)