Блог

У меня есть текущий макрос следующим образом:

 Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl Shift Q
'
    ActiveCell.FormulaR1C1 = "MATCH"
    ActiveCell.Select
End Sub
 

Однако при этом не применяется текст «СОВПАДЕНИЯ» всякий раз, когда я выделяю группу ячеек. Я новичок в VBA, и мне было интересно, как этого добиться, одновременно запуская макрос с выделенным диапазоном.

Вы хотели заменить текст в выбранных ячейках словом «СОВПАДЕНИЕ»?

если это так, это будет работать:

 Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl Shift Q
'
    Selection.Value = "MATCH"
End Sub
 

Обратите внимание, что это Selection означает, что все ячейки, которые вы выбираете, и ActiveCell это та, которая выделена внутри нее (куда будет вводиться текст) — см. Приложение.ActiveCell

Если вы новичок в Excel, попробуйте вызвать обозреватель объектов (нажмите клавишу F2 в редакторе кода), который позволит вам просмотреть все различные доступные методы и объекты.