|
こんにちわ。
コマンドボタンに表示するものをダブらせない方法を教えていただけないでしょうか。
過去ログにあるはず!!と思ったんですが、見つけられず、途方にくれてしまいました・・・。すいません。
いろいろ参照して、下記のコードができたんですが、
オブジェクト変数またはWithブロックが設定されていません
と出るんです。
sub aaa ()
'入力されているデータを拾い出してくる↓
Ua_IMax = Worksheets("顧客一覧").Range("D65536").End(xlUp).Row
Set Ua_IRange = Worksheets("顧客一覧").Range("D2:D" & Ua_IMax)
On Error Resume Next
For Each Ua_IR In Ua_IRange
MyColl.Add Ua_IR, CStr(Ua_IR.Value)
Next
On Error GoTo 0
MemberCount = MyColl.Count
Application.EnableEvents = False
ComboBox2.Clear
For Ua_Ii = 1 To 20
ComboBox2.AddItem MyColl(Ua_Ii).Value
Next Ua_Ii
Application.EnableEvents = True
End Sub
どうかよろしくお願いしますm__m
|
|