• ベストアンサー

リストボックス 値を表示

シート上にActiveX コントロールのリストボックスを追加しました。 リストには 1 2 3 と表示させたいのですが、どうやって設定すればいいですか? vbaを使わず値リストを手打ちしたいです。 プロパティを開いて、textプロパティやvalueプロパティに打とうと思ったらエラーになりました。

質問者が選んだベストアンサー

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.2

例えば、セルA1:A3に「1、2、3」と入力し、ListFillRangeプロパティに「A1:A3」と入力します。 (「」はいりません)

FZPXZHKXAFOQI
質問者

お礼

ありがとうございます。

その他の回答 (1)

  • kkkkkm
  • ベストアンサー率65% (1606/2443)
回答No.1

リストにしたい値をセルの入力しておきListFillRangeに設定します。たとえD1からD3に値を入れておいてListFillRangeにはD1:D3とします

FZPXZHKXAFOQI
質問者

お礼

ありがとうございます。

関連するQ&A

  • リストボックスの値をVBAで表示させる方法をご教授

    ListFillRangeプロパティを使わずに、ActiveXコントロールのリストボックスにVBAで値を入力するには? OLEObjectsとAddItemメソッドでできるはずなのですが うまくできません。 シート上のリストボックスに あああ いいい ううう とVBAで表示させる方法をご教授ください。

  • リストボックスにシートの値を表示させたいのですが

    vbaでシートのリストボックスにシートの値を表示させたいのですが シートモジュールでこのコードを実行しようとしてもエラーになり出来ないのですが どこが間違ってますか? Sub リストボックスに値を表示する() Me.ListBox1.RowSource = Range("c1:c10").Value End Sub Me.ListBox1.Value = Range("c1:c10").Value もエラーになりました。

  • フォームのリストボックスに値を表示させたい

    VBA フォームのリストボックスに値を表示させたい A1→aaa A2→bbb リストボックスに上記の値を表示させたいなら、 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!A1:A2" End Sub で出来ますが、シート上のセルで表示する値を指定するのではなく、VBA上で、リストボックスに表示させる値を指定したいのです。 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "aaa,bbb" End Sub を実行すると、VBA実行時エラー380になってしまいます。 UserForm1.ListBox1.RowSource = "aaa;bbb" もダメでした。 ご回答よろしくお願いします。

  • リストボックスの全ての値を取得するには?

    エクセルのシート上のリストボックスに あああ いいい が表示されてるとして、 その二つの値をコマンドボタンを押した際に取得したいのですが Private Sub cmd_取得_Click() MsgBox Me.ListBox1.Value End Sub だと現在リストボックスで選択中の値しか取得されません。 リストボックスであああが選択中なら、 あああしか返ってきません。 あああ、いいいをVBAで取得する方法を教えてください。

  • シート上のリストボックスに値を表示するには?

    エクセル2003です。 コントロールツールボックスからシートにリストボックスを設置しました。 ここに値を指定するにはどうすればいいでしょうか? フォーム上のリストボックスなら Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub とすればいいのですが シートのイベントにInitializeはありません。 どこのイベントプロシージャーに 「リストボックスに値を表示する」というコードを書けばいいのでしょうか? シートモジュールにに Private Sub ListBox1_Click() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub としても何も起こりません。 できればファイルを開いた時からリストボックスに値を表示させるようにしたいです。 ご教授よろしくお願い致します。

  • エクセル2013のリストボックス

    エクセル2010でワークシート上に配置したリストボックスがあります。 ActiveXではなくフォームコントロールのリストボックスです。 これに11項目のリストを設定してあります。 2010ではまったく問題がないのですが、エクセル2013で開くと下の2項目が選択できません。 2010と2013では互換性がないのでしょうか?

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

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

  • Access リストボックスの値リストについて

    リストボックスの値リストを「クエリ等で生成」+「固定で追加」 という事は可能でしょうか。 例えば、クエリにて「大阪府」・「兵庫県」と抽出したものに加えて 「全て」という固定値を値リストに加えたいのですが。 クエリで取得した値と、追加したい固定値をVBAで 「"大阪府";"兵庫県";"全て"」の形にできれば、あとはRowsourceにセットしてやれば良いのですが、 その具体的な方法が思いつきません。

  • リストボックスの値を拾うには

    リストボックスの値を拾うには 以下のボタンコマンドでListBox1のListIndexから配列二番目の値を「hinban」という変数に取り込みたいのですがうまくいきません。 「hinban = ListBox1.List(ListBox1.ListIndex, 1)」という行を書いてみましたが 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」とアラートが出てしまいます。 VBA初心者です。 解決法を教えてください。 Private Sub CommandButton1_Click() Dim lastRow As Long Dim i As Integer With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'For i = 1 To 3 '.Cells(lastRow, i).Value = ListBox1.List(ListBox1.ListIndex, i - 1) hinban = ListBox1.List(ListBox1.ListIndex, 1) 'Next i End With End Sub

  • excelでリストボックスで選択した値に定められた値を返す

    excel2000で計算シートを作っています リストボックスで会社名をえらぶと 例:A社 B社 C社 ・セルC2に、A社なら1000 B社なら1200 C社なら800 とあらかじめ定められた値を返す 関数で、値を返すことはできるのですが リストボックスを範囲として指定できないのでしょうか? また、上記をVBAを使わずに、設定することは可能でしょうか? 宜しくお願いいたします

専門家に質問してみよう