привет всем :)
никак не могу разобраться с простым вопросом.
на листе создана структура (outline)
хочу разворачивать/сворачивать группы по двойному щелчку на ячейке.
делаю так:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.EntireRow.ShowDetail = Not Target.EntireRow.ShowDetail
Cancel = True
End Sub
всё работает.
но для строк, не входящих в структуру, возникает ошибка времени выполнения 1004 :(
как отличить такие строки в VBA?
OutlineLevel у них равен 1 (так же, как и у строк самого верхнего уровня структуры).
ShowDetail равен True (так же, как и у строу в "развернутом" виде).
что ещё?
пс. вариант
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Target.EntireRow.ShowDetail = Not Target.EntireRow.ShowDetail
Cancel = True
End Sub
конечно, работает.
но мне это кажется глупостью - допускать возникновение ошибки там, где её (наверное?) можно избежать.
ппс. надеюсь, файл с "примером" тут не нужен. :)
хелп ми, плиз.
никак не могу разобраться с простым вопросом.
на листе создана структура (outline)
хочу разворачивать/сворачивать группы по двойному щелчку на ячейке.
делаю так:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.EntireRow.ShowDetail = Not Target.EntireRow.ShowDetail
Cancel = True
End Sub
всё работает.
но для строк, не входящих в структуру, возникает ошибка времени выполнения 1004 :(
как отличить такие строки в VBA?
OutlineLevel у них равен 1 (так же, как и у строк самого верхнего уровня структуры).
ShowDetail равен True (так же, как и у строу в "развернутом" виде).
что ещё?
пс. вариант
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Target.EntireRow.ShowDetail = Not Target.EntireRow.ShowDetail
Cancel = True
End Sub
конечно, работает.
но мне это кажется глупостью - допускать возникновение ошибки там, где её (наверное?) можно избежать.
ппс. надеюсь, файл с "примером" тут не нужен. :)
хелп ми, плиз.
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг