Excel VBA質問箱 IV

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

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


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

22428 / 76732

←次へ　｜　前へ→


	【59686】Re:「#NUM!」が出る?

ぱくぱく名無しさん - 09/1/2(金) 13:34 -


	引用なし

	パスワード

nagao さん、皆さん、明けましておめでとうございます。

>>　=If(COUNTIF(AI3:AI53,A21)=0,0,VLOOKUP(A21,AI3:AP53,3,FALSE))
>実は、もしユーザーFunctionプログラムが作れるなら
>この中に他にユーザー機能を付け加えたいと思っています。
>ただあまり拡張することは危惧もしているのですが。
ユーザー機能がどのようなものを想定されているのかわかりませんが、上記式をマクロにするとこうなります（列番号のチェックも入れてあります）。

Function VL_Func(arg1 As Range, arg2 As Range, arg3 As Long) As Variant
　 'arg#の並び及び内容はVlookupと同じなので説明は省略
　 '
　 Select Case arg3
　　　Case 1 To arg2.Columns.Count
　　　　 With Application.WorksheetFunction
　　　　　　'左端列（＝キー列）で検索して、無ければ無条件で０、あればVlookup
　　　　　　If .CountIf(arg2.Columns(1), arg1) = 0 Then
　　　　　　　 VL_Func = 0
　　　　　　Else
　　　　　　　 VL_Func = .VLookup(arg1, arg2, arg3, False)
　　　　　　End If
　　　　 End With
　　　Case Else
　　　　 VL_Func = "VLOOKUPの範囲外" '列番号が不適切
　 End Select
End Function

5 hits

▼

【59657】こういうユーザー定義関数(Function)は作れますか？ nagao 08/12/30(火) 3:28