英数にフリガナを

メールボックスサービスをやらせてもらってる某クライアント様がおりまして、ちょっと前に約130件ほどのメールアドレスを発行させてもらったんす。

が、クライアント様から

メール設定の書いてある紙、パスワードとかの数字のゼロとアルファベットのオーとか小文字のエルとか数字のイチとか区別つかんから何とかして

と苦情が入ってしまってﾏｽﾞｰ。


つかね、こういう商売してると一気に大量のパスワードを発行する事になるんすよね。
そのパスワードも数字、アルファベットの大文字・小文字入り混じりのランダムな文字列を生成しないといけないんで手作業なんかじゃやっとれまへん。

つー事で、パスワード生成ツールとかを使うんすけど、前まで使ってたのだと紛らわしい文字とかはパスワードに使わないように設定できたんすよね。

ところが今回、そのツールの調子が悪くて別のツール使ったら紛らわしい文字とかはねられなくて。

全然余裕ないタイミングでの作業だったんで「なんとかなってくれろ！」とそのまんま行っちゃったら・・・やっぱダメやね。

とほほ

という訳で、すでに発行してしまってるパスワードはそのままに、文字の区別がつくようにって考えるとフリガナをつけるしかないねぇと。

[例] d3GHkm0e → ﾃﾞｨ･ｻﾝ･ｼﾞｰ(大)･ｴｲﾁ(大)･ｹｨ･ｴﾑ･ｾﾞﾛ･ｲｰ

で、英数字をカナに変換してくれるツールとかないかと探したけども、バッチリなのが見つからなくて。でも、Excelのマクロ系で参考になりそうなのを見つけたので（元サイト失念）それをいじりまして。
念のため、メールアドレスでも対応できるようにしておいて。

てことで、誰の役にもたちゃしないやろけども、一応公開。

つか、実はVBA苦手（つかほとんど触った事ない）ので、自分の備忘録か。


- - - - -

・Execlで新規マクロ登録（マクロ名は適当に）


Sub マクロ名()

Dim strTarget$, strKana$, strTmp$, Buf$
Dim rngCur As Range
Dim aryKana(65, 1) As String
Dim tmp
Dim i As Long, j As Long

strTarget = "0123456789"
strTarget = strTarget & "abcdefghijklmnopqrstuvwxyz"
strTarget = strTarget & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
strTarget = strTarget & ".@-_"

strKana = "ｾﾞﾛ,ｲﾁ,ﾆ,ｻﾝ,ﾖﾝ,ｺﾞ,ﾛｸ,ﾅﾅ,ﾊﾁ,ｷｭｳ,"
strKana = strKana & "ｴｰ,ﾋﾞｰ,ｼｰ,ﾃﾞｨ,ｲｰ,ｴﾌ,ｼﾞｰ,ｴｲﾁ,ｱｲ,ｼﾞｪｲ,"
strKana = strKana & "ｹｰ,ｴﾙ,ｴﾑ,ｴﾇ,ｵｰ,ﾋﾟｰ,ｷｭｰ,ｱｰﾙ,ｴｽ,ﾃｨ,"
strKana = strKana & "ﾕｰ,ﾌﾞｲ,ﾀﾞﾌﾞﾘｭ,ｴｯｸｽ,ﾜｲ,ｾﾞｯﾄ,"
strKana = strKana & "ｴｰ(大),ﾋﾞｰ(大),ｼｰ(大),ﾃﾞｨ(大),ｲｰ(大),ｴﾌ(大),ｼﾞｰ(大),ｴｲﾁ(大),ｱｲ(大),ｼﾞｪｲ(大),"
strKana = strKana & "ｹｰ(大),ｴﾙ(大),ｴﾑ(大),ｴﾇ(大),ｵｰ(大),ﾋﾟｰ(大),ｷｭｰ(大),ｱｰﾙ(大),ｴｽ(大),ﾃｨ(大),"
strKana = strKana & "ﾕｰ(大),ﾌﾞｲ(大),ﾀﾞﾌﾞﾘｭ(大),ｴｯｸｽ(大),ﾜｲ(大),ｾﾞｯﾄ(大),"
strKana = strKana & "ﾄﾞｯﾄ,ｱｯﾄ,ﾊｲﾌﾝ,ｱﾝﾀﾞｰｽｺｱ"

tmp = Split(strKana, ",")
For i = 1 To 66
aryKana(i - 1, 0) = Mid(strTarget, i, 1)
aryKana(i - 1, 1) = tmp(i - 1)
Next i
For Each rngCur In Selection
If Not IsEmpty(rngCur) Then
Buf = CStr(Trim(rngCur.Value))
Buf = StrConv(Buf, vbNarrow)
strKana = ""
For i = 1 To Len(Buf)
strTmp = Mid(Buf, i, 1)
For j = 1 To 66
If strTmp = aryKana(j - 1, 0) Then
strKana = strKana & aryKana(j - 1, 1) & " "
Exit For
End If
Next j
Next i
strKana = Replace(Trim(strKana), " ", "･")
rngCur.Characters.PhoneticCharacters = strKana
End If
Next rngCur

End Sub

- - - - -

↑をフリガナに変換したい文字列のセルで実行。
その後、実際にフリガナを入れるセルで

=PHONETIC(フリガ対象セル)

としてやればおｋって感じすね。


で、またも超マジメエントリやん。
しらっとオッパイって書いとこ。