Excel VBA質問箱 IV

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

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


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

46058 / 76735

←次へ　｜　前へ→


	【35656】セルのColorIndexでVlookupを選択

たけぞう - 06/3/9(木) 11:37 -


	引用なし

	パスワード

配列の考え方が間違っており１セルには複数のデータを保管できないことがわかりました。そこでデータではなくセルの色等を条件にすればと思い以下のマクロを作成しました。Ａ１に数値を入力、Ｄ４：Ｆ８をtable01と登録し、Ｂ１に =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