Использование ObjectName с ActiveCell

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование ObjectName с ActiveCell (Макросы/Sub)

Leprotto

Дата: Среда, 19.04.2017, 10:23 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

Доброе утро!
В access прописывал доступ к файлу excel. Макрос зависал и я нашел в сети, что в коде файла excel
к ActiveCell нужно добавить ObjectName. Макрос access перестал зависать, но теперь не работает код excel:
[vba]

Код

Sub plusOn()
  Dim shtF As Worksheet
  Set shtF = ThisWorkbook.Sheets("Функции")

  If ObjectName.ActiveCell.Value = "+" Then
    shtF.Range("E1").Value = ObjectName.ActiveCell.Offset(0, -2).Value
    shtF.Range("E2").Value = ObjectName.ActiveCell.Offset(0, -1).Value
  Else
    Exit Sub
  End If

  'и тд...
End Sub

[/vba]
Подскажите что нужно добавить/поправить? (пробовал тупо добавить "Dim ObjectName", не помогло)