エクセルＶＢＡユーザーフォーム「テキストボックス」「コンボボックス」の書式設定について
ユーザーフォームを作成して、出荷実績を投入しようとしています。
現在、ユーザーフォームを作成して、
上から以下のようにボタンが並んでいます。
(1)コンボボックス１
商品コードと商品名を選択する。
(2)テキストボックス１～７
地域ごとの出荷実績を投入する。
(3)コマンドボタン１
決定→入力
(4)コマンドボタン２
終了
そして、以下３つの問題点がありますが、どのようにＶＢＡを記述したら良いのか、わかりません。
ａ．コンボボックス１に表示される商品を商品コード
（アルファベット）と商品名で改行したい。
つまり「折り返して全体を表示する」ことは出来ないでしょうか。
ｂ．「ＡＡＡＡ～」は５行目・「ＣＣＣＣ～」は７行目 といった
ように、商品ごとに値を投入する行を変更したい。
ｃ．テキストボックス１～６の内容の合計が自動で（入力している
最中に）テキストボックス７に表示されるようにしたい。
次のようなＶＢＡは記述出来たのですが、上記３つの要素を加えるには
どのようにしたらよいのか、教えていただけないでしょうか？
ちなみに入力する順番は次のようになっています。(設定済み)
M4→L4→J4→K4→H4→I4
→M5→L5→J5→K5→H5→I5
-------------------------------------------------------------
’フォームを表示させる。
Sub formdsp()
UserForm1.Show
End Sub
’フォーム内容
Dim cnt As Integer
Private Sub Combobox1_Change()
End Sub
'入力ボタン
Private Sub CommandButton1_Click()
With ActiveSheet
.Cells(cnt, 13) = TextBox1.Text
.Cells(cnt, 12) = TextBox2.Text
.Cells(cnt, 10) = TextBox3.Text
.Cells(cnt, 11) = TextBox4.Text
.Cells(cnt, 8) = TextBox5.Text
.Cells(cnt, 9) = TextBox6.Text
.Cells(cnt, 15) = TextBox7.Text
cnt = cnt + 1
.Cells(cnt, 13) = Activate
End With
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
UserForm1.TextBox5.Text = ""
UserForm1.TextBox6.Text = ""
UserForm1.TextBox7.Text = ""
UserForm1.Combobox1.Text = ""
UserForm1.TextBox1.SetFocus
End Sub
'終了ボタン
Private Sub CommandButton2_Click()
Unload Me
End
End Sub
'コンボボックス
Private Sub userform_initialize()
cnt = 4
With UserForm1.Combobox1
.AddItem "ＡＡＡＡ 11111111111"
.AddItem "ＢＢＢＢ 22222222222"
.AddItem "ＣＣＣＣ 333333333"
.AddItem "ＤＤＤＤ 444444"
.AddItem "ＥＥＥＥ 5555555555"
.AddItem "ＦＦＦＦ 666"
.AddItem "ＧＧＧＧ 7777777"
.AddItem "ＨＨＨＨ 88888"
.AddItem "ＩＩＩＩＩ 999999999"
.AddItem "ＪＪＪＪ 0000000000000"
.AddItem "ＫＫＫＫ 1111"
.AddItem "ＬＬＬＬ 222222"
.AddItem "ＭＭＭＭ 3333"
End With
End Sub
お礼
できました。ありがとうございました。