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 Commented 23 июн. 2020 в 12:52
  • Что такое "фигура" в данном случае? Что, какое событие, вызывает выполнение макроса?
    – Akina
    Commented 23 июн. 2020 в 13:00
  • @vikttur, действительно, зачем мне фигура тогда. Выделение простое ячейки куда удобнее.
    – daniel
    Commented 23 июн. 2020 в 13:09
  • @Akina обычный клик по фигурке вызывал выполнение макроса, фигуры уже не актуальны получается
    – daniel
    Commented 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

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

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

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