Клик по ячейке макросом

[Vja4eslav]

Ещё раз здравствуйте!
Уважаемые профессионалы, хочу написать макрос (Excel 2003), который бы по клику по ячейке скрывал столбец. Но не знаю как описать в макросе сам клик по ячейке. Не могли бы Вы, пожалуйста, подсказать?

[EducatedFool]

Клики разные бывают - левой кнопкой одинарный или двойной, правой кнопкой, колёсиком, и т.д.
Который вас интересует?

Код в модуле листа:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' двойной щелчок левой кнопкой на ячейке Target
    
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' щелкнули правой кнопкой на ячейке Target
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' выделили диапазон Target

End Sub

Вот вам пример, где ДВОЙНОЙ ЩЕЛЧОК скрывает столбец, а клик ПРАВОЙ КНОПКОЙ - отображает столбец справа от щелкнутого:
Пример в файле: http://excelvba.ru/XL_Files/Sample__...__13-35-07.zip

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' двойной щелчок левой кнопкой на ячейке Target
    Target.EntireColumn.Hidden = True    ' скрываем столбец
    Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' щелкнули правой кнопкой на ячейке Target
    Target.Next.EntireColumn.Hidden = False    ' отображаем столбец справа
    Cancel = True
End Sub

[Vja4eslav]

Один клик левой кнопкой мышки, типа:
If (клик ЛКМ) Then Columns("B:B").EntireColumn.Hidden = True
Это надо не в Private Sub использовать, а в Sub

[EducatedFool]

Клик обязательно на ячейке?
Добавьте кнопку на лист, да назначьте её макрос из одной строки...

Чтобы отловить одиночный клик по ячейке, используется событие Worksheet_SelectionChange
Правда, повторный клик по этой ячейке не отловится.

Это надо не в Private Sub использовать, а в Sub

Это почему же?

[Казанский]

Левый клик на ячейке, как известно, приводит к ее выделению.
То есть отследить левый клик проще всего по событию выделения ячейки.
Хотите сделать глиняный пулемет?

[Vja4eslav]

Уважаемый EducatedFool, Вы правы - это делается только в Private Sub.
Если я пишу: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' двойной щелчок левой кнопкой по ячейке Target
Columns("B:B").EntireColumn.Hidden = True 'скрываем стобец
Cancel = True
End Sub
То по двойному щелчку на ЛЮБОЙ ячейке скрывается Columns("B:B").
А как сделать, чтобы он скрывался только по двойному щелчку на ячейке B1 ?

[EducatedFool]

Уважаемый EducatedFool, Вы правы - это делается только в Private Sub.

Да без разницы - можно Private Sub сделать, можно просто Sub
Разницы в вашем случае нет.

А как сделать, чтобы он скрывался только по двойному щелчку на ячейке B1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    if target.address = [b1].address then    columns(2).Hidden = True: Cancel = True
End Sub

[Vja4eslav]

Вот что значит профессионал! Спасибо Вам большое, EducatedFool, Вы мне за сегодня уже 2-й раз помогли