• ベストアンサー

EXCEL　VBA　コンボボックスでのLISTINDEXの値

初めて質問させていただきます。 EXCEL VBAでコンボボックスを設定したときのLISTINDEXの値についてですが、 コンボボックスがフォーム内に３つ（ComboBox1,2,3)あり、次のようなコードの入力を行い、 ComboBox1 Sub Userform_Intialize() 　With CcomboBox1 　　AddItem"AAA" '・・・ここの値は0ですね 　　AddItem"BBB" '・・・ここの値は1ですね 　End With End Sub sub ComboBox1_Change() 　Me.combobox2.Clear 　Select Case Me.ComboBox1.ListIndex 　　Case 0 　　Me.ComboBox2.AddItem "2AAA" '・・・ここの値は0ですね 　　 Me.ComboBox2.AddItem "2BBB" '・・・ここの値は1ですね 　　Case 1 　　Me.ComboBox2.AddItem "2CCC" '・・・ここの値は何になりますか？ 　　Me.ComboBox2.AddItem "2DDD" '・・・ここの値は何になりますか？ 　End Select End Sub このcombobox2の4つの項目から、 更にcombobox3の選択項目に分岐するように設定したいのです。 わかりやすいように、ComboBox3もComboBox2のように作成したいのですが、 このように入力した場合、ComboBox2で"2CCC"を選択した場合、 ListIndexの値が2ではないようなのです。 この"2CCC"と"2DDD"のListIndex値はいくつになるのでしょうか？ どなたか教えて下さい。

noname#76636
noname#76636

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

  • ベストアンサー
  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

　Me.combobox2.Clear＜＝としているので 　Select Case Me.ComboBox1.ListIndex 　　Case 0 　　Me.ComboBox2.AddItem "2AAA" '・・・ここの値は0ですね 　　 Me.ComboBox2.AddItem "2BBB" '・・・ここの値は1ですね 　　Case 1 　　Me.ComboBox2.AddItem "2CCC" '・・・ここの値は何 0 　　Me.ComboBox2.AddItem "2DDD" '・・・ここの値は何 1 　End Select ではないでしょうか？ 試しに、 Sub ComboBox2_Change() MsgBox ComboBox2.ListIndex End Sub といれて、ComboBox2を操作してみては如何でしょう。

noname#76636
質問者

お礼

どうも有難うございます。その通りでした。

その他の回答 (1)

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

＞Me.ComboBox2.AddItem "2CCC" '・・・ここの値は何になりますか？ ＞Me.ComboBox2.AddItem "2DDD" '・・・ここの値は何になりますか？ 検証してないですが、0と1ではないでしょうか？ Select Case　で　Me.ComboBox1.ListInde　の値が0か1かで処理を変えてますから、 ComboBox2　に４つの値が入らないのでは？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセル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 どのように修正すればいいでしょうか？ よろしくお願いします。

  • Excel VBAでコンボボックスで選択

    コンボボックスで選択したいと思っていますがうまくいきません。 教えてください。 Private Sub userform_initialize() 　With ComboBox2 　　.Font.Size = 12 　　.AddItem "A" 　　.AddItem "B" 　　.AddItem "C" 　End With If ComboBox2 = "A" Then 　With ComboBox3 　 .Font.Size = 12 　.AddItem "a-1" 　.AddItem "a-2" 　End With ElseIf ComboBox2 = "B" Then With ComboBox3 　 .Font.Size = 12 　.AddItem "b-1" .AddItem "b-2" End With Else: ComboBox2 = "C" With ComboBox3 .Font.Size = 12 .AddItem "c-1" .AddItem "c-2" End With End If End Sub コンボボックス2で"A"を選んだら、コンボボックス3には"a-1とa-2"の選択したい のですが、"c-1,c-2"しかでません。よろしくお願いします。

  • エクセルVBAのコンボボックス

    エクセル2002使用です。 生年月日とかを入力できるコンボボックスを作っているのですが、同じコンボボックスを５つ作ろうとしています。例えば和暦を入力するには Private Sub userform_initialize() With ComboBox(1) .AddItem "昭和" .AddItem "平成" End sub でうまくいくのですが、2個目から5つ目まで同じものを作成する場合、 With ComboBox(2) ・・・ With ComboBox(3) ・・・ と、コードを記述していかないと駄目なのでしょうか？ できれば With ComboBox(1: 5) とか、 変数を使って Private Sub userform_initialize() Dim i As Integer For i = 1 To 5 With ComboBox(i) .AddItem "昭和" .AddItem "平成" End With Next End　sub といった具合にまとめたいのですが、コンパイルエラーとなってしまいます。 初歩的な質問で申し訳ないのですが、よろしくお願いします。

  • エクセルVBAコンボボックスについて

    図の左のように、商品リスト欄のセルA3から下方向に大分類（A16まで14種類） セルB3～O3（Bから数えて14個目のO）列から下方向に小分類があります。 P2～P11には1から10までの数字が入っています。 図の右側がユーザフォームで、コンボボックスの番号を入れています。 コンボボックス「1.4.・・・28.」までは大分類を選べるようにして、 コンボボックス「2.5.・・・29.」までは左の大分類に応じた小分類の値を表示させたいと思っています。 大分類「111」→小分類「あ～そ」　大分類「222」→小分類「た～と」といった具合です。 そのコンボボックスの値を指定したセルに入力しようと思っています。 下のように記述した結果、問題が発生しました。 (1)大分類で14個ほどあるリストの3つほどしかでてこない。 (2)Select Caseの構文を使用していて、大分類が14個だから「Case 13」までと しているが、「大分類の数-1」までの変えられる数までにしたい。 アドバイスをいただけると助かります。 ------------------------------------------------------------------ Private Sub UserForm_Initialize() Dim MyVar1 As Variant MyVar1 = Sheets("商品リスト").Range("A3:A" & Range("A3").End(xlDown).Row) Dim MyVar20 As Variant MyVar20 = Sheets("商品リスト").Range("P2:P" & Range("P2").End(xlDown).Row) '種類欄を指定 With ComboBox1 .List() = MyVar1 End With ※・・・（省略）・・・　コンボボックス4から25まで※ With ComboBox28 .List() = MyVar1 End With '数量欄を指定 With ComboBox3 .List() = MyVar20 End With ※・・・（省略）・・・　コンボボックス6から27まで※ With ComboBox30 .List() = MyVar20 End With End Sub '1番目 Private Sub ComboBox1_Change() Dim MyVar1 As Variant ※・・・（省略）・・・ MyVar2～13 As Variant※ Dim MyVar14 As Variant Dim MyVar20 As Variant MyVar1 = Sheets("商品リスト").Range("A3:A" & Range("A3").End(xlDown).Row) ※・・・（省略）・・・ B列からＮ列まで※ MyVar15 = Sheets("商品リスト").Range("O3:O" & Range("O3").End(xlDown).Row) MyVar20 = Sheets("商品リスト").Range("P2:P11") Select Case ComboBox1.ListIndex Case 0 With ComboBox2 .List() = MyVar2 End With ※・・・（省略）・・・ Case1～ Ｃａｓｅ12 ※ Case 13 With ComboBox2 .List() = MyVar15 End With End Select End Sub

  • エクセルVBA　ユーザーフォームのリストボックス

    エクセルVBAのユーザーフォームのリストボックスについて教えてください。 現在、以下のようにコードがされています。 Private Sub UserForm_Initialize() With UserForm.ListBox1 .AddItem "ABC" .AddItem "DEF" .AddItem "GHI" .ListIndex = 0 End With End Sub Private Sub ListBox1_Click() With ListBox2 .Clear Select Case UserForm.ListBox1.List(ListBox1.ListIndex) Case "ABC" .AddItem "123" .AddItem "456" .AddItem "789" Case "DEF" .AddItem "456" .AddItem "789" Case "GHI" .AddItem "789" End Select .ListIndex = 0 End With End Sub それで、ユーザーフォームを起動した時点で、ListBox1には"ABC"、ListBox2には"789"を選択し、青く色がついている状態にすることは可能でしょうか。 よろしくお願いします。

  • VBA　コンボボックスのコード記述位置について

    初心者です。初歩的な質問でお恥ずかしいのですが、コンボボックス用のコードを 記述するには「Private Sub UserForm_Initialize()」の下に記述するしかないのでしょうか。 例えば、縦長のユーザーフォームに上からコンボボックス1、コマンドボタン、コンボボックス2を 配置した場合、コードの記述をコンボボックス1の処理、コマンドボタンの処理、コンボボックス2の処理と、順番通りに記述することは出来るのでしょうか？ 現在はこのようにコードを記述しています。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "赤色" .AddItem "青色" .AddItem "黄色" End With With ComboBox2 .AddItem "緑色" .AddItem "黒色" .AddItem "紫色" End With End Sub Private Sub CommandButton1_Click() MsgBox "テスト" End Sub 本当であれば、下記のように順番通りに記述したいです。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "赤色" .AddItem "青色" .AddItem "黄色" End With End Sub Private Sub CommandButton1_Click() MsgBox "テスト" End Sub With ComboBox2 .AddItem "緑色" .AddItem "黒色" .AddItem "紫色" End With End Sub With ComboBox2の上に、必要なコードを記述すればできるのでしょうか。 ご教示下さい。

  • VBA　コンボボックスの値による条件分岐

    １２カ月分のブックがあり、 コンボボックスで指定した月のブックを開くマクロはどう記述すれば良いでしょうか？ BOOK（"1月"）のSheet1にコンボボックス１と コマンドボタン１があります。 コンボボックスには下記をリストにしています。 Private Sub Workbook_Open() With Worksheets("Seet1").ComboBox1 .AddItem (" ２月") .AddItem (" ３月") .AddItem (" ４月") .AddItem (" ５月") .AddItem (" ６月") .AddItem ("７月") .AddItem ("８月") .AddItem ("９月") .AddItem ("１０月") .AddItem ("１１月") .AddItem ("１２月") End With End Sub Private Sub CommandButton1_Click() If ComboBox1.Value = "２月" Then Workbooks.Open Filename:="C:\testBook\２月.xlsm" ElseIf ComboBox1.Value = "2011年度 ３月売上" Then Workbooks.Open Filename:="C:\testBook\３月.xlsm" 　　　　中略 End If End Sub 上記ではエラーとなります。 基本もままならない素人で申し訳ありませんが、 ご教授願います。

  • エクセル　リストボックスの複数の値を取得

    Sheet1にユーザーフォームに ListBox1とCommandButton1を配置しました。 ListBox1で複数選択した値をCommandButton1を押した後、指定のセル範囲内 （B5:B10）へ順に、1つずつ下に反映したいのですが、うまくいきません。 ListBox1 AAA BBB CCC DDD で　BBBとCCCを複数選択した際に Sheet1のセルB5　へ　BBB Sheet1のセルB6　へ　CCC という具合です。 セルB10以下の行は他の数式等で使用しています。 Private Sub UserForm_Initialize() 　　With ListBox1 　　　　.AddItem "AAA" 　　　　.AddItem "BBB" 　　　　.AddItem "CCC" 　　　　.AddItem "DDD" 　　End With End Sub Private Sub CommandButton1_Click() 　　Dim lastRow As Long 　　With Worksheets("Sheet1") 　　　　lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1←このあたりがさっぱり 　　　　.Cells(lastRow, 1).Value = UserForm6.ListBox1.Value←このあたりがさっぱり 　　End With End Sub 初心者の質問で申し訳ありませんが、よろしくお願いいたします。

  • Excel VBAのコンボボックス

    お世話になります。 コンボボックス1と2と3は選択されますが コンボボックス4には何の表示もされません。 選択して条件設定は４つ以上できないのでしょうか？ Dim ITE As Variant Dim flg As Variant Private Sub ComboBox3_Change() 'ComboBox4セット Dim ico As Long ico = 1 With ThisWorkbook.Worksheets("data") KEY = Me.ComboBox1.Text KEY2 = Me.ComboBox2.Text KEY3 = Me.ComboBox3.Text Me.ComboBox4.Clear Do While .Cells(ico, 1) <> "" If .Cells(ico, 1) = KEY And .Cells(ico, 2) = KEY2 And .Cells(ico, 3) = KEY3 Then ITE = .Cells(ico, 4).Value flg = 0 For I = 0 To Me.ComboBox4.ListCount - 1 If ITE = Me.ComboBox4.List(I) Then flg = 1 Next If flg = 0 Then Me.ComboBox4.AddItem ITE End If ico = ico + 1 Loop End With Me.ComboBox4.SetFocus End Sub

  • コンボボックスの値を連動させたい

    コンボボックスの値が変わらずに悩んでいます。 .listindexではプロパティしか確かめられないことがわかりました。 .Textだと直接記述しないといけません。 Select Case ◎◎.ListIndex Case 0 To 5 ××.ボックス.****** Case 6 To 7 ××.ボックス.****** End Select *****のところを別のに変えればなんとかなりそうなんですが、どうすればよいのでしょうか？直接値を代入しない方法で簡単な方法があれば教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する