|
配列の考え方が間違っており1セルには複数のデータを保管できないことがわかりました。そこでデータではなくセルの色等を条件にすればと思い以下のマクロを作成しました。
A1に数値を入力、D4:F8をtable01と登録し、B1に =Test_VLook(A1)を入力しましたが、#VALUE!のエラーが出てしまいます。どのように修正すればよいのでしょうか。
実際には =Test_VLook()の入るセルは多数あります。また出来るだけ別シート等は作成したくないのでこのような方法を考えました。
回答宜しくお願いします。
Function Test_VLook(CELL_A1 As Variant)
If CELL_A1.Interior.ColorIndex = 3 Then
Test_VLook = Application.WorksheetFunction _
.VLookup(CELL_A1, table01, 2)
ElseIf CELL_A1.Interior.ColorIndex = 5 Then
Test_VLook = Application.WorksheetFunction _
.VLookup(CELL_A1, table01, 3)
Else: Test_VLook = ""
End If
End Function
|
|