Excel VBA質問箱 IV

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

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


55238 / 76732 ←次へ | 前へ→

【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
○○○    □□□(プルダウンに表示させたいデータ)
△△△    ×××

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

宜しくお願い致します。

0 hits

【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 お礼

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