概要

StrConv関数は、Excel VBAで文字列をさまざまな形式に変換するための関数です。この関数を使用することで、大文字や小文字の変換、全角や半角への変換、カタカナやひらがなへの変換など、幅広い文字列操作が可能になります。テキストデータの形式を統一する際に非常に便利です。

構文

StrConv(文字列, 変換タイプ, [ロケールID])

パラメータ

  • 文字列

    変換対象となる文字列を指定します。

  • 変換タイプ

    文字列の変換方法を指定します。以下の定数が使用できます：

    • vbUpperCase : 文字列を大文字に変換します。

    • vbLowerCase : 文字列を小文字に変換します。

    • vbProperCase : 文字列の各単語の先頭文字を大文字に変換します。

    • vbWide : 文字列を全角に変換します。

    • vbNarrow : 文字列を半角に変換します。

    • vbKatakana : 文字列をカタカナに変換します。

    • vbHiragana : 文字列をひらがなに変換します。

    • vbUnicode : 文字列をUnicodeに変換します。

    • vbFromUnicode : 文字列をシステムのデフォルトコードページに変換します。

  • ロケールID（オプション）

    文字列の変換に使用するロケールを指定します。省略するとシステムの既定のロケールが使用されます。

戻り値

StrConv関数は、指定された変換タイプに従って変換された文字列を返します。

説明

StrConv関数を使用することで、文字列の形式をさまざまに変換できます。この関数は、特にデータのフォーマットを整える際や、文字列の標準化が必要な場合に役立ちます。

  • vbUpperCase と vbLowerCase は、英字の大文字・小文字の変換に使われます。

  • vbWide と vbNarrow は、日本語の全角・半角変換に役立ちます。

  • vbKatakana と vbHiragana は、日本語の文字種変換を行います。

使用例

大文字に変換する例

Sub ConvertToUpper()
    Dim originalText As String
    Dim convertedText As String

    originalText = "hello world"
    convertedText = StrConv(originalText, vbUpperCase)
    MsgBox convertedText  ' 結果: "HELLO WORLD"
End Sub

この例では、文字列「hello world」を大文字に変換しています。

半角から全角への変換

Sub ConvertToFullWidth()
    Dim halfWidthText As String
    Dim fullWidthText As String

    halfWidthText = "123 ABC"
    fullWidthText = StrConv(halfWidthText, vbWide)
    MsgBox fullWidthText  ' 結果: "１２３ ＡＢＣ"
End Sub

この例では、半角の文字列「123 ABC」を全角に変換しています。

ひらがなからカタカナへの変換

Sub ConvertHiraganaToKatakana()
    Dim hiraganaText As String
    Dim katakanaText As String

    hiraganaText = "あいうえお"
    katakanaText = StrConv(hiraganaText, vbKatakana)
    MsgBox katakanaText  ' 結果: "アイウエオ"
End Sub

この例では、ひらがな「あいうえお」をカタカナ「アイウエオ」に変換しています。

各単語の先頭文字を大文字に変換

Sub ConvertToProperCase()
    Dim text As String
    Dim properCaseText As String

    text = "excel vba programming"
    properCaseText = StrConv(text, vbProperCase)
    MsgBox properCaseText  ' 結果: "Excel Vba Programming"
End Sub

この例では、各単語の先頭文字を大文字に変換し、残りの文字を小文字にします。

応用例

CSVデータの標準化

CSVデータのインポート時に文字列を半角に統一するなど、データの標準化に利用します。

Sub NormalizeCSVData()
    Dim line As String
    Dim fields() As String
    Dim fileNum As Integer

    fileNum = FreeFile
    Open "C:\data.csv" For Input As #fileNum

    Do Until EOF(fileNum)
        Line Input #fileNum, line
        fields = Split(line, ",")
        fields(0) = StrConv(fields(0), vbNarrow)  ' 最初のフィールドを半角に変換
        Debug.Print Join(fields, ",")
    Loop

    Close #fileNum
End Sub

この例では、CSVファイルのデータを読み込んで最初のフィールドを半角に変換しています。

注意点

  • StrConv関数は、指定した変換タイプによっては日本語特有の処理（全角・半角変換、カタカナ・ひらがな変換など）に特化しているため、必ずしも他言語のデータに適用できるわけではありません。

  • Unicodeやロケールに依存する変換を行う場合、システム設定や使用環境によって結果が異なることがありますので、事前にテストを行うことが重要です。

StrConv関数は、文字列操作を強力にサポートする機能を提供し、テキストデータの標準化やフォーマット調整に役立ちます。データ処理やレポート作成の際に、その柔軟な変換機能を活用してみましょう。

参照:

StrConv関数（Visual Basic for Applications） | Microsoft Learn