Excel VBA質問箱 IV

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

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


50401 / 76732 ←次へ | 前へ→

【31220】Re:ランダムファイルからのコンボボックスへのアイテム追加
お礼  HANA  - 05/11/15(火) 8:23 -

引用なし
パスワード
   ▼ichinose さん みなさん、こんばんは
要領の悪い質問に、親切に回答いただきましてありがとうございます
>>の全部が分からない訳ではないんでしょ。
>>自分で書いたコードを提示して、
>>どこが分からないのかを書きましょう。
と言っていただけたので、ichinoseさんや皆さんのアドバイスを参考にコードを作成してみました
シート”工番"にComboBox1を配置した形でやってみました

<標準モジュールで>
Public 検索キー As Variant
Public TDB2 As DB1
Public intFF As Integer
Public maxR As Long
Const PA = "C:\Documents and Settings\xxxx\デスクトップ\接続TEST\TDB2"

Public i As Integer, RC As Long, j As Integer, C As Integer
Public Type DB1
    工事番号 As String * 5
    工番2 As String * 2
    発注者 As String * 36
    工期1 As String * 10
    工期2 As String * 10
    工事名 As String * 60
    工事場所 As String * 100
    請負金額  As String * 12
    請負消費税 As String * 8
    申請部署 As String * 2
    現場代理人 As String * 20
    申請日 As String * 10
    先方担当 As String * 16
    当社担当 As String * 16
    前払金 As String * 10
    契約日 As String * 8
    契約No As String * 20
    条件 As String * 60
    特記事項1 As String * 60
    特記事項2 As String * 60
    削除FLG As String * 2
End Type


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

で、なんとかいけました
どうもありがとうございました

0 hits

【31051】ランダムファイルからのコンボボックスへのアイテム追加 HANA 05/11/10(木) 9:55 質問
【31103】Re:ランダムファイルからのコンボボックス... Jaka 05/11/11(金) 16:34 発言
【31145】Re:ランダムファイルからのコンボボックス... HANA 05/11/12(土) 14:01 発言
【31146】Re:ランダムファイルからのコンボボックス... Kein 05/11/12(土) 14:45 発言
【31149】Re:ランダムファイルからのコンボボックス... よろずや 05/11/12(土) 17:03 発言
【31150】Re:ランダムファイルからのコンボボックス... ichinose 05/11/12(土) 17:34 発言
【31220】Re:ランダムファイルからのコンボボックス... HANA 05/11/15(火) 8:23 お礼
【31221】ごめんなさい やっぱりダメでした HANA 05/11/15(火) 9:03 質問
【31222】Re:ごめんなさい やっぱりダメでした ichinose 05/11/15(火) 9:34 発言
【31223】Re:ごめんなさい やっぱりダメでした HANA 05/11/15(火) 10:20 質問
【31263】Re:ごめんなさい やっぱりダメでした ichinose 05/11/16(水) 0:46 発言
【31264】大変勉強になりました HANA 05/11/16(水) 8:41 お礼

50401 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free