|
YU さん、Jakaさん、こんばんは。
>難しそうなので逃げてました・・・すいません・・・
>あぁ、こんなんぢゃ上達しませんね・・・
>いろいろ参照して、下記のコードができたんですが、
オブジェクト変数またはWithブロックが設定されていません
と出るんです。
せっかくコードを投稿されたのですから上記のエラーがコードのどこで
発生したかも記述してください。
わかりやすく質問を記述する事も上達する一歩だと
私は思っています。
'================================
Sub aaa()
'入力されているデータを拾い出してくる↓
Dim mycoll As New Collection
' ↑これを入れてください
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 MemberCount
ComboBox2.AddItem mycoll(Ua_Ii).Value
Next Ua_Ii
set mycoll=nothing '←これも付けといて・・・
Application.EnableEvents = True
End Sub
|
|