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

No.1 ベストアンサー 回答者： tsubuyuki 回答日時： 2013/07/15 16:59

一つにしてしまえば問題ないです。

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "振込"
.AddItem "現金"
.AddItem "小切手"
End With

With ComboBox2
.AddItem "10"
.AddItem "11"
.AddItem "12"
End With
End Sub

この回答へのお礼

ComboBox2は諦めかけTextBoxにしようとしていたところにご回答をいただき、早速試させていただきました。
うまくゆき大喜びで万歳三唱しました。
まだ始めたばかりのVBAです。
本当にありがとうございました。

お礼日時：2013/07/15 19:07