- 締切済み
エクセルＶＢＡユーザーフォーム「テキストボックス」「コンボボックス」の書式設定について
ユーザーフォームを作成して、出荷実績を投入しようとしています。 現在、ユーザーフォームを作成して、 上から以下のようにボタンが並んでいます。 (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
- donald1982
- お礼率41% (73/174)
- オフィス系ソフト
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- keithin
- ベストアンサー率66% (5278/7941)
- keithin
- ベストアンサー率66% (5278/7941)
１．コンボボックスの表示を折り返すことは出来ません。 ２．今はどうやら入力するごとにシートの入力行を＋１ずつしているようですが，ちなみに「５行目」「６行目」とはもうちょっとエクセル上の姿としてどこの事を言ってるのですか？ 文字通りにとらえると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つの サンプルをＶＢＡに加えてみても、合計欄に結果が反映されません。 具体的に、どのように記入したらよいのか教えていただけないでしょうか。
補足
TextBoxのイベントを確認しても、どのように書式を設定したら よいのか理解できませんでした。 マクロを使い始めて数か月。 独特のマクロの記述方法を理解できていません。 詳しく紹介されている良いサイトや本などはありませんか？