|
こんにちは。かみちゃん です。
>UserForm1にコマンドボタンが3つあります。
>それらのボタンを押すとすべてUserForm2を表示させるようになっています。
>UserForm2あるテキストボックスの内容を、UserForm1のどのコマンドボタンから
>飛んで来たかによって変化させたい
以下のような感じでいかがですか?
'標準モジュールに記述
Public strXX As String '←ポイント
Sub Macro1()
UserForm1.Show
End Sub
'UserForm1に記述
Private Sub CommandButton1_Click()
strXX = "CommandButton1"
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
strXX = "CommandButton2"
UserForm2.Show
End Sub
Private Sub CommandButton3_Click()
strXX = "CommandButton3"
UserForm2.Show
End Sub
'UserForm2に記述
Private Sub UserForm_Initialize()
TextBox1.Value = strXX
End Sub
|
|