Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9633 / 13646 ツリー ←次へ | 前へ→

【26272】コンボボックスの項目 にー 05/6/30(木) 11:10 質問[未読]
【26274】Re:コンボボックスの項目 だるま 05/6/30(木) 11:26 回答[未読]
【26276】Re:コンボボックスの項目 にー 05/6/30(木) 11:56 お礼[未読]
【26291】Re:コンボボックスの項目 05/6/30(木) 16:34 回答[未読]
【26293】Re:コンボボックスの項目 にー 05/6/30(木) 17:37 お礼[未読]

【26272】コンボボックスの項目
質問  にー  - 05/6/30(木) 11:10 -

引用なし
パスワード
   いつも勉強させて頂いております。
初歩的な質問だと思いますが過去ログを読んでも理解できず困ってしまい
質問させて頂きます。

ユーザーフォーム上にコンボボックスを配置しています。
過去ログを探し、ichinoseさんのコードを利用させて貰おうと思ったのですが
意味が理解できずエラーが出てしまいます。
参考にしたコードは1つ目のコンボボックスの値を利用し二つ目のコンボボックス
に表示されるリストを絞るというものです。

Private Sub ComboBox4_Change()
  Dim bunrui As String
  Dim MyRange As Range
  Dim FirstAddress As String

  bunrui = ComboBox3.Value
  ComboBox4.Clear
  Set MyRange = Sheet2.Columns("A").Find(bunrui, Range("A65536"))
          ↑シート名を利用し ○○○(シート名)!.Columns・・・
           でも指定できるのでしょうか?
  If Not MyRange Is Nothing Then
    FirstAddress = MyRange.Address
    Do
      ComboBox4.AddItem (MyRange.Offset(0, 1).Value)
      Set MyRange = Sheet2.Columns("A").FindNext(MyRange)
    Loop While Not MyRange Is Nothing And MyRange.Address <> FirstAddress
  End If

End Sub

参照したいデータは2シート目に以下のように入力してあります。
  A(bunrui)   B
○○○    □□□(プルダウンに表示させたいデータ)
△△△    ×××

エラーメッセージは
「オブジェクトが必要です」
です。

宜しくお願い致します。

【26274】Re:コンボボックスの項目
回答  だるま WEB  - 05/6/30(木) 11:26 -

引用なし
パスワード
   >Private Sub ComboBox4_Change()

Private Sub ComboBox3_Change()
の間違いではありませんか。^d^

【26276】Re:コンボボックスの項目
お礼  にー  - 05/6/30(木) 11:56 -

引用なし
パスワード
   ▼だるま さん:
アドバイス有難う御座います。
ご指摘のようにコードを変更してみたのですが
やはり同じエラーが出てしまいます。

黄色く選択されるのは
   Set MyRange〜〜〜
の行で「オブジェクトが必要です」と出ます。

恐ろしく初歩的なミスの予感がし気恥ずかしい次第です_no

【26291】Re:コンボボックスの項目
回答    - 05/6/30(木) 16:34 -

引用なし
パスワード
   はじめまして。

>  Set MyRange = Sheet2.Columns("A").Find(bunrui, Range("A65536"))
ここで使用している Sheet2 が存在していないのではないでしょうか?
VBAProjectのエクスプローラで見てみてください。

シート名を利用する場合、
  Set MyRange = Sheets(シート名).Columns("A").Find(bunrui, Range("A65536"))
でOKです。

【26293】Re:コンボボックスの項目
お礼  にー  - 05/6/30(木) 17:37 -

引用なし
パスワード
   ▼薫 さん:

シートが3枚あったのでシート1,2,3だと勝手に思い込んでいました。
プロジェクトエクスプローラで見てみたところSheet1,4,5となっていました。
薫さんのご指摘通りです。

えー。本当に恥ずかしい限りです。
おかげさまで無事動きました。

多謝!!

9633 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free