Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50406 / 76738

←次へ　｜　前へ→


	【31221】ごめんなさい　やっぱりダメでした

HANA - 05/11/15(火) 9:03 -


	引用なし

	パスワード

>Sub READ_DB1()
>intFF = FreeFile
>i = 1
>　　Open PA For Random As intFF Len = Len(TDB2)
>　　maxR = LOF(intFF) / Len(TDB2)
>Do While maxR + 1 > i
>　　　　Get #intFF, i, TDB2
>　　　　If TDB2.削除FLG <> "" Then
>　　　　　 With Worksheets("工番").OLEObjects("ComboBox1").Object
>　　　　　　.AddItem TDB2.工事番号
>　　　　　　.List(i - 1, 1) = TDB2.工番2
>　　　　　 End With
>　　　　End If
>　　　　i = i + 1
>Loop
>Close #intFF
>End Sub
>
で、なんとかいけたつもりだったんですが・・・・
同じComboBox1のリストは同一番号が件数分並んでいるだけなんです
そこで、いったんリストをクリアする方法にかきなおしたのですが

Sub READ_DB1()
Worksheets("工番").OLEObjects("ComboBox1") _
　　.Item.Clear
★このコマンドをサポートしていませんのエラー
intFF = FreeFile
i = 1
　　Open PA For Random As intFF Len = Len(TDB2)
　　maxR = LOF(intFF) / Len(TDB2)
Do While maxR + 1 > i
　　　　Get #intFF, i, TDB2
　　　　If TDB2.削除FLG = "" Then
　　　　　 With Worksheets("工番").OLEObjects("ComboBox1").Object
　　　　　　.AddItem TDB2.工事番号
　　　　　　.List(i - 1, 1) = TDB2.工番2
　　　　　 End With
　　　　End If
　　　　i = i + 1
Loop
Close #intFF
End Sub
になってしまいます。再三のお願いで申し訳ないのですが、再度ご教授お願い
できませんでしょうか。

0 hits

▼

【31051】ランダムファイルからのコンボボックスへのアイテム追加 HANA 05/11/10(木) 9:55