'код в форме
Public flag As String
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
flag = "TextBox1"
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
flag = "UserForm"
End Sub
'код в модуле листа
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.flag = ActiveSheet.Name
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 83