Access VBA質問箱 IV

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

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


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

5164 / 9994

←次へ　｜　前へ→


	【8059】Re:関数の作り方を教えてください。

Gin_II - 06/6/27(火) 11:30 -


	引用なし

	パスワード

> 作りたい関数は、テーブルＡに項目、Ａ・Ｂ・Ｃ・Ｄ・Ｅ
> （項目はもっとあります）があり、数字が入っています。
> 関数で、Ａ・Ｂ・Ｃ・Ｄ・Ｅを設定して、項目が0以外の
> 場合、項目と数字をつなげてひとつのデータにしたいのです。

MID(IIF([A]=0, "", "," & "A" & "・" & [A]) &
　　IIF([B]=0, "", "," & "B" & "・" & [B]) &
　　IIF([C]=0, "", "," & "C" & "・" & [C]) &
　　IIF([D]=0, "", "," & "D" & "・" & [D])
　, 2)

そんなに、大変じゃないような ^^;

Function 関数名(ParamArray FLD() As Variant) As String

　　Dim lngIdx　　　　　As Long
　　
　　If UBound(FLD) = 0 Then
　　　　関数名 = ""
　　　　Exit Function
　　End If
　　
　　For lngIdx = 0 To UBound(FLD) Step 2
　　　　If FLD(lngIdx + 1) > 0 Then
　　　　　　関数名 = 関数名 & "," & FLD(lngIdx) & "・" & FLD(lngIdx + 1)
　　　　End If
　　Next lngIdx
　　
　　関数名 = Mid(関数名, 2)
　　
End Function

【使用例】
関数名("A",[A],"B",[B],"C",[C],"D",[D])

のように、フィールド名, フィールド・・・・・と続けて
指定してみてください。

また、分かりやすいように、"関数名" としていますが、実際には
別の名前にしてください。（半角英数で。）

328 hits

▼

【8057】関数の作り方を教えてください。 たけし 06/6/27(火) 10:54