|
▼うぇんずでー さん、かみちゃんさん、こんばんは。
>UserForm1にコマンドボタンが3つあります。
>それらのボタンを押すとすべてUserForm2を表示させるようになっています。
>UserForm2あるテキストボックスの内容を、UserForm1のどのコマンドボタンから
>飛んで来たかによって変化させたいのですが、うまく出来ません。
>
>最近マクロからマクロへの変数の受け渡しを学んだ程度のレベルです。
>おそらくすごく簡単なんでしょうが、どなたか教えていただけないでしょうか?
こんな方法でもよいです。
Userform1のモジュール
Private Sub CommandButton1_Click()
Load UserForm2
With UserForm2
.show_caller = "CommandButton1"
.Show
End With
End Sub
Private Sub CommandButton2_Click()
Load UserForm2
With UserForm2
.show_caller = "CommandButton2"
.Show
End With
End Sub
Private Sub CommandButton3_Click()
Load UserForm2
With UserForm2
.show_caller = "CommandButton3"
.Show
End With
End Sub
Userform2のモジュール
Public show_caller As String
Private Sub UserForm_Activate()
TextBox1.Text = show_caller
End Sub
|
|