Excel VBA質問箱 IV

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

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


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

46045 / 76735

←次へ　｜　前へ→


	【35669】Re:セルのColorIndexでVlookupを選択

ichinose - 06/3/9(木) 19:49 -


	引用なし

	パスワード

▼たけぞうさん：
こんばんは。

>配列の考え方が間違っており１セルには複数のデータを保管できないことがわかりました。そこでデータではなくセルの色等を条件にすればと思い以下のマクロを作成しました。
>Ａ１に数値を入力、Ｄ４：Ｆ８をtable01と登録し、Ｂ１に =Test_VLook(A1)を入力しましたが、#VALUE!のエラーが出てしまいます。どのように修正すればよいのでしょうか。
セル範囲Ｄ４：Ｆ８を名前の登録でtable01という名前を付けたということですか？

>実際には =Test_VLook()の入るセルは多数あります。また出来るだけ別シート等は作成したくないのでこのような方法を考えました。
>回答宜しくお願いします。
>
Function Test_VLook(CELL_A1 As range) as variant

>　　If CELL_A1.Interior.ColorIndex = 3 Then
　　　　Test_VLook = Application.WorksheetFunction _
　　　　　　　　.VLookup(CELL_A1, Names("table01").RefersToRange, 2,false)
>　　ElseIf CELL_A1.Interior.ColorIndex = 5 Then
　　　　Test_VLook = Application.WorksheetFunction _
　　　　　　　 .VLookup(CELL_A1, Names("table01").RefersToRange, 3,false)
>　　Else: Test_VLook = ""
>　　End If
>End Function

でよいと思いますが・・・。

でも、セルを塗りつぶした色を変えても関数は反応しませんが
よいのですよね？

0 hits

▼

【35635】引数に配列を使った計算 たけぞう 06/3/8(水) 20:28