締切済み

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

2014/11/02 18:25

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

ovvqgasvhcbe
お礼率92% (35/38)

Excel（エクセル）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

keithin
ベストアンサー率66% (5278/7941)

2014/11/02 18:56 回答No.1

通常は activesheet.listbox1.additem "aaa" で十分ですが、oleobjectsから呼びたいなら activesheet.oleobjects(1).object.additem "bbb" のようにします。oleobjects(index)は適切に指定します。

関連するQ&A

リストボックス　値を表示

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

エクセルVBAの質問です。ユーザーフォームを表示し年を選択するコンボボックス１月を選択するコンボボックス２を入力してもらいユーザーフォームを閉じるときに sheet1のワークシートのC2セルに「コンボボックス１の値」＋「年」＋と「コンボボックス２の値」＋「月」をつなげて入力できるというようなマクロを考えています。下記の様に考えてみたのですが、うまく入力できませんでした。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "2021" .AddItem "2022" .AddItem "2023" .AddItem "2024" End With With ComboBox2 .AddItem "1" .AddItem "2" .AddItem "3" .AddItem "4" .AddItem "5" .AddItem "6" .AddItem "7" .AddItem "8" .AddItem "9" .AddItem "10" .AddItem "11" .AddItem "12" End With Private Sub CommandButton1_Click() 'ユーザーフォームを閉じる Unload UserForm1 'ユーザーフォームの値をセルC2に入力 With Worksheets("sheet1") .Cells(2, 3).Value = "ComboBox1.Text" & "月" & "ComboBox2.Text" & "日" End With End Sub どのように修正すればいいでしょうか？よろしくお願いします。
シート上のリストボックスに値を表示するには？

エクセル２００３です。コントロールツールボックスからシートにリストボックスを設置しました。ここに値を指定するにはどうすればいいでしょうか？フォーム上のリストボックスなら 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 としても何も起こりません。できればファイルを開いた時からリストボックスに値を表示させるようにしたいです。ご教授よろしくお願い致します。
エクセル　VBAのリストボックス

エクセルのVBAでユーザーフォーム上のリストボックスに文字を入力すると候補がドロップダウンリストに表示され、候補から一つを選択するとドロップダウンリストをとじるといったコードを教えてください。ただし、最終的にリストボックスの値はリストから選ぶのみで、文字を入力するのは候補を表示するためだけに使いたいのです。どなたか、ご教授願います。
フォームのリストボックスに値を表示させたい

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

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

すいません、エクセルVBAのユーザーフォームのリストボックスの表示方法について質問があります。シートのセルに　　 A列　 D列　　　G列 1行りんご　　赤　　　120円 2行　みかん　　黄　　　130円 3行　すいか　　緑 110円 4行　りんご　　赤 160円 . ・・・　　・　　　・・・ . と、50行まで値を入れます。 VBAでユーザーフォームを挿入し、 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "りんご" .AddItem "みかん" .AddItem "すいか" End With End Sub でコンボボックスの値を設定し、次に Private Sub ComboBox1_Change() Dim i As Integer For i = 1 To 50 If Cells(i, 1).Value = ComboBox1.Value Then With ListBox1 .ColumnCount = 3 .AddItem Cells(i, 1) End With End If Next i End Sub このときコンボボックスと同じ値の行について、リストボックスにA列、D列、G列を表示させるにはどうしたらいいのでしょうか。例えばコンボボックスで「りんご」を選択したときに、リストボックスをりんご　赤　120円りんご　赤　160円と表示させたいのですが、 .AddItem Cells(i, 1) では一列だけしか表示できません。 Rowsorceを使ってみたりしましたが、どうにもうまく出来ませんでした。よろしくお願いいたします。
コンボボックスへの値の編集方法について

ACCESSで複数のフォームにコンボボックスを配置しています。どのフォームのコンボボックスにも同じようにコンボボックスの値を設定します。それぞれプロパティの値リストを設定することなく、共通のモジュールを作成してそこでADDITEMできるようにしたいと考えています。モジュールにどのようにコンボボックスを引数として渡したらよいか、またモジュールではどのように引数を受け取り、どのようにadditemしたらよいか教えていただけないでしょうか。よろしくお願いします。
excelのリストボックスで選択した項目をアクティブセルに入力方法

もしかしたら既出かもしれませんが・・・フォームコントロールのリストボックスで入力範囲の指定したリストをリンクするセルをワークシート上にクリックしたセルに入力させる方法はありますか？もし、不可能でしたら、ActiveXコントロールのリストボックスでも構いません。よろしくお願いいたします。
リストボックスの値取得方法について

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

リストボックスの値を拾うには以下のボタンコマンドで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
エクセルVBA・リストボックスに関する質問です。

エクセルVBA初心者です。作成したワークシート名をVBAにてリストボックス内に表示し、それを選択するとそのシートに飛ぶようにしています。 ------------------- Private Sub ListBox1_Change() With ListBox1 Worksheets(.ListIndex + 1).Activate End With End Sub ------------------- Private Sub UserForm_Initialize() Dim wsSheet As Worksheet For Each wsSheet In Worksheets ListBox1.AddItem wsSheet.Name Next wsSheet End Sub ------------------- これではすべてのシートがリストボックス内に反映される為、反映させたくないシート(3シートあるのですが）も一緒に表示されてしまいます。この表示させたくないシートをリストボックス内に表示させない事は可能でしょうか？又、できるとしたら、どんな言語を使用すれば良いのでしょうか？ご教授お願い致します。
Excel VBA ユーザーフォームのコンボボックスに表示する値の入力方法

Excel Xを使用して、VBAのユーザフォームにコンボボックスを作りましたが、どうしてもコンボボックス内に表示する値の入力方法が分かりません。 WEBや本などで「これ」と思われるものを実験していますが、どれも表示することができません。できるだけ詳しく教えていただけませんか? したいことは、　cbocenter　というコンボボックスに値を出します。　値は　List　シートの　A2　から　A18　に入力済みです。　それと値から選択した値を　data　シートの　J列　に　表示させたいのです。（行の指定はできています）本当に困ってます。よろしくお願いします。
エクセル2013のリストボックス

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

エクセルのフォームのリストボックス等を使用して、選んだシートのみを印刷することは出来るのでしょうか。（VBAを使用して）現状・シートが１５枚あります（シート１，２，３，４は条件入力用でシート５～１５は様式でシート５～１５は非表示です）・シート１にリストボックスを配置したいです（リストボックスの選ぶ名前はシート５～１５です）例として・リストボックスでシート７を選んだときに、シート７を印刷したいですその他・リストボックスでなくても、選んだシートが印刷される方法が他にあるのであれば、他の方法でもかまいません。
リストボックスの値の保存

教えて下さい。リストボックスの値がページをめくると白紙に戻ってしまうのはどうしてですか？原因は、リストボックスの選択解除のVBAを入れているからですか・・・？
リストボックスの列見出し（ExcelのVBA）

　ExcelのVBAでのリストボックスコントロールについての質問です。　リストボックスの列見出しを作りたいのですが、なかなか上手く行きません。リストボックスに項目を設定するのはExcelのシートから… ----- WorkSheets("Sheet1").ListBox1.ListFillRange = "A1:B2" 　↑（Sheet1のA1:B2のデータをListBox1に追加する場合）↑ ----- のようにするのではなく… ----- Dim MyList(1,1) ～～～（MyList配列にデータを代入） Userform1.ListBox1.Column = Mylist() ----- 　というように、コードから項目を追加しています。　そこで、列見出しを追加したいと思ったのですが… ----- ListBox1.ColumnHeads = True ----- と記述しても、列見出しは真っ白で、その下に項目が表示されるだけです。　列見出し専用の配列を用意しなければならないというような事はあるのでしょうか？　もしあれば、どのように定義すればよいのでしょうか。　ちなみに、用いているExcelの環境は『Microsoft Excel 2004 for Mac (11.5.6)』、VBAの環境は『Microsoft Visual Basic (11.5)』です。　我流で覚えてきたような知識ですので、とても常識的な事を聞いているかもしれないですが、回答宜しくお願いします。
リストボックス

すいません以下の処理に困っております。リストボックスで値を取得して他のリストボックスにその値を出力したいのですがまったくできません。＜例＞リストボックス１ a b c リストボックス２（上で選択した値を出力） a ちなみに構文は、 ------------------------------------------------------------ Private Sub btn選択_Click() ListBox2.Text = ListBox1.Text 'ListBox1.ListIndex + 1 & ": " & ListBox1.Text End Sub Private Sub CommandButton1_Click() End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) btn選択_Click End Sub Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) btn選択_Click End Sub Private Sub UserForm_Initialize() With ListBox1 .AddItem "スケジューラ" .AddItem "データ変換" .AddItem "DWH Server" .AddItem "PPP Server" .AddItem "ファイヤーウォール" .AddItem "暗号オプション" End With End Sub ---------------------------------------------------- 初心者でまったくできません。御教授をお願いします。
リストボックスの全ての値を取得するには？

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

エクセルのシート上にリストボックスがあるのですが、 vbaで、リストのどの値も選択しないようにするコードと、 vbaでリストの文字を選択するコード、（例えば「a」を選択中にする）方法を教えていただけますか？

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

みんなの回答

関連するQ&A

リストボックス　値を表示

エクセルVBA コンボボックスの値の転記

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

エクセル　VBAのリストボックス

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

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

Excel VBA　リストボックスの複数列表示の方法について

コンボボックスへの値の編集方法について

excelのリストボックスで選択した項目をアクティブセルに入力方法

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

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

エクセルVBA・リストボックスに関する質問です。

Excel VBA ユーザーフォームのコンボボックスに表示する値の入力方法

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

エクセル（VBA)でリストボックス等を使用した印刷方法

リストボックスの値の保存

リストボックスの列見出し（ExcelのVBA）

リストボックス

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

リストのどの値も選択しないようにする　＆リストの文

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

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

みんなの回答

関連するQ&A

リストボックス 値を表示

エクセルVBA コンボボックスの値の転記

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

エクセル VBAのリストボックス

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

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

Excel VBA リストボックスの複数列表示の方法について

コンボボックスへの値の編集方法について

excelのリストボックスで選択した項目をアクティブセルに入力方法

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

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

エクセルVBA・リストボックスに関する質問です。

Excel VBA ユーザーフォームのコンボボックスに表示する値の入力方法

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

エクセル（VBA)でリストボックス等を使用した印刷方法

リストボックスの値の保存

リストボックスの列見出し（ExcelのVBA）

リストボックス

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

リストのどの値も選択しないようにする ＆リストの文

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

リストボックス　値を表示

エクセル　VBAのリストボックス

Excel VBA　リストボックスの複数列表示の方法について

リストのどの値も選択しないようにする　＆リストの文

カテゴリ
一覧

専門家に質問してみよう
専門家登録