Поля объекта Target:
|
1 2 |
Target.Address - Адрес ячейки, например $E$12 Target.Row - Номер верхней строки диапазона |
Чтобы вставить картинку, сохранив её в документ:
|
1 2 3 4 5 6 |
Sub Макрос1() Range("A1").Select ActiveSheet.Pictures.Insert("C:\Рисунок.gif").Select Selection.Cut ActiveSheet.Pictures.Paste.Select End Sub |
Для открытия диалогового окна загрузки файла:
|
1 2 3 4 |
Dim filename filename = Application.GetOpenFilename If filename <> False Then Workbooks.Open (filename) |
Вывод текстового сообщения (alert box):
|
1 |
MsgBox "Text here" |