Добрый день, уважаемые участники форума!
Столкнулся с проблемой. Поиск в интернете почти ни к чему не привел.
Моя задача - сделать кнопку ActiveX, название которой, должно быть текущей датой, и еще 4 кнопки, каждая на 1 день больше предыдущей. К щелчку по ним я уже хочу привязать функции.
Буду очень признателен если подскажете.
Нашел такой макрос:
| Код |
|---|
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Sub |
Но он возвращает ошибку. Что я делаю не так? Заранее спасибо!
