• 締切済み

入力値をListボックスに表示させたい。

(仕様1) ユーザーフォーム1でテキストボックス1~5に 入力した値をListボックスに表示させたい。 例えば textbox1=A,textbox2=B,textbox3=C・・・ と入力されたら、 A B C D E のように順に横方向一列に表示させるようにしたいです。 (仕様2) これをコマンドボタン1を押す度にリストボックス1に新しく追加されていく 様にしたいのですが、できますでしょうか。 例えば、 A B C D E A C D B E (テキストボックスに入力後ボタン1を押す) A C B D E (テキストボックスに入力後ボタン1を押す)

みんなの回答

回答No.1

同じユーザーフォーム内のリストボックスに追加でしょうか？ ListBox1だとして、 ListBox1.AddItem(textbox1 & textbox2 & textbox3 … ) とか。 > (仕様1) > ユーザーフォーム1でテキストボックス1~5に > 入力した値をListボックスに表示させたい。 テキストボックスに入力した段階で表示？ こっちはかなり面倒だと思いますが。 ・リストの何番目に表示するの？ ・1文字入力、削除するたびに更新？ ・途中で入力やめたらそのまま？何がどうなったら途中で入力やめた事になるの？ とか、処理でなくて、仕様が。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • チェックボックスの配置順にテキストボックスに表示

    accessのフォームにチェックボックスを配置し チェックされたものをテキストボックスに表示させています。 ■A　■B　□C　□D　■E となっていたら、テキストボックスに A B E と表示させています。 チェックボックスの真ん中に新しくチェックボックスを追加すると テキストボックス内には、追加したものが最後に表示されていまいます。 ■A　■B　□C　■Z　□D　■E とすると、テキストボックスには A B Z E と表示させたいのに A B E Z 表示されてしまいます。 いちから順番どおりに作り直せばいいのですが かなりたくさんチェックボックスがあるうえに 上司から、この先も何度も作り直しを指示されそうです・・・。 できれば簡単に、配置した順にテキストボックスに表示されるようにしたいです。 チェックボックスの配置順に テキストボックスに文字を表示させる方法を教えてください！

  • Excelで検索結果をテキストボックスに表示

    Excelユーザーフォームにテキストボックス４つとコマンドドボタン１つを作成して、TextBox1に検索項目を入力しボタンを押すとA列を検索してB列、C列、D列の検索結果をTextbox2(B列）、textbox3(C列）、textbox4(D列）に表示する。 A列に同じ項目があったら、ボタンを押すと次の検索結果をTextboxに表示するマクロを教えてください。

  • VBA コンボボックス　リスト表示について

    初心者ですいません エクセル　VBAのフォームでコンボボックス３つと、テキストボックス３つがあります シートのListにA～Ｆ列までのデータがあり、コンボボックス１にA列のリストを表示し コンボボックス２にA列で選んだリストを参照したB列のリストを表示し、コンボボックス３ にコンボボックス１，２で選んだリストを参照し、C列のリストを表示した後、 コンボボックス１，２，３で選ばれたもののD列、E列分をテキストボックス１，２に 反映しようと思っておりますがうまくいきません どのようにしたらよいか、おしえてください 宜しくお願いします ちなみに、リストの内容は Ａ列　　　Ｂ列　　　C列　　　　　Ｄ列　　　Ｅ列 テレビ　42インチ　　HDD内蔵　　台　　　　100,000 テレビ　32インチ　　BD内蔵　　　台　　　　　80,000 テレビ　19インチ　　　　　　　　　 台　　　　　50,000 ビデオ　HDD　　　１TB　　　　　台　　　　100,000　　 ビデオ　HDD　　　500GB　　　 台　　　　　80,000 ビデオ　BD　　　　　　　　　　　 台　　　　　70,000 が、入ってます 希望は、質問の際のカテゴリ選択のようになればよいのですが．．． さらに、希望を言えば、自動で、行ごとに1,2,3...と番号を振るようにしており スピンボタンで番号を選べば、登録された上記のデータをフォームに反映させるようにしております これもうまくいきません お願いばかりで申し訳ありませんが 宜しくお願いします

  • リストボックスの値取得方法について

    VBAでリストボックスを使用しています。リストボックスの中には、A,B,C,D,Eと表示されています（カンマは行とします。 つまりリストボックスには5行表示されています）。選択はされていない状態です。この状態でボタンを押すことにより ループで各行の値を取得したいと思っています。listcountを利用してlistcountの数までループをまわし、各行の値を 取得したいです。値というのは、A,B,C,D,Eです。この値を配列なり変数なりにいれたいのです。 どのリストボックスのプロパティを利用すれば、選択されていないリストボックスの各値を取得することができるでしょうか？

  • リストボックスの並び替え

    VB.NETについて質問です。 ボタン１をクリックしたら、テキストボックス１に入力した文字を、リストボックス１に登録するとします。 この時、名前、年齢を入力します。 これを、ボタン２、３、をクリックしたら、リストボックスの内容を、名前順、年齢順に並べ替えたいです。 どうしても分かりません。 並べ替えるにはどうしたらいいでしょうか？

  • テキストボックスの表示について

    いつもお世話になります。VBAで質問があるのですが、ユーザーフォームを作り、コマンドボタンとテキストボックスを配置します。 Private Sub CommandButton1_Click() Dim i As Long 　For i = 1 To 30 　　TextBox1.Text = i & "を入力しました" 　　Worksheets("Sheet1").Range("A1").Value = i & "回目です" 　Next i End Sub と入力して実行すると、セルには1～30回まで順に書き込みがありますが、テキストボックスには最後の「30を入力しました」しか表示されません。 これを「1を入力しました」、「2を入力しました」、「3を・・・」というようにテキストボックスに順に表示させるにはどのようにしたらよいのでしょうか？ よろしくお願いします。

  • リストボックスの文字色を変更

    初心者です。 リストボックスＡの値をボタンクリックによってリストボックスＢに移すとき、 適当な値の文字色を変更したいのですができるでしょうか？ valueを1と0に区別してボタンクリックで1のものだけ色をつけてリストボックスに追加されるようにしたいです。 教えてください。説明が下手かもしれませんが、よろしくお願いします。 ()はvalue A(0)　　　　A B(0) →　 B　 C(1)　　　　C(←この文字色を変化) D(0) 　　　　D

  • execlでリストボックスへの入力

    エクセルでシート１のコマンドボタンが押されたらシート２の一覧表を リストボックスやテキストボックス等に表示させたいのですが、どのようにマクロを書けばいいのでしょうか？教えて下さい。 例）シート２ 　　A 　　　B 1 名前１　点数１ 2 名前２　点数２ 3 名前３　点数３ 上記の表をボタンが押されたらボックスに名前１～点数３まで表示したいのですが！

  • テキストボックスの表示について

    visual basic2010を使用しています。 コンボボックスAの選択が１~4だった時、コンボボックスB、C、Dの選択された結果を、ボタンクリックを経てテキストボックスに表示させるにはどうすればいいでしょうか？ If ComboBox1.Text = "1" Then TextBox1.Text = (ComboBox2.Text) TextBox1.Text = (ComboBox3.Text) TextBox1.Text = (ComboBox4.Text) ElseIf ComboBox1.Text = "2" Then TextBox2.Text = (ComboBox2.Text) TextBox2.Text = (ComboBox3.Text) TextBox2.Text = (ComboBox4.Text) ElseIf ComboBox1.Text = "3" Then TextBox3.Text = (ComboBox2.Text) TextBox3.Text = (ComboBox3.Text) TextBox3.Text = (ComboBox4.Text) Else TextBox4.Text = (ComboBox2.Text) TextBox4.Text = (ComboBox3.Text) TextBox4.Text = (ComboBox4.Text) End If 実行した結果、ComboBox4のみの結果がテキストボックスに表示されてしまいました。 '変数を使った場合 If ComboBox2.Text = "1" Then Dim st As String st = (ComboBox3.Text),(ComboBox4.Text),(ComboBox5.Text) textbox1.Text = st ElseIf　～～～～～～～～～～＾ こちらは「ステートメントの終わりを指定してください」と出て動作しませんでした。 以上、宜しくお願い致します。

  • VBAのTextBox表示について質問します。

    実は、MicrosoftのExcel内にありますVBAを使ってシート内に記載られている内容を Userform内にあるTextBoxに表示させたいと考えています。 UserformにあるTextBoxは、シートのセルに対してTextBoxを1個配置させています。 例えば・・・セルA1に入力されている文字をTextBox1に表示 セルB1に入力されている文字をTextBox2に表示 セルC1に入力されている文字をTextBox3に表示 セルD1に入力されている文字をTextBox4に表示 セルE1に入力されている文字をTextBox5に表示と言う様な感じで表示したいです。 セル表示範囲は、A1～E24までのセルでTextBoxもTextBox24まで存在します。 TextBox1.Text = ThisWorkbook.Sheets("Sheet1").Range("A1") TextBox2.Text = ThisWorkbook.Sheets("Sheet1").Range("B1") TextBox3.Text = ThisWorkbook.Sheets("Sheet1").Range("C1") TextBox4.Text = ThisWorkbook.Sheets("Sheet1").Range("D1") TextBox5.Text = ThisWorkbook.Sheets("Sheet1").Range("E1") TextBox6.Text = ThisWorkbook.Sheets("Sheet1").Range("A2") TextBox7.Text = ThisWorkbook.Sheets("Sheet1").Range("B2") TextBox8.Text = ThisWorkbook.Sheets("Sheet1").Range("C2") TextBox9.Text = ThisWorkbook.Sheets("Sheet1").Range("D2") TextBox10.Text = ThisWorkbook.Sheets("Sheet1").Range("E2") 以降～途中省略 TextBox120.Text = ThisWorkbook.Sheets("Sheet1").Range("E24") と言う様な・・・ 上記の、この様なコードでして行くと事は可能なんですが・・・ もっと短く出来ないでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する