Какая-то непонятка, прошу помочь разобраться.
Вызов формы - DblClick на первой строке.
На форму в ListBox выводится список наименований столбцов (шапка таблицы). DblClick на элементе списка - соответствующий столбец на листе скрывается/отображается
Это работает.
Но при этом кавардак с выделениями в списке, хотя список каждый раз пересматривается.
Например, скрываем столбец 3 - галка на нем не ставится, но ставится на первом. Показываем третий - на нем ставится галка (хотя должа быть снята).
Если форму переоткрыть - выделены все нормально.
На 14 строке (вызов Call ChangeList) поставить точку останова. Если запустить процедуру и после остановки продолжить по F5 - список отображается корректно. Уже и задержку ставить пробовал, и перезапись rRng - не помогает.
Не вижу какой-то мелочи или действительно проблема?
Вызов формы - DblClick на первой строке.
На форму в ListBox выводится список наименований столбцов (шапка таблицы). DblClick на элементе списка - соответствующий столбец на листе скрывается/отображается
Это работает.
Но при этом кавардак с выделениями в списке, хотя список каждый раз пересматривается.
Например, скрываем столбец 3 - галка на нем не ставится, но ставится на первом. Показываем третий - на нем ставится галка (хотя должа быть снята).
Если форму переоткрыть - выделены все нормально.
Код |
---|
' скрыти/отображение столбцов Private Sub lbList_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long With lbList i = .ListIndex: If i = -1 Then Exit Sub If .ListCount = 0 Then Cancel = True ' Application.ScreenUpdating = False rRng(i + 1).EntireColumn.Hidden = Not rRng(i + 1).EntireColumn.Hidden ' Application.ScreenUpdating = True End With ' Application.Wait Time:=Now + TimeValue("0:00:01") Call ChangeList ' к перезаписи списка End Sub |
На 14 строке (вызов Call ChangeList) поставить точку останова. Если запустить процедуру и после остановки продолжить по F5 - список отображается корректно. Уже и задержку ставить пробовал, и перезапись rRng - не помогает.
Не вижу какой-то мелочи или действительно проблема?
Полный код формы | ||
---|---|---|
|