Private Sub UserForm_Init
いつもお世話になります。
Windws7 excell2010 です。
同一のシートに二つの「Private Sub UserForm_Initialize()」があるときにどう名前を変えればまたはどうすればいいかご指導願えませんか。
「Private Sub UserForm_Initialize()」が一つの時はE5のようにうまく作動してくれます。
E列に 売上の 「回収」のリスト
Private Sub UserForm_Initialize()
F列に 何時の 「売掛月」のリスト(1～12の数字)
Private Sub UserForm_Initialize()
A列に =IF(B2="","",TEXT(B2,"mm"))
参考に下記します。
～１
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "振込"
.AddItem "現金"
.AddItem "小切手"
End With
End Sub
～２
Private Sub UserForm_Initialize()
With ComboBox2
.AddItem "10"
.AddItem "11"
.AddItem "12"
End With
End Sub
'****************
'設定
'****************
Private Sub CommandButton1_Click()
y = 2
Do While Cells(y, 2) <> ""
y = y + 1
Loop
Cells(y, 2) = TextBox1.Text
Cells(y, 3) = TextBox2.Text
Cells(y, 4) = TextBox3.Text
Cells(y, 5) = ComboBox1.Text
Cells(y, 6) = ComboBox2.Text
UserForm2.TextBox1.Text = ""
UserForm2.TextBox2.Text = ""
UserForm2.TextBox3.Text = ""
UserForm2.ComboBox1.Text = ""
UserForm2.ComboBox2.Text = ""
UserForm2.TextBox1.SetFocus
End Sub
お礼
ありがとうございます。 確認してみます。