Как написать приложение с добавлением коментария?

[Natasall]

Задание такое:
1. Создать приложение в VBA, позволяющее создать примечание при открытии книги Excel.
даже незнаю как делать(((((((((((((

[Iska]

Вставьте следующий код:
Option Explicit

Private Sub Workbook_Open()
Dim strText As String

strText = Trim(InputBox("Введите текст примечания для ячейки A1:", "Добавление примечания"))

If Len(strText) <> 0 Then
With ThisWorkbook.Sheets.Item(1).Range("A1")
.ClearComments
.AddComment CStr(Now()) & ":" & vbLf & strText
End With
End If
End Sub

в модуль «ЭтаКнига» рабочей книги Microsoft Excel.

[Natasall]

:yahoo: :yahoo: :yahoo: :yahoo: :yahoo: :yahoo: Спасибо огромное :kiss: ВЫ моё спасение))))

[Delirium]

Natasall, вы на будущее посмотрите, что такое макросы, которые можно записывать в Excel. Включаем запись, делаем нужные задачи и выключаем макрос. Идем в конструктор и смотрим на код. Удаляем лишнее, облагораживаем и получаем нужный результат :)