VBA

VBA ユーザーフォーム１のコンボボックスの値をユーザーフォーム2のテキストボックスに転記したいのですが、どうコードを書けばよいのか教えてください。

No.2 回答者： tom04 回答日時： 2017/08/17 22:04

こんばんは！

コンボボックスがChangeしたタイミングで単にユーザーフォーム2のテキストボックスに表示したい場合は

Private Sub ComboBox1_Change()
　　UserForm2.TextBox1 = ComboBox1.Value
End Sub

くらいでOKだと思います。
ただこれではユーザーフォーム2を立ち上げるまで判らないので、別案として・・・
コンボボックスがChangeした時点でユーザーフォーム2を立ち上げ、ユーザーフォーム1を閉じる場合は

Private Sub ComboBox1_Change()
With UserForm2
.TextBox1 = ComboBox1.Value
.Show
End With
Unload Me
End Sub

とする方法もあります。m(_ _)m

No.1 回答者： naktak 回答日時： 2017/08/16 14:04

どのタイミングでしたいのかわからないのでざっくり。

【Module1】
Public Sub Test()
Dim uf1 As New UserForm1

Call uf1.Show
End Sub

【UserForm1】
Private Sub CommandButton1_Click()
Dim uf2 As New UserForm2

uf2.TextBox1.Text = ComboBox1.Text
Call uf2.Show
End Sub