EXCEL VBA 他のブックを検索し、値を代入する方法

質問

EXCEL　VBA　他のブックを検索し、値を代入する方法

下記の様な２つのブックがあった時に

ブック１（入力用）
顧客コード,作業員コード,チェックボックス

ブック２（顧客マスタ）
顧客コード,顧客名,顧客住所,備考

ブック１は日報の様な物です。
ブック２は顧客マスタの様な物です。

ブック２に登録されている顧客数が10件とすると、ブック１は顧客コードを
名前としたブック名で計10個創成されています。

ブック１のチェックボックスにチェックを入れると、ブック１の顧客コードをブック２の顧客コードの中から検索し、そのレコードの「備考」フィールドにブック１の作業員コードを代入する、といった処理を行いたいのですが、

「他のブックを開けて」の後の「検索をかけて、ヒットしたらそのいくつとなりのセルに値を代入」の
記述の仕方が分かりません。

どなたかご教授よろしくお願いします。

回答No.2

nda23 · ベストアンサー

ブック２の列位置が分からないのですが、Aからと仮定します。

Sub 処理(ByVal 顧客コード As String, _
　　　　　　　ByVal 作業員コード As String)
Dim ブック As Workbook
Dim シート As WorkSheet
Dim 一致 As Range
Dim 行 As Long

Set ブック = Workbooks.Open("～.xls")
Set シート = ブック.WorkSheets(1)
Set 一致 = .Columns("A:A").Find(顧客コード)
If 一致 Is Nothing Then
　　　　MsgBox "そのような顧客はいません"
Else
　　　　シート.Cells(一致.Row, 4) = 作業員コード
　　　　ブック.Save
End If
ブック.Close
End Sub

お礼

ありがとうございます、出来ました！

なるほど、Rowを使って行を割り出す訳ですね。勉強になりました。

Set 一致 = .Columns("A:A").Find(顧客コード)

の所は.Columnsがうまく動いてくれなかった為変数を用意して回避しました。

助かりました、ありがとうございます！

回答No.1

D-Matsu

ワークブックをOpenすると、Workbookオブジェクトが返ってくるのでそれを取得します。
Dim targBook As Workbook
Set targBook = Application.Workbooks.Open(...)

で、このWorkbookオブジェクト内のWorksheetsコレクションから検索対象とするWorksheetを選択し、検索範囲をRangeで取得してそのRangeでFind、というのが検索の流れです。
Dim targSheet As Worksheet
Set targSheet = targBook.Worksheets(...)
Dim targRange As Range
Set targRange = targSheet.Range(...)
Dim foundCell As Range
Set founcCell = targRange.Find(...)
ここまでで対象セルが判明するので、あとはその隣のセルに値を書き込む訳です。

お礼

ありがとうございます、おかげで解決致しました。

>このWorkbookオブジェクト内のWorksheetsコレクションから検索対象とするWorksheetを選択し、検索>範囲をRangeで取得してそのRangeでFind、というのが検索の流れです。

この部分は非常に分かりやすくて頭の中の霞が晴れたようです。

本当にありがとうございました！