エクセル2000。VBAでコンボボックスを作成したのですが、ドロップダウンリストの表示する行の増やし方が分かりません。” 担当者”は20セル(人)指定しています。
プロパティからならListRowsを8から変更すればいいだけなので分かります。ですがVBAで実施したいです。ドロップダウンリスト表示を20に増やすにはどうしたらいいでしょうか?かなり困っていますのでどうぞ宜しくお願いします。
Selection.ListRows = 20
を足したところ、実行時エラー438「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」となりました。
Sub test()
Dim sh As Worksheet
Set sh = Worksheets("Sheet1")
For i = 1 To 100
l = sh.Cells(i, "H").Left
t = sh.Cells(i, "H").Top
w = sh.Cells(i, "H").Width
h = sh.Cells(i, "H").Height
sh.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Left:=l, Top:=t, Width:=w, Height:=h _
).Select
Selection.ListFillRange = "担当者"
Selection.LinkedCell = "H" & i
Selection.PrintObject = False
Next i
End Sub
No.1ベストアンサー
- 回答日時:
.Object.ListRows = 20
では、如何でしょうか
For i = 1 To 100
l = sh.Cells(i, "H").Left
t = sh.Cells(i, "H").Top
w = sh.Cells(i, "H").Width
h = sh.Cells(i, "H").Height
With sh.OLEObjects.Add(ClassType:="Forms.ComboBox.1")
.Left = l
.Top = t
.Width = w
.Height = h
.ListFillRange = "担当者"
.Object.ListRows = 20
.LinkedCell = "H" & i
.PrintObject = False
End With
Next i
早急な回答本ありがとうございました。
問題なく20行表示することができました!!
かなり急ぎでどうしようかと思っていました。
お時間とって頂き感謝しております。
本当にありがとうございした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで作成するメール(開封確認...
-
Excelでフィルタをかけると警告...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
エクセルVBAでcode128のバー...
-
Excel VBA Collection.add で R...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで配列内に空白デー...
-
vbsのFolderExistsで部分一致を...
-
VBScriptでファイルの日時順(降...
-
Excelのシート上にtextboxを作...
-
コンパイルすると「メソッドま...
-
VBで引数にDictionaryオブジェ...
-
オブジェクト名が同じ図形の変更
-
配列にしたセル範囲でのコメン...
-
VBAで既に開いている別アプリケ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
PowerPointVBAでスライドマスタ...
-
エクセルマクロエラー「'Cells'...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
-
VBA:オートシェイプの線の長...
-
VBで引数にDictionaryオブジェ...
-
AccessVBAで「dim dbs as datab...
おすすめ情報