エクセル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ランキング
-
VBAで既に開いている別アプリケ...
-
worksheetFunctionクラスのVloo...
-
VBAからPDFファイルにパスワー...
-
EDINETの情報をEXCELにダウンロ...
-
VB6.0上でExcelオブジェクトを生成
-
エクセルVBAでcode128のバー...
-
EXEL2000のマクロが2010でエラ...
-
Word2007数式でIMEオン/オフを...
-
UserForm1.Showでエラーになり...
-
エクセルVBAでテキストボックス...
-
Excelでフィルタをかけると警告...
-
EXCEL VBA オートシェイプナン...
-
上下の位置揃えについて
-
ドロップダウンリストの行を増...
-
横軸ラベルの追加に関するエラ...
-
[C#]static void 関数内でthis
-
AccessVBA NULLについて
-
マクロ初心者です。 インデック...
-
「Columns("A:C")」の列文字を...
-
エクセルVBAの散布図の近似曲線...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
VBAからPDFファイルにパスワー...
-
VBScriptでファイルの日時順(降...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで2つの画像を比較...
-
PowerPointVBAでスライドマスタ...
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
おすすめ情報