[ExcelVBA] StrConv関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

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

■説明
アルファベットのみならずいろんな文字を変換します
第一引数：変換する文字列を指定します。
第二引数：変換する型を指定します。

定数	値	内容
vbUpperCase	1	文字列を大文字に変換します。
vbLowerCase	2	文字列を小文字に変換します。
vbProperCase	3	文字列の各単語の先頭の文字を大文字に変換します。
vbWide	4	文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。
vbNarrow	8	文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。
vbKatakana	16	文字列内のひらがなをカタカナに変換します。
vbHiragana	32	文字列内のカタカナをひらがなに変換します。
vbUnicode	64	システムの既定のコード ページを使って文字列を Unicode に変換します。
vbFromUnicode	128	文字列を Unicode からシステムの既定のコード ページに変換します。

第三引数：(省略可能)システムとは異なる国別情報識別子 (LCID) を指定できます。既定値はシステムが使用する LCID です

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Debug.Print (StrConv("abCD", vbUpperCase))       'ABCD  
5.     Debug.Print (StrConv("abCD", vbLowerCase))       'abcd  
6.     Debug.Print (StrConv("excel vba", vbProperCase)) 'Excel Vba  
7.     Debug.Print (StrConv("abc", vbWide))             'ａｂｃ  
8.     Debug.Print (StrConv("ゼンカク", vbNarrow))      'ｾﾞﾝｶｸ  
9.     Debug.Print (StrConv("あいうえお", vbKatakana))  'アイウエオ  
10.     Debug.Print (StrConv("カキクケコ", vbHiragana))  'かきくけこ  
11.       
12.     '複数のConversionを指定することもできる  
13.     Debug.Print (StrConv("ぶいびー　たろう", vbKatakana + vbNarrow)) 'ﾌﾞｲﾋﾞｰ ﾀﾛｳ  
14. End Sub  

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))             'ａｂｃ
    Debug.Print (StrConv("ゼンカク", vbNarrow))      'ｾﾞﾝｶｸ
    Debug.Print (StrConv("あいうえお", vbKatakana))  'アイウエオ
    Debug.Print (StrConv("カキクケコ", vbHiragana))  'かきくけこ
    
    '複数のConversionを指定することもできる
    Debug.Print (StrConv("ぶいびー　たろう", vbKatakana + vbNarrow)) 'ﾌﾞｲﾋﾞｰ ﾀﾛｳ
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧