2011年12月11日日曜日

[ExcelVBA] StrConv関数


■構文
StrConv(string, conversion, [LCID])

■説明
アルファベットのみならずいろんな文字を変換します
第一引数:変換する文字列を指定します。
第二引数:変換する型を指定します。
定数内容
vbUpperCase1文字列を大文字に変換します。
vbLowerCase2文字列を小文字に変換します。
vbProperCase3文字列の各単語の先頭の文字を大文字に変換します。
vbWide4文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。
vbNarrow8文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。
vbKatakana16文字列内のひらがなをカタカナに変換します。
vbHiragana32文字列内のカタカナをひらがなに変換します。
vbUnicode64システムの既定のコード ページを使って文字列を Unicode に変換します。
vbFromUnicode128文字列を Unicode からシステムの既定のコード ページに変換します。
第三引数:(省略可能)システムとは異なる国別情報識別子 (LCID) を指定できます。既定値はシステムが使用する LCID です

■サンプルコード
Option Explicit

Sub SampleCode()
    Debug.Print (StrConv("abCD", vbUpperCase))       'ABCD
    Debug.Print (StrConv("abCD", vbLowerCase))       'abcd
    Debug.Print (StrConv("excel vba", vbProperCase)) 'Excel Vba
    Debug.Print (StrConv("abc", vbWide))             'abc
    Debug.Print (StrConv("ゼンカク", vbNarrow))      'ゼンカク
    Debug.Print (StrConv("あいうえお", vbKatakana))  'アイウエオ
    Debug.Print (StrConv("カキクケコ", vbHiragana))  'かきくけこ
    
    '複数のConversionを指定することもできる
    Debug.Print (StrConv("ぶいびー たろう", vbKatakana + vbNarrow)) 'ブイビー タロウ
End Sub

0 件のコメント: