みんなの「教えて（疑問・質問）」にみんなで「答える」Q&Aコミュニティ

Functionの使い方が分かりません。

ACCESS 2013環境でVBAを使用しています。

プログラムが長い上、使用する箇所が多くて困っています。

Functionで、使いたい時だけ呼び出したいのですが
うまく行きません。

二つのテキストボックスに入力された、文字を組み合わせて
文字列を生成するプロシージャを作成しています。

　txt1の値が、岡山
　txt2の値が、オカヤマ

の時

先頭の文字列が ア行、続きは _岡山 となるよう
AscW関数で文字コードで一度抽出し,
select文で判別しています。

コードは
---------------------------------------------
Private Sub コマンド1_Click()

Dim kanji As String
Dim katakana As Integer
Dim sento As String
Dim hensuu As String

kanji = Me.txt1
katakana = AscW(Left(Me.txt2,1))

Select Case katakana

Case 12450 To 12458
sento = "ア行"

Case 12459 To 12468
sento = "カ行"

～(中略)～

　　 Case Else

End Select


hensuu = sento & "_" & kanji

MsgBox hensuu
End Sub
---------------------------------------------
となっています。

Select Case文が長いのと、複数のフォーム上で実行させるボタンごとに
同じコードを記述していて、最近Accessの起動が遅くなってきました。

Select文をFunctionから呼び出し、最終的にはモジュールから呼び出しに
書き換えたいのですが、書き方が良く分かりません。

試したコード
---------------------------------------------
Function moji(ByRef katakana As Integer,sento As String)

Select Case katakana

Case 12450 To 12458
sento = "ア行"

Case 12459 To 12468
sento = "カ行"

～(中略)～

　　 Case Else

End Select

End Function

Private Sub コマンド1_Click()

Dim kanji As String
Dim katakana As Integer
Dim sento As String
Dim hensuu As String

kanji = Me.txt1
katakana = AscW(Left(Me.txt2,1))

sento = moji(katakana)

hensuu = sento & "_" & kanji

MsgBox hensuu
End Sub
---------------------------------------------
多分、大きく間違っているのではないかと思うのですが
どのように修正したらよいでしょうか

投稿日時 - 2015-01-24 20:28:05