Nemám nyní 2007,10 takže to nepřečtu. Obecně mě napadají dva způsoby. Přes pomocníka nebo komentář v buňce.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Assistant
.Visible = True
With .NewBalloon
.Heading = "Ahoj ..."
.Text = "Zavolej mi do klubu ..."
.Icon = msoIconAlertQuery
End With
' .Visible = False
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Comment Is Nothing Then
.AddComment ("Ahoj ... 1")
Else
.Comment.Text ("Ahoj ... 2")
End If
End With
End Subcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Assistant
.Visible = True
With .NewBalloon
.Heading = "Ahoj ..."
.Text = "Zavolej mi do klubu ..."
.Icon = msoIconAlertQuery
End With
' .Visible = False
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Comment Is Nothing Then
.AddComment ("Ahoj ... 1")
Else
.Comment.Text ("Ahoj ... 2")
End If
End With
End Subcitovat