お世話になります。
どなたかお知恵をお貸しください。
UserForm1に、ComboBox2~17まであり、
このComboBoxの.RowSourceは別シートのセルを参照しています。
Sub Sample()
略…
enList = SH4.Cells(65536, 2).End(xlUp).Row
UserForm1.Show
For i = 0 To 15
With UserForm1("ComboBox" & i + 2)
.RowSource = "sample!B4:B" & enList
End With
Next i
略…
End Sub
.RowSource = "sample!B4:B" & enListには、右に隣接して対になる
リストが存在します。
例)B4 … ほっかいどう C4 … 北海道
B5 … おおさか C5 … 大阪
ComboBox2でリストからB4の値を選択したら、C4の値を
ComboBox2のvalueとして表示させたいのですが、
種類が一致しないとか、インデックスが見つからないなど
エラーが出てしまいます。
VLOOKUPも使ってみたのですが、取得できませんと出てしまいます。
VLOOKUPをあきらめ、現在下記のようなちょっと怪しい
プログラムになってます…
cnt = 0
ReDim enList(0)
ReDim enList2(0)
For i = 3 To SH4.Range("B65536").End(xlUp).Row
ReDim Preserve enList(i)
ReDim Preserve enList2(i)
enList(cnt) = SH4.Range("B" & i).Value
enList2(cnt) = SH4.Range("C" & i).Value
If UserForm1("ComboBox2").Value = enList(cnt) Then
UserForm1("ComboBox2").Value = enList2(cnt)
End If
cnt = cnt + 1
Next i
どのように解決すればよろしいでしょうか…orz
ご教授ください。
また、今回ComboBox2の選択内容によってComboBox2のvalueを
Replaceするということを希望なのですが、こういうことは
できるのでしょうか…。
コンフリクトしたりするのかなと少し思いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAで実行時エラー'424' オブジェクトが必要ですと出る 2 2022/10/07 09:25
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
変数名の取得
-
VBで電卓のメモリー機能はどの...
-
テキストボックスのvalueとtext...
-
C言語 1から20までの逆数の和を...
-
Powershellのparamについて
-
ハッシュテーブル(連想配列)が...
-
fscanfでC言語の空欄を読んだ場...
-
Excel VBA 複数選択したリスト...
-
VBA ドロップダウンリストを残...
-
[VBA]選択範囲の下から上に処理...
-
ISDBNULLをスルーしてDBNULLが...
-
VB.NETでコンボボックスの1行目...
-
PysimpleGUIでデータベースを作る
-
VB.NETでアクティブなformを知...
-
VBAでメッセージボックスにセル...
-
ユーザーフォームのテキストボ...
-
power BI クエリエディター 〇...
-
エクセルVBAでコンボボックスの...
-
AccessVBA 帳票フォームの非連...
-
[VB.net] DataGridViewのコンボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
マクロ 特定のセル値のみクリ...
-
VB.NETでコンボボックスの1行目...
-
変数名の取得
-
値を返さないコード パス
-
Excel VBAのリストボックスの値...
-
VB初心者。小数点以下の表示で...
-
ハッシュテーブル(連想配列)が...
-
textboxとLabelを動的に変更する
-
PL/SQLでのTO_DATEの時間取得に...
-
VB.NETでアクティブなformを知...
-
Excel vba ユーザーフォームテ...
-
DataTableに対するLINQについて
-
マクロで奇数と偶数の値を2か所...
-
【C++/CLI.NET】コンボボックス...
-
[VBA]選択範囲の下から上に処理...
-
変数に代入してある数値を表示...
-
vbscriptを使いexcelを参照して...
-
範囲が指定されている乱数について
-
[VB.net] DataGridViewのコンボ...
おすすめ情報