• ベストアンサー

エクセルVBA フォームのDropDownのリストが幾つあるか取得するには？

いつもお世話様です。エクセル2000です。 コントロールツールボックスではなく、フォームのコンボボックス(DropDown)のリストが幾つ設定してあるかをVBAで取得する方法を教えてください。ためしに下記のようにやったらエラーでした。 Sub TEST01() MsgBox Worksheets("入力").DropDowns("Drop Down 1").ListIndexes.Count End Sub

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

  • ベストアンサー
  • masa_019
  • ベストアンサー率61% (121/197)
回答No.1

こんにちは。 MsgBox Worksheets("入力").DropDowns("Drop Down 1").ListCount で良いと思います。

merlionXX
質問者

お礼

ListCountでしたかあ！ ありがとうございます。バッチリでした！

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルVBAでフォームの無効化

    エクセル2000です。 ワークシート上に配置した、フォームのDropDown (コンボボックス)を一定の条件下で無効にしようと思い、下記のTEST1のようにやってみました。 Sub TEST1() ActiveSheet.Shapes.Range(Array("Drop Down 7", "Drop Down 8", "Drop Down 9")).Select Selection.Enabled = False End Sub うまくいきました。そこで Sub TEST2() ActiveSheet.Shapes.Range(Array("Drop Down 7", "Drop Down 8", "Drop Down 9")).Enabled = False End Sub のように書き換えたところ実行時エラーがでました。 下記のようにばらせばうまくいきますが、どうしてTEST2ではダメなのかわかりません。 ご教示ください。 Sub TEST3() With ActiveSheet .DropDowns("Drop Down 7").Enabled = False .DropDowns("Drop Down 8").Enabled = False .DropDowns("Drop Down 9").Enabled = False End With End Sub

  • エクセルVBAでフォームの無効化（2）

    http://odn.okwave.jp/kotaeru.php3?q=1942213　の質問の追加質問なのですが、 ワークシート上に配置したフォームのコンボボックス（DropDowns）をマクロにて無効とさせる方法です。 シート保護されている場合、 DropDownオブジェクトを個別に指定して Sub TEST3() With ActiveSheet .DropDowns("Drop Down 7").Enabled = False .DropDowns("Drop Down 8").Enabled = False .DropDowns("Drop Down 9").Enabled = False End With End Sub とすると、OKなのですが、コレクションオブジェクトとしてまとめてやろうとして、 Sub TEST4() With ActiveSheet .DropDowns.Enabled = False End With End Sub とするとエラーになります。 シート保護のない場合は両方ともOKです。 どういう違いなのでしょうか？

  • Excel VBAでフォーカスを移動しない方法

    Excel VBA リストのソースを設定してあるコンボボックスから次のコンボボックスに移動する際、入力にエラーあれば フォーカスを移動しないようにするコードはどのようにすればいいのですか？ 現在は Private Sub [コンボボックス名１]_Exit(ByVal Cancel As MSForms.ReturnBoolean) If [コンボボックス名２] = "" Then MsgBox "値が不正です。", vbInformation, "フォーム名" End If End Sub としています。

  • エクセルＶＢＡユーザーフォーム・リストボックスについて

    エクセルＶＢＡにてユーザーフォームを作りリストボックスにSheet1、AからEのデータすべてを 表示させることは出来るのですが、Ｅ行にデータがある物のみ表示する方法をご存じの方教えて頂けないでしょうか。 入力したソースは下記のとおりです。 Private Sub UserForm_Click() Dim lastRow As Long With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, 5).End(xlUp).Row End With With ListBox1 .ColumnCount = 5 .ColumnWidths = "35;25;30;100;25" .RowSource = "Sheet1!A2:E" & lastRow .ColumnHeads = True End With End Sub

  • エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタン

    エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタンについて教えてください。 実はこれまでフォームしか使ったことがないのですが、フォームのボタンですと、下記のように一つのプロシージャを多数のボタンから呼び出し、呼び出したボタンにより異なった指示が出来ます。 Sub test() x = Application.Caller Select Case x Case "ボタン 1" MsgBox 1 Case "ボタン 2" MsgBox 2 Case "ボタン 3" MsgBox 3 Case "ボタン 4" MsgBox 4 End Select End Sub コントロールツールボックスは Private Sub CommandButton1_Click() MsgBox 1 End Sub Private Sub CommandButton2_Click() MsgBox 2 End Sub のようにコマンドボタンごとにひとつずつ書くしかないのでしょうか？

  • エクセルVBAでフォームのListboxのリストの数を取得するには？

    ワークシート上に貼り付けたリストボックスがあります。 このリストボックスはOLEObjectではなくフォームのリストボックスです。 このリストボックスにリストが何項目セットされているのか取得したいのです。 Set myLb = ActiveSheet.ListBoxes(Application.Caller) MsgBox myLb.Name MsgBox myLb.ListIndex.Count とやってみたところ、名前は取得できましたが、項目数はエラーになってしまいました。 あと、可能ならListの2番目にセットされている項目の文言を取得する方法もあれば知りたいと思います。 宜しくお願いします。

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

    今データ入力用のフォームmainがあります。 そこで複数のデータを入力していくのですが、そこでわからなくなりました。 入力用コンボボックスがひとつだけのときは Private Sub userform_Initialize() Dim 配列(2) 配列(0) = "データ1" 配列(1) = "データ2" 配列(2) = "データ3" 入力用コンボ.List = 配列 End Sub Private Sub 入力用コンボ_Change() MsgBox 入力用コンボ.ListIndex End Sub としていたのですが、複数になった場合の理屈を含めわかりません。 一つの入力用フォームにコンボボックスが複数あった場合はどうすればよいのですか？

  • 同じコンボボックス、リストボックスを使うには？

    よろしくお願いします。 今、ユーザーフォームを使って製造計画表を作っています。 コンボボックスで会社名、リストボックスで会社ごとの製品名を選択させるとこまで出来ました。 １日に３つの製品を作ることが出来るので、同じ中身のコンボボックス、リストボックスを使って３つ作りたいと思っています。 ユーザーフォームの形的にはこのような感じですが。 １．　コンボボックス　　リストボックス ２．　コンボボックス　　リストボックス ３．　コンボボックス　　リストボックス 今は、１．のとこだけは出来たのですが、２．３．は１．と同じコードをコピーして必要と思われるとこだけをコンボボックス２と変えたりしてみたのですが、上手くいきませんでした。こんなコードですが。 Private Sub UserForm_initialize() 'ComboBox1セット Dim ico As Long ico = 1 With ThisWorkbook.Worksheets("Sheet1") Do While .Cells(1, ico) <> "" Me.ComboBox1.AddItem .Cells(1, ico).Value ico = ico + 1 Loop End With Me.ComboBox1.SetFocus End Sub Private Sub ComboBox1_Change() 'ListBox1セット Dim ico As Long 'Me.ListBox1.Clear ico = Me.ComboBox1.ListIndex + 1 With ThisWorkbook.Worksheets("Sheet1") Me.ListBox1.List = .Range(.Cells(2, ico), _ .Cells(.Cells(Rows.Count, ico).End(xlUp).Row, ico)).Value End With End Sub ＶＢＡも初めたばかりで質問の内容もわかりづらいとも思いますが、よろしくお願いします。

  • コンボボックスの開いたリストを閉じるには

    コンボボックスのリストを開くのはComboBox1.DropDownでできますが、閉じるのはどういう風にやればいいでしょうか。 今ユーザーフォームで Private Sub Combobox1_Change() ComboBox1.Clear v = ComboBox1.Text For i = 1 To 300 c = Worksheets("Sheet1").Cells(i, "A") If v = Left(c, Len(v)) And Len(v) > 0 Then ComboBox1.AddItem c End If Next i ComboBox1.DropDown End Sub と言う風にしていますが、リストを開きっぱなしだと変な表示になってしまい、マウスクリックで一旦閉じてから開かないと変な表示になってしまうのです。 そこで一旦リストをマクロで閉じさせてから再び開きたいのですが、どうすればいいでしょうか。

  • エクセルでフォームを作成しています。（VBA）

    エクセルでフォームを作成しています。（VBA） フォームＡで作成してあるリストボックスから選択して 取得した番号を フォームＢにもってきて、その番号をもとにVLOOKUPで ほかのテキストボックスに値を持ってこようとしている のですがうまくいきません。 フォームＡのリストボックスにはsheet1の名簿が 表示されています。 クリックで選択した名簿番号を取得して、フォームＢにある 個人のページでその他の詳細を出そうとしています。 名簿番号はフォームＢの名簿番号.Textに持ってこれたのですが その名簿番号をVLOOKUPで研究名を出そうとしてもうまくいきません。 コードのどこがだめなのか分かりません。 VBA入門者です。 よろしくお願いいたします。 --------------------- Private Sub 決定_Click() Dim ADR As Variant On Error GoTo ExitER Set ADR = Worksheets("sheet1").Range("A:F") 研究名.Text = Application.WorksheetFunction.VLookup(名簿番号.Text, ADR, 4, False) On Error GoTo 0 Exit Sub ExitER: MsgBox "一致するコードがありません" On Error GoTo 0 End Sub ---------------------

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する