Excel VBA質問箱 IV

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

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


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

22442 / 76733

←次へ　｜　前へ→


	【59673】「#NUM!」が出る?

nagao - 08/12/31(水) 10:55 -


	引用なし

	パスワード

皆さんから検討されていただいて感謝しています。

こういうことを言われているのかなと理解
する程度にしか今はできていなく、
内容良く把握できていません。

SSさんの作っていただいたものは列数が３以上になると
うまくデータを取れないと思うのですが? 私の質問内容
が不備でしたが実際列数の指定はマックス１０位になります。

次は甘木さんが示していただいたサンプルコードですが。
セル指定「=time_to_data2(A21,AI3:AP53,3)」で#NUM!エラー
が出ます。VLOOLUP「=VLOOKUP(A21,AI3:AP53,3,FALSE)」指定
なら問題ないのですが。#N/Aはゼロに置き換えられます。

尚、データ範囲はセル範囲ではなく名前名で指定できれば
と思っています。それならドラッグしてもセル位置がずれる
ことは無いと思いますので。
'------------------------------------------------------------------------
Function time_to_data2(Id As Integer, Data_Range As Range, Line As Integer)
　Dim return_val

　On Error Resume Next
　return_val = Application.WorksheetFunction.VLookup(Id, Data_Range, Line, False)
　On Error GoTo 0

　If IsEmpty(return_val) Then
　　time_to_data2 = 0
　Else
　　time_to_data2 = return_val
　End If

End Function

9 hits

▼

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