0

Есть макрос для excel, привязываю его к фигуре, фигура находится в определенной ячейке. В данном случае в B6, как сделать так, чтобы мне не приходилось менять вручную адрес ячейки, а получать его в зависимости от места расположения фигуры? Например, фигура расположена в ячейке B9, соответственно получаю адрес ячейки из расположения фигуры и делаю уже инкремент.

Sub mac1()
    With Range("B6")
    If IsNumeric(.Value) Then
    Application.EnableEvents = False
    .Value = .Value + 1
    Application.EnableEvents = True
    End If
    End With
End Sub
4
  • 1
    Зачем такие сложности с фигурами? Процедура, отслеживающая событие листа (выделение ячейки или DoubleClick). Кликнули - получили в ячейке +1 23 июн 2020 в 12:52
  • Что такое "фигура" в данном случае? Что, какое событие, вызывает выполнение макроса?
    – Akina
    23 июн 2020 в 13:00
  • @vikttur, действительно, зачем мне фигура тогда. Выделение простое ячейки куда удобнее.
    – daniel
    23 июн 2020 в 13:09
  • @Akina обычный клик по фигурке вызывал выполнение макроса, фигуры уже не актуальны получается
    – daniel
    23 июн 2020 в 13:10

1 ответ 1

1

Событие выделения ячейки (ЛКМ) не сосовсем удобно в данном случае.

Вариант: при ПКМ +1. Если ошиблись, отнять единичку - DoubleClick

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("B2:B100"), Target) Is Nothing Then
        Cancel = True
        Target.Value = Target.Value + 1
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("B2:B100"), Target) Is Nothing Then
        Cancel = True
        Target.Value = Target.Value - 1
    End If
End Sub

Код разместить в модуле листа

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.