|
▼ichinose さん:
>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
ありがとぅございます。出来ました^^
「mycollを何に宣言すればいいのかわからないんです」
っていうのも明記してなかったです・・・。すいません。気をつけます。
いつもわけのわからない文章だけで理解して、
返信してくださる回答者の方に、感謝し、尊敬致します。
ありがとうございましたm__m
|
|