Private sName$ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing Then sName = Application.GetOpenFilename If sName = "False" Then Cells(Target.Row, "B").Value = "" Cells(Target.Row, "C").Value = "" Else Cells(Target.Row, "B").Value = sName ' путь до файла Cells(Target...

Если вы уже начали осваивать макросы и обработчики событий в Excel, то вы знаете, насколько они могут автоматизировать рутинные задачи. Однако есть события, о которых говорят реже, но которые при правильном использовании становятся мощным инструментом: Worksheet_BeforeRightClick и Worksheet_Calculate. Сегодня мы подробно разберём оба, приведём живые примеры с кодом, научимся блокировать стандартные действия Excel, а также увидим, как реагировать на пересчёт формул. Всё — в стиле практики, системности и с максимальной пользой...