catsの出来ることからこつこつと…(VBAで、ひらがなをカタカナに変換する)

VBAで、ひらがなをカタカナに変換したり、半角にしたり、大文字にしたりするVBAです。


Function KANA()

Dim CN As ADODB.Connection
Dim RSA As ADODB.Recordset
Dim SQL As String

Set CN = CurrentProject.Connection
Set RSA = New ADODB.Recordset

SQL = "SELECT [主キー],[カナフィールド] FROM [テーブル名]"

RSA.Open SQL, CN

Do Until RSA.EOF
 'vbUpperCase　　1　　文字列を大文字に変換します。
 'vbLowerCase　　2　　文字列を小文字に変換します。
 'vbProperCase　　3　　文字列の各単語の先頭の文字を大文字に変換します。
 'vbWide　　4　　文字列内の半角文字 (１バイト) を全角文字 (２ バイト) に変換します。
 'vbNarrow　　8　　文字列内の全角文字 (２バイト) を半角文字 (１バイト) に変換します。
 'vbKatakana　　16　　文字列内のひらがなをカタカナに変換します。
 'vbHiragana　　32　　文字列内のカタカナをひらがなに変換します。
 'vbUnicode　　64　　システムの既定のコード ページを使って文字列を Unicode に変換します。
 'vbFromUnicode　　128　　文字列を Unicode からシステムの既定のコード ページに変換します。
    SQL = "UPDATE [テーブル名] SET [カナフィールド]='"
    SQL = SQL & StrConv(RSA![カナフィールド], vbKatakana)
    SQL = SQL & "' WHERE [主キー]=" & RSA![主キー]
   
    CN.Execute SQL

    RSA.MoveNext
Loop

CN.Close
Set CN = Nothing

End Function

[0回]