エクセル VBA リストについて
ComboBox3が例えばAなら
ComboBox5にリストを入れたい
同じBookにSheet”masuta"がありそこに
U1 V1 W1 X1
A B C D
U列の下には”A"があり、Aの項目を入れ込んでいます。
ComboBox3が”A”と表示させた場合
ComboBox5はU列のU3以降の項目が入るようにしたいのですが
Set wbMyBook = Workbooks(strMyBookName)エラー表示され
型の一致がしないと表示されます!
このBookの格納はしているつもりなのですが上手く
回避できません教えて下さい。
それと下の記述をどのように変化させれば良いか
アドバイスお願いします。
Private Const WBHName = "k2.xls"
Private Const SH1Name = "Sheet1"
Private Const wsListName = "masuta"
Dim lngYcnt_List As Long '使用行を格納
Dim wbMyBook As Workbook 'このブックをセット
Dim wsList As Worksheet 'リストシートをセット
Dim strMyBookName As String 'このブックの名前を格納
Private Sub ComboBox3_Change()
Dim lng As Long
'使用するブックとシートをセット
Set wbMyBook = Workbooks(strMyBookName)
Set wsList = wbMyBook.Worksheets(wsListName)
'リストシートの使用行を格納
lngYcnt_List = wsList.Range("masuta!U1:X1").CurrentRegion.Rows.Count
'コンボボックスComboBox1のクリア・フラグをfalseにする。
ComboBox5.Clear
flag = False
'同じ数字のもののコンボボックスComboBox1に追加。
For lng = 1 To lngYcnt_List
If ComboBox3.Value = wsList.Cells(lng, 21) Then
'ComboBox1,TextBox8,呼吸具体策に表示する。
ComboBox5.AddItem wsList.Cells(lng, 21)
End If
If ComboBox3.Value = wsList.Cells(lng, 22) Then
ComboBox5.AddItem wsList.Cells(lng, 22)
End If
If ComboBox3.Value = wsList.Cells(lng, 23) Then
ComboBox5.AddItem wsList.Cells(lng, 23)
'処理を抜けるExit For
flag = True
End If
Next lng
End Sub
No.2ベストアンサー
- 回答日時:
コードと内容のバランスがあっていません。
ご自分のコードでしょうか。こういう作り込み方をして、バンザイしてしまうと、本来、回答者側としては、手をつけられせません。(熱心な人が手伝ってくれるとは思いますが)こういう時は、掲示板の回答者に、最初からゲタを渡したほうがよいです。書かれたマクロは、とても使える状態とは思えませんので、一応、保留です。
一応エラーの原因は、
>Set wbMyBook = Workbooks(strMyBookName)エラー表示され
strMyBookNameは、設定されていません。
それ以上は、言っても無駄になってしまいます。
もちろん、#1さんのアドバイスで出来るなら、こちらの話は無視して構いません。でも、出来るなら、質問者さんだけでなく、回答者側も納得させるもののほうがよいのではないかと思います。そんなに、簡単に解決出来るような内容ではないと思います。
//
最初の要望。
>U1 V1 W1 X1
>A B C D
>U列の下には”A"があり、Aの項目を入れ込んでいます。
>ComboBox3が”A”と表示させた場合
>ComboBox5はU列のU3以降の項目が入るようにしたいのですが
マクロ側のコードとは食い違いがあるようですから、無視しますが、このままでは、ComboBox3 を動かすたびに、ComboBox5 の中身をClear していますから、ComboBox5 がひとつしか入らないです。ComboBox5 の意味がありません。
ComboBox3 の内容が、A,B,C,D,E,F,G,H,I,J と、それぞれになった時に、ComboBox5 は、どのようになるのですか?
もしかしたら、ComboBox3 を選んだ時に、ComboBox5 のリストの内容が変わるのではありませんか?
ComboBox3 が、A の時は、ComboBox5 [あいうえお]
ComboBox3 が、B の時は、ComboBox5 [かきくけこ]
ComboBox3 が、C の時は、ComboBox5 [さしすせそ]
ということでしょうか。
>ComboBox1,TextBox8,呼吸具体策に表示する。
一体どういう意味なのか、疑問の残る所ばかりです。
No.1
- 回答日時:
> Set wbMyBook = Workbooks(strMyBookName)エラー表示され
> 型の一致がしないと表示されます!
strMyBookName に ブック名がセットされていないと、このエラーが出ます。
この行の直前に
Debug.Print strMyBookName
などとして、確認してみましょう。
余談ですが、多くの場合は wbMyBook 変数を使わないでも
ThisWorkbook キーワードを使えばすみますよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー'-2147417848(8001...
-
インターフェイスがサポートさ...
-
Nmftaskが原因でエラー
-
powerDVD18で再生速度を変えたい
-
Google Chromeの検索バーで、い...
-
パソコンでダブルクリックとシ...
-
「 メモ帳(.txt)を一括で検索し...
-
フワちゃんに見る遅刻魔の実態...
-
Evernote 検索すると「権限が失...
-
OPERAのツールバーとメニューバ...
-
画面が元に戻らないサイトに遭...
-
VBAの質問になります Userform内で
-
検索エンジン反映遅い
-
thunderbirdのメールをまとめて...
-
ページの内容コピペ 範囲が広い...
-
iMovie フリーズフレームの追加...
-
使用期間切れのDVDfab12でD...
-
Excelで、セルにメモが入力され...
-
ブラウザの検索欄に下線(破線)...
-
タスクスケジューラーで、ある...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「RunSQL」と「Execute」の違い
-
パロマガス給湯器のエラーの原...
-
実行時エラー'-2147417848(8001...
-
IF関数の真(偽)の場合にセル...
-
ノーリツ給湯器GQ-2421WZ-HP-2...
-
an error occurred while proce...
-
このページにスクリプトエラー...
-
ランタイムエラーの表示が消え...
-
インターフェイスがサポートさ...
-
インターネットで調べものをし...
-
エクセル VBA リストについて
-
PCがおかしいのか。サイトが...
-
Nmftaskが原因でエラー
-
IE9で特定サイト(日本語ドメ...
-
Excelで、セルにメモが入力され...
-
「 メモ帳(.txt)を一括で検索し...
-
powerDVD18で再生速度を変えたい
-
エクセルの検索窓で毎回検索場...
-
VBAの質問になります Userform内で
-
Google Chromeの検索バーで、い...
おすすめ情報