私は一日中これを理解しようとしています。これは私が達成する必要があるものです:
- GetFile を使用して、ブックを開かずに多数のブックを選択します。
- 選択したブックのセル A2 をループ内で個別に参照ブックと比較します。
- 選択したワークブックのセル A2 が、列 A に含まれる参照ワークブック内の数値の数値と等しい場合、一致した参照ワークブック セルの対応するセル内の列 B のテキストを、選択したワークブックの M2 にコピー/貼り付けします。
複雑に聞こえますが、デモンストレーションさせてください。文字は列名を表します。
選択したワークブック A2=12 M2= ""
参考ワークブック A2=12 B2=牛乳、たんぱく質
望ましい結果:
選択したワークブック A2=12 M2=牛乳、タンパク質
これまでのところ、これは私が持っているコードです:
Sub Click()
Dim rCell As Range, vVal1, vVal2
Dim wbCheck As Workbook
For Each rCell In Workbooks("2.xls").Worksheets(1).Range("A1:C100")
vVal1 = rCell
vVal2 = ThisWorkbook.Worksheets(1).Range(rCell.Address)
If IsNumeric(vVal1) And IsNumeric(vVal1) Then
If vVal1 = vVal2 Then
rCell.Interior.ColorIndex = 3
ElseIf vVal1 < > vVal2 Then
End If
End If
Next rCell
End Sub