Проблемка с ReDim Preserve

[MaxxVer]

Добрый день!

Не получается заставить макрос работать. Помогите пожалуйста найти ошибку. Уже второй день бьюсь и не пойму что не так...
Макрос должен скрывать столбцы при установке галочки на чекбоксе, а при снятии галочки раскрывать только те что были скрыты чекбоксом ранее (ну плюс 2 столбца заранее заданных, не знал как без них обойтись).

В модуле листа:

Private Sub CheckBox1_Click()
Dim arr, i, arrP2

arr = Array(35, 39, 43, 47, 51)
arrP2 = Array(422, 423)

If CheckBox1 = True Then
    For i = 0 To UBound(arr)
        If Columns(arr(i)).ColumnWidth > 0 Then
            Columns(arr(i)).EntireColumn.Hidden = True
            ReDim Preserve arrP2(UBound(arrP2) + 1)
            arrP2(UBound(arrP2)) = arr(i)
        End If
    Next
    Else
    For i = 0 To UBound(arrP2)
        Columns(arrP2(i)).EntireColumn.Hidden = False
    Next
End If
End Sub

[Кардаган]

Сообщение от MaxxVer

Добрый день!

Не получается заставить макрос работать. Помогите пожалуйста найти ошибку. Уже второй день бьюсь и не пойму что не так...
Макрос должен скрывать столбцы при установке галочки на чекбоксе, а при снятии галочки раскрывать только те что были скрыты чекбоксом ранее (ну плюс 2 столбца заранее заданных, не знал как без них обойтись).

Так а что не так? Как он на самом деле работает, и что не делает? Или на какой строке вываливается?

[MaxxVer]

Скрывает столбцы, но потом не раскрывает. Прогоняю F8 вроде заполняет массив arrP2, но если в конце кода пишу MsgBox arrP2(2), то ругается "subscript out of range".

[Кардаган]

Слегка изменил Ваш код. Пробуйте:

Private Sub CheckBox1_Click()
Dim arr, i, arrP2

arr = Array(35, 39, 43, 47, 51)
arrP2 = Array(422, 423)

If CheckBox1 = True Then
    For i = 0 To UBound(arr)
        If Columns(arr(i)).ColumnWidth > 0 Then
            Columns(arr(i)).EntireColumn.Hidden = True
            ReDim Preserve arrP2(UBound(arrP2) + 1)
            arrP2(UBound(arrP2)) = arr(i)
        End If
    Next
End If
    For i = 0 To UBound(arrP2)
        Columns(arrP2(i)).EntireColumn.Hidden = False
    Next
End Sub

[Кардаган]

Или можно как у Вас оставить, только Else надо левее поместить:

Private Sub CheckBox1_Click()
Dim arr, i, arrP2

arr = Array(35, 39, 43, 47, 51)
arrP2 = Array(422, 423)

If CheckBox1 = True Then
    For i = 0 To UBound(arr)
        If Columns(arr(i)).ColumnWidth > 0 Then
            Columns(arr(i)).EntireColumn.Hidden = True
            ReDim Preserve arrP2(UBound(arrP2) + 1)
            arrP2(UBound(arrP2)) = arr(i)
        End If
    Next
Else
    For i = 0 To UBound(arrP2)
        Columns(arrP2(i)).EntireColumn.Hidden = False
    Next
End If
End Sub

Иначе макрос это Else не понимает.

[27102014]

Сообщение от Кардаган

Или можно как у Вас оставить, только Else надо левее поместить:

Private Sub CheckBox1_Click()
Dim arr, i, arrP2

arr = Array(35, 39, 43, 47, 51)
arrP2 = Array(422, 423)

If CheckBox1 = True Then
    For i = 0 To UBound(arr)
        If Columns(arr(i)).ColumnWidth > 0 Then
            Columns(arr(i)).EntireColumn.Hidden = True
            ReDim Preserve arrP2(UBound(arrP2) + 1)
            arrP2(UBound(arrP2)) = arr(i)
        End If
    Next
Else
    For i = 0 To UBound(arrP2)
        Columns(arrP2(i)).EntireColumn.Hidden = False
    Next
End If
End Sub

Иначе макрос это Else не понимает.

не просвятите как VBA воспринимает пробелы и размещение текста команд макроса?

[Кардаган]

Сообщение от 27102014

не просвятите как VBA воспринимает пробелы и размещение текста команд макроса?

У меня вываливался сейчас с ошибкой "Else without If", когда я с ним игрался, при этом ни один из If, ни Else я не трогал. Перевёл Else левее - перестал вываливаться.

[27102014]

Когда игрались, то нарушили синтаксис оператора If Then, местоположение в данном случае вообще не причем.

И вообще ошибка с массивами данных

[Кардаган]

Сообщение от 27102014

Когда игрались, то нарушили синтаксис оператора If Then, местоположение в данном случае вообще не причем.

И вообще ошибка с массивами данных

Ну извините, пожалуйста.
Так а первый мой вариант тоже не подойдёт?

[27102014]

Уважаемый Кардаган!
Форум устроен так - есть вопросы, создавай тему, может помогут бесплатно, есть раздел Фриланс - там точно помогут, но за деньги.

Нет вопросов - смотри темы, если знаешь, подскажи, не знаешь - пройди мимо.
В данной теме ошибка с массивами данных - даже в теме написано.
Я не знаю в чем здесь конкретно ошибка, никогда не работал с Redim

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