Excel2010でマクロを作っています。
ユーザーフォームに多数配置済のコンボボックスに、特定のシートの特定のセル範囲(B2:B71)のデータを配列に取り込みたいのですが、セル範囲には空白セルも多数あります。コンボボックス表示時には空白を削除したいのですが、どのようにしたら良いでしょうか?
なお、コンボボックスの名前には規則性があり、CbxStp1、CbxStp2、CbxStp3、・・・CbxStp31と連番にしてあるので、For i = 1 to 31 ~ Next で、コンボボックス名を「"CbxStp" & i」と指定して作れると助かるのですがいかがでしょうか。
No.1ベストアンサー
- 回答日時:
CbxStp1~31にどれも同じB2:B71(空白を除く)をセットしたいのですか?
ヤリタイ事に応じて適切に応用してください。
private sub UserForm_Initialize()
dim a() as variant
dim c as long
dim h as range
dim i as long
’ベタですが基本の方法
for each h in worksheets("特定の").range("B2:B71")
if h <> "" then
redim preserve a(c)
a(c) = h.value
c = c + 1
end if
next
for i = 1 to 31
userform1.controls("CbxStp" & i).list = a
next i
end sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで空白行を削除する
Excel(エクセル)
-
EXCEL VBA コンボボックス、テキストボックスが未入力のときメッセージを表示する方法
Excel(エクセル)
-
コンボボックスでドロップダウンリストにしたときに・・・・
Visual Basic(VBA)
-
-
4
Access コンボボックスに空のレコードを表示しない方法
Access(アクセス)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
Excel VBAコンボボックスについて
Excel(エクセル)
-
8
UserForm1.Showでエラーになります。
工学
-
9
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
10
excelのリストボックスで選択した項目をアクティブセルに入力方法
Excel(エクセル)
-
11
エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
Excel(エクセル)
-
12
VBAコンボボックスの内容が反映されない
その他(プログラミング・Web制作)
-
13
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
14
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
15
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
16
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
17
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
18
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
Excel 入力規則のリストのカー...
-
クリップボードの内容を変数に...
-
DataGridViewでセルを結合したい
-
Excel VBA コンボボックスで空...
-
■EXCEL(二つのセルの文字列を一...
-
マクロについて質問です 範囲内...
-
GridViewの行選択イベントを発...
-
【VB.NET】DataGridViewセルの...
-
VBA 文字列を1文字ずつ調べて"...
-
マウスを乗せたときにセルの色...
-
VBA 別ブックから条件に合うも...
-
複数セルに〇印をつけるマクロ
-
[VBA]掛け算のプログラム
-
エクセルのセル内の余白の設定...
-
EXCELで特定のセルに表示...
-
E列のセルに数値が入れば(空白...
-
エクセルで表示形式の時刻の「0...
-
エクセルのセル内に全角数字を...
-
エクセルでの計算式で求められ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
VBA 別ブックから条件に合うも...
-
マウスを乗せたときにセルの色...
-
Excel 入力規則のリストのカー...
-
GridViewの行選択イベントを発...
-
Excel VBA コンボボックスで空...
-
クリップボードの内容を変数に...
-
マクロについて質問です 範囲内...
-
【VB.NET】DataGridViewセルの...
-
エクセルの取り消し線を検出す...
-
エクセル チェックボックスの...
-
複数セルに〇印をつけるマクロ
-
DataGridViewでセルを結合したい
-
Excelマクロで空白セルの大小比...
-
VBA サンダーバードのメール自...
-
VBA 文字列を1文字ずつ調べて"...
-
■EXCEL(二つのセルの文字列を一...
-
vba、targetのRow,Colomnの値取得
-
VB2005 DATAGRIDVIEWでの矢印キ...
-
どのロジックでセルが変更され...
おすすめ情報