月: 2019年3月

Excel VBAでアルファベット、数字のフリガナの関数を作りました。用途的には、パスワード一覧を印刷すると英数字のままだと読みずらいので、フリガナとして使う用途をイメージしています。

また、変更することもあると思うので大文字、小文字の英字は別々にしました。

アルファベット、数字のフリガナの関数を作る手順

１．Excelを起動します。

２．「Alt」＋「F11」キーを押して、VBAを開きます。

３．「VBA Project」を右クリックして、「挿入」＞「標準モジュール」をクリックします。

４．追加した「標準モジュール」の「Module1」を開きます。

５．そこに下記のコードを貼り付けます。

Function alphanumeric(英数字 As String)
  
    Dim targetWord As String
    targetWord = 英数字
    
    Dim dictionary As Variant
    Set dictionary = CreateObject("Scripting.Dictionary")
    
    Dim str As String
    
    With dictionary
        .Add "0", "ゼロ"
        .Add "1", "イチ"
        .Add "2", "ニ"
        .Add "3", "サン"
        .Add "4", "ヨン"
        .Add "5", "ゴ"
        .Add "6", "ロク"
        .Add "7", "ナナ"
        .Add "8", "ハチ"
        .Add "9", "キュー"
    
    End With
    
    With dictionary
        .Add "a", "エー"
        .Add "b", "ビー"
        .Add "c", "シー"
        .Add "d", "ディー"
        .Add "e", "イー"
        .Add "f", "エフ"
        .Add "g", "ジー"
        .Add "h", "エイチ"
        .Add "i", "アイ"
        .Add "j", "ジェイ"
        .Add "k", "ケー"
        .Add "l", "エル"
        .Add "m", "エム"
        .Add "n", "エヌ"
        .Add "o", "オー"
        .Add "p", "ピー"
        .Add "q", "キュー"
        .Add "r", "アール"
        .Add "s", "エス"
        .Add "t", "ティー"
        .Add "u", "ユー"
        .Add "v", "ブイ"
        .Add "w", "ダブリュー"
        .Add "x", "エックス"
        .Add "y", "ワイ"
        .Add "z", "ゼット"
    End With
    
    With dictionary
        .Add "A", "エー"
        .Add "B", "ビー"
        .Add "C", "シー"
        .Add "D", "ディー"
        .Add "E", "イー"
        .Add "F", "エフ"
        .Add "G", "ジー"
        .Add "H", "エイチ"
        .Add "I", "アイ"
        .Add "J", "ジェイ"
        .Add "K", "ケー"
        .Add "L", "エル"
        .Add "M", "エム"
        .Add "N", "エヌ"
        .Add "O", "オー"
        .Add "P", "ピー"
        .Add "Q", "キュー"
        .Add "R", "アール"
        .Add "S", "エス"
        .Add "T", "ティー"
        .Add "U", "ユー"
        .Add "V", "ブイ"
        .Add "W", "ダブリュー"
        .Add "X", "エックス"
        .Add "Y", "ワイ"
        .Add "Z", "ゼット"
    End With
      
   
    
    
    For i = 1 To Len(targetWord)
        If dictionary.Exists(Mid(targetWord, i, 1)) Then
            str = str & dictionary.Item(Mid(targetWord, i, 1))
            If i < Len(targetWord) Then
                str = str & "・"
            End If
            
        End If
    
      
    Next i
   
    alphanumeric = str

End Function

※大文字や中黒でつないでいる部分等好きに変更してください。

６．Excelのシートに移動して、一般的な関数を利用するのと同じように使います。（関数名：alphanumeric）

例：A列にアルファベット、数字を入れて、B列にフリガナを入れる場合

=alphanumeric(A2)

７．下記のようにフリガナが入ります。

こんな感じで出来上がりです。Excel　VBAちょっと便利かなっと思ったところです。あ、保存するときはマクロ付きで保存してください。