エクセルＶＢＡユーザーフォーム「テキストボックス」「コンボボックス」の書式設定について

質問

ユーザーフォームを作成して、出荷実績を投入しようとしています。

現在、ユーザーフォームを作成して、
上から以下のようにボタンが並んでいます。

(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

回答No.2

keithin

M列やL列にデータが入ることは，最初のご質問のマクロにそう書いてありますので判ります。
そして同様に，あなたが掲示されたマクロにはもう一つ，

再掲：
＞入力するごとにシートの入力行を＋１ずつしている

という事が書いてあったので，お尋ねしたのです。

追加ご質問：
＞コンボボックスで選択された商品の情報を参考に
＞数値を入力するセルの行を変えたい

転記する行を＋１ずつ下げていくのはもう全くやめにして，コンボボックスでこれを選んだら何行に転記すると，完全に固定してしまいたいという事ですか。

それならそれでお話は簡単で，
＃コンボボックスに，各データごとに何行に入れるというデータも持たせておく手もありますが

簡単にはまず今のcnt + 1している行は消して＋１行ずつ下げるのは全くやめにして，
その代わりに例えば
select case combobox1.text
　case "ＡＡＡＡ　11111111111"
　　cnt = 4
　case "ＥＥＥＥ　5555555555"
　　cnt = 8
　case else
end select
のように「コンボボックスでこのデータが選ばれているから転記先は４行目だ８行目だ」と数字を入れるのを，入力ボタンのマクロに書き込んでおけば良いです。

【重要な注意】
もちろん上記に書いたのはAAAAとEEEEの２つだけのサンプルですから，これだけコピーしても当然駄目です。もっとあなたが実際にコンボボックスに詰めた全ての全部の上から下までのデータについて，漏れなくマクロを書き足してくださいね。

＞上のＶＢＡを私が作成したＶＢＡにそのまま加えてみたら…

当たり前です。

再掲：
＞３．テキストボックスの　『１から６それぞれに』　afterupdateなどを取り付けて，

＞具体的に、どのように記入したらよいのか教えていただけないでしょうか。

具体的なサンプルマクロは既にお話ししました。
まぁ，テキストボックス１で上手く動くのが確認できたので，まずは良しとしましょう。
同じ書きぶりで２から６についても作成してください。

折角ここまでご自分で作成されたのですから，今更丸投げで人に代わりに全部全部全部作って貰ったマクロを美味しくいただいて終わりにするんじゃなく，もうちょっとご自分でもね？
そのために，わざわざイベントの種類や調べ方もお話ししましたが，その様子ですと全部スルーだったのでしょうね。きっと。

補足

TextBoxのイベントを確認しても、どのように書式を設定したら
よいのか理解できませんでした。

マクロを使い始めて数か月。
独特のマクロの記述方法を理解できていません。

詳しく紹介されている良いサイトや本などはありませんか？

回答No.1

keithin

１．コンボボックスの表示を折り返すことは出来ません。

２．今はどうやら入力するごとにシートの入力行を＋１ずつしているようですが，ちなみに「５行目」「６行目」とはもうちょっとエクセル上の姿としてどこの事を言ってるのですか？
　文字通りにとらえるとcntを+1するのではなく「ある行数単位」ずつ足し上げていき，「何々の時はcnt+５行」「これこれの時は＋７行」のように作り込んでいくような事かなと思いますが。

３．テキストボックスの１から６それぞれにafterupdateなどを取り付けて，逐一合計を取ってはテキストボックス７に記入していきます。

簡単なサンプル：
private sub TextBox1_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

その際,実際には
＞自動で…表示されるようにしたい

「自動」ってもうちょっと具体的に一体何をどんなタイミングでどうしたときにそうしたいのかに応じて，どのイベントを使うのか選びます。
それこそテキストボックスに「１文字書き入れるたびに」更新をかけるような事だって，それが必要なら出来ます。
具体的に一体何が出来るのか，オブジェクトブラウザでTextBoxを見て配下のイベントを確認し，それぞれのヘルプを熟読して検討してみて下さい。

補足

＞２．今はどうやら入力するごとにシートの入力行を＋１ずつしているようですが，ちなみに「５行目」「６行目」とはもうちょっとエクセル上の姿としてどこの事を言ってるのですか？
　文字通りにとらえるとcntを+1するのではなく「ある行数単位」ずつ足し上げていき，「何々の時はcnt+５行」「これこれの時は＋７行」のように作り込んでいくような事かなと思いますが。

値を入力する列は以下のようにしています。
(1)　Ｍ(テキストボックス１の値)
(2)　Ｌ(テキストボックス２の値)
(3)　Ｊ(テキストボックス３の値)
(4)　Ｋ(テキストボックス４の値)
(5)　Ｈ(テキストボックス５の値)
(6)　Ｉ(テキストボックス６の値)
(7)　Ｏ(テキストボックス７の値)

そして、"ＡＡＡＡ　11111111111"が選択されたら
(1)　Ｍ４(テキストボックス１の値)
(2)　Ｌ４(テキストボックス２の値)
(3)　Ｊ４(テキストボックス３の値)
(4)　Ｋ４(テキストボックス４の値)
(5)　Ｈ４(テキストボックス５の値)
(6)　Ｉ４(テキストボックス６の値)
(7)　Ｏ４(テキストボックス７の値)

そして、"ＥＥＥＥ　5555555555"が選択されたら
(1)　Ｍ８(テキストボックス１の値)
(2)　Ｌ８(テキストボックス２の値)
(3)　Ｊ８(テキストボックス３の値)
(4)　Ｋ８(テキストボックス４の値)
(5)　Ｈ８(テキストボックス５の値)
(6)　Ｉ８(テキストボックス６の値)
(7)　Ｏ８(テキストボックス７の値)

といったように、列の順番は固定して、
コンボボックスで選択された商品の情報を参考に
数値を入力するセルの行を変えたいと思っています。

＞簡単なサンプル：
private sub TextBox1_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

●上のＶＢＡを私が作成したＶＢＡにそのまま加えてみたら
何回かテキストボックス１の値がテキストボックス７の合計欄に
入りました。しかし、毎回、値が合計欄に入るわけではなく、
テキストボックス２～６の値も反映されません。

サンプルの「TextBox1」の数値を2～6まで変えて、計7つの
サンプルをＶＢＡに加えてみても、合計欄に結果が反映されません。

具体的に、どのように記入したらよいのか教えていただけないでしょうか。