ユーザー定義関数について

質問

ユーザー定義関数について

VBA初心者です。画像1は正常、画像2に変更したときに空白レコードに#エラーが出るようになってしまいました。変更点は、ByVal gと(1)削除したのですが、どのような式を入れれば良いのでしょうか。宜しくお願い致します。

画像1: (正常です)
link(T_photo!photo1,T_photo!folder1,T_photo!folder2,T_photo!folder3,T_photo!year,T_tag!domain,T_photo!folder4)

Public Function link _
(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f As String, ByVal g) As String

link = IIf(Trim("" & a) = "", "", _
　　　　(1) IIf(Trim("" & b & c & d & e & a) = "", "", "" & f) & _
IIf(Trim("" & b) = "", "", "" & b & "/") & _
IIf(Trim("" & c) = "", "", "" & c & "/") & _
IIf(Trim("" & d) = "", "", "" & d & "/") & _
IIf(Trim("" & e) = "", "", "" & e & "-link/") & _
IIf(Trim("" & a) = "", "", "" & g & "-" & a))

画像2: (#エラー)
link_ec(T_photo!photo1,T_photo!folder1,T_photo!folder2,T_photo!folder3,T_photo!year,T_photo!folder4)

Public Function link_ec _
(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f As String) As String

link_ec = IIf(Trim("" & a) = "", "", _
IIf(Trim("" & b) = "", "", "" & b & "/") & _
IIf(Trim("" & c) = "", "", "" & c & "/") & _
IIf(Trim("" & d) = "", "", "" & d & "/") & _
IIf(Trim("" & e) = "", "", "" & e & "-link/") & _
IIf(Trim("" & a) = "", "", "" & f & "-" & a))

回答No.1

nag0720 · ベストアンサー

＞空白レコードに#エラーが出るようになってしまいました。

エラーになるのは空白レコードのときだけなんでしょうか？

もし、すべてのデータでエラーになるのなら、
link_ecのパラメータのfの型宣言が影響しているのではないですか。
T_photo!folder4の型はどうなっていますか？

お礼

ご回答有難うございました。

型を再度確認したらAs Stringが多かったです。

現状
Public Function link_ec _
(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f As String) As String

正解
Public Function link_ec_
(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f) As String

とても助かりました。有難うございました。今後とも宜しくお願い致します。