いつもお世話になっています。
コンボボックスの3個目が表示されません。
コンボボックス1と2はうまく表示されます。
よろしくお願いします。
Private Sub ComboBox2_Change()
Dim ico As Long
ico = 1
With ThisWorkbook.Worksheets("data")
KEY = Me.ComboBox1.Text
KET2 = Me.ComboBox2.Text
KET3 = Me.ComboBox3.Text
Me.ComboBox3.Clear
Do While .Cells(ico, 1) <> ""
If .Cells(ico, 1) = KEY And .Cells(ico, 2) = KEY2 Then
ITE = .Cells(ico, 3).Value
flg = 0
For I = 0 To Me.ComboBox3.ListCount - 1
If ITE = Me.ComboBox3.List(I) Then flg = 1
Next
If flg = 0 Then Me.ComboBox3.AddItem ITE
End If
ico = ico + 1
Loop
End With
Me.ComboBox3.SetFocus
End Sub
No.2ベストアンサー
- 回答日時:
これは本物のソースからコピーしたものでしょうか?
KET2 = Me.ComboBox2.Text
KET3 = Me.ComboBox3.Text
KETでなくてKEYではないでしょうか。それで
If .Cells(ico, 1) = KEY And .Cells(ico, 2) = KEY2 Then
このIf文が成立しないのでは。
Option Explicit を宣言しておけば、宣言されていない変数を使うとエラーになるので、変数名を間違えてもエラーになってくれるので、こういうケースを未然に防げます。
単にコピーするときの転記ミスで、的外れだったらすみません。
No.1
- 回答日時:
こんにちは。
変数のタイプミスあり。
●KET2 = Me.ComboBox2.Text
KET2 を下記のように、KEY2 で比較している
If .Cells(ico, 1) = KEY And .Cells(ico, 2) =● KEY2 ● Then
また、質問の件では関係ないが
KET3 = Me.ComboBox3.Text
これも恐らく
KEY3 では?
以上。
ほんとにすみません。ヽ(^^ゞ
情けないです。
何回自分で見てもわからなかったのです。
思いこみですね。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
python エラー
-
エクセルのエラーメッセージ「4...
-
適切な変換関数が存在しない???
-
visual C++ でビルドの中止がで...
-
コンパイルできません。
-
バッチからsqlplusの接続エラー...
-
Excelのエラーで困ってます。
-
fortranでプログラムを実行する...
-
sys/time.hのインクルードがで...
-
デバッグ中のエラーのことで教...
-
Fortran コンパイルエラーについて
-
dos.hについて
-
C言語でpgm形式の画像を読み込...
-
エクセルでマクロを実行すると...
-
HEWを使用しているのですが、こ...
-
SQLServerについて
-
Handlesについて
-
PC画面を録画するプログラムでd...
-
ビルド失敗 指定されたファイ...
-
ヘッダファイルでのFILE型引数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
python エラー
-
エクセルのエラーメッセージ「4...
-
バッチからsqlplusの接続エラー...
-
Excelのエラーで困ってます。
-
HEWを使用しているのですが、こ...
-
適切な変換関数が存在しない???
-
VB2008で定数に色の設定をした...
-
fortranでプログラムを実行する...
-
BC30002: 型 'ListItem' が定義...
-
VBAでファイルを開くプログラム...
-
sys/time.hのインクルードがで...
-
error C3867 関数呼び出しには...
-
デバッグ中のエラーのことで教...
-
visual C++ でビルドの中止がで...
-
LPCWSTRとchar
-
RightとLeft関数のライブ...
-
Handlesについて
-
multiple definitionというエラー
-
ACCESSのDate関数のエラー表示...
-
WindowsからLinuxへの移植
おすすめ情報