変換方法 | 変換内容 | 変換例 | サンプル記述 Range("A1") = StrConv(Range("B1"),変換方法) |
---|---|---|---|
vbUpperCase | 大文字に変換 | [a]が[A] に変換 | StrConv(Range("B1"),vbUpperCase) |
vbLowerCase | 小文字に変換 | [A]が[a] に変換 | StrConv(Range("B1"),vbLowerCase) |
vbProperCase | 先頭文字を大文字に変換(単語) | [apple]が[Apple]に変換 | StrConv(Range("B1"),vbProperCase) |
vbWide | 半角文字を全角文字に変換 | [アイウエオ]が[アイウエオ]に変換 | StrConv(Range("B1"),vbWide) |
vbNarrow | 全角文字を半角文字へ変換 | [アイウエオ]が[アイウエオ]に変換 | StrConv(Range("B1"),vbNarrow) |
vbKatakana | ひらがなをカタカナに変換 | [あいうえお]が[アイウエオ]に変換 | StrConv(Range("B1"),vbKatakana) |
vbHiragana | カタカナをひらがなに変換 | [アイウエオ]が[あいうえお]に変換 | StrConv(Range("B1"),vbHiragana) |
Sub StrConv_Omoji() '大文字に変換 Dim MojiEX As Range For Each MojiEX In Range("A2:A10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbUpperCase) '小文字から大文字に変換する。 Next MojiEX End Sub
Sub StrConv_Komoji() '小文字に変換 Dim MojiEX As Range For Each MojiEX In Range("A2:A10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbLowerCase) '大文字から小文字に変換する。 Next MojiEX End Sub
Sub StrConv_Sentou() '先頭文字を大文字に変換 Dim MojiEX As Range For Each MojiEX In Range("A2:A10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbProperCase) '先頭文字を大文字に変換 Next MojiEX End Sub
Sub StrConv_Zenkaku() '半角文字⇒全角文字に変換 Dim MojiEX As Range For Each MojiEX In Range("A2:A10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbWide) '半角文字⇒全角文字に変換 Next MojiEX End Sub
Sub StrConv_Hankaku() '全角文字⇒半角文字に変換 Dim MojiEX As Range For Each MojiEX In Range("A2:A10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbNarrow) '全角文字⇒半角文字に変換 Next MojiEX End Sub
Sub StrConv_Kakana() 'ひらがな文字⇒カタカナ文字に変換 Dim MojiEX As Range For Each MojiEX In Range("A2:A10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbKatakana) 'ひらがな文字⇒カタカナ文字に変換 Next MojiEX End Sub
Sub StrConv_Hiragana() 'カタカナ文字⇒ひらがな文字に変換 Dim MojiEX As Range For Each MojiEX In Range("B2:B10") '範囲を指定する MojiEX.Value = StrConv(MojiEX, vbHiragana) 'カタカナ文字⇒ひらがな文字に変換 Next MojiEX End Sub