|
いつも勉強させて頂いております。
初歩的な質問だと思いますが過去ログを読んでも理解できず困ってしまい
質問させて頂きます。
ユーザーフォーム上にコンボボックスを配置しています。
過去ログを探し、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
○○○ □□□(プルダウンに表示させたいデータ)
△△△ ×××
エラーメッセージは
「オブジェクトが必要です」
です。
宜しくお願い致します。
|
|