[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『英字とカタカナの混同する並び替え』（nana7）
たとえば「ジェ」と「Ｊ」があるとするとアルファベットが先にきてしまいますが全部混同して読みで並べ替えって方法ありますか？
ユーザーの望みは果てしなく続く。たしかにそうだと思いますし私もそうしてほしい。 ユニークなのは認めます、が、こればっかりは無理でしょう。 （kazu）
解決済み？のようですが、
ローマ字風な発音での比較でよければ、無料ダウンロードにある [なお]さん開発、[sousui]さん改良、ついでに[ramrun]追加の、 ヘボン式+IME式 ユーザー関数を記念にあげときます。
カタカナをローマ字（英字）にする関数です。 その名もケートゥーローマ（笑）。 （ramrun）
Function k2roma(ByVal rng As Range) ' おおむねヘボン式 + IME式 ' 長音表記は場合分けが難しいので文字の通りに変換 ' （「しろうず」と書かれたときに しろ-うず と発音するのか，しろーず と発音するかは不明なので） ' 撥音はB,M,Pの前ではMになる。他はNに変換。 ' 促音は子音を重ねて表記するが，子音がCだった場合は CTに。 ' はっちょう → HATCHOU ' 長音記号は母音を重ねることにしているが，ヘボン式的にはたぶん無視するのが正しい。
Dim c As Range Dim mozi, mozi1, mozi2, mozi3, moziR, R As String Dim mozisuu As Integer Dim sokuon, hatsuon As Boolean
'文字読み込み処理
For Each c In rng
mozi = WorksheetFunction.Asc(c.Value)
If mozi = "" Then
k2roma = ""
Exit Function
End If
mozisuu = Len(mozi)
'前より変換
For i = 1 To mozisuu
mozi1 = Mid(mozi, i, 1)
mozi2 = Mid(mozi, i + 1, 1)
mozi3 = Mid(mozi, i + 2, 1)
If Asc(mozi1) > 165 And Asc(mozi1) < 224 Then '半角カタカナかどうか判断
' 以下 変換表
Select Case mozi1
Case "ｯ" '促音だった場合
sokuon = True
GoTo 30
Case "ﾝ" '撥音だった場合
hatsuon = True
If i = mozisuu Then
R = N
Else
GoTo 30
End If
Case "ｰ" '長音記号
R = Right(moziR, 1) ' 一応，母音を重ねることにする
'R="" '長音記号は無視する場合
Case "ｱ"
R = "A"
Case "ｲ"
R = "I"
Case "ｳ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｧ"
R = "VA"
i = i + 2
Case "ｨ"
R = "VI"
i = i + 2
Case "ｪ"
R = "VE"
i = i + 2
Case "ｫ"
R = "VO"
i = i + 2
Case "ｬ"
R = "VYA"
i = i + 2
Case "ｭ"
R = "VYU"
i = i + 2
Case "ｮ"
R = "VYO"
i = i + 2
Case Else
R = "VU"
i = i + 1
End Select
Case "ｧ"
R = "WHA"
i = i + 1
Case "ｨ"
R = "WHI"
i = i + 1
Case "ｪ"
R = "WHE"
i = i + 1
Case "ｫ"
R = "WHO"
i = i + 1
Case Else
R = "U"
End Select
Case "ｴ"
R = "E"
Case "ｵ"
R = "O"
Case "ｶ"
If mozi2 = "ﾞ" Then
R = "GA"
i = i + 1
Else
R = "KA"
End If
Case "ｷ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｬ"
R = "GYA"
i = i + 2
Case "ｨ"
R = "GYI"
i = i + 2
Case "ｭ"
R = "GYU"
i = i + 2
Case "ｪ"
R = "GYE"
i = i + 2
Case "ｮ"
R = "GYO"
i = i + 2
Case Else
R = "GI"
i = i + 1
End Select
Case "ｬ"
R = "KYA"
i = i + 1
Case "ｨ"
R = "KYI"
i = i + 1
Case "ｭ"
R = "KYU"
i = i + 1
Case "ｪ"
R = "KYU"
i = i + 1
Case "ｮ"
R = "KYO"
i = i + 1
Case Else
R = "KI"
End Select
Case "ｸ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｧ"
R = "GWA"
i = i + 2
Case "ｨ"
R = "GWI"
i = i + 2
Case "ｩ"
R = "GWU"
i = i + 2
Case "ｪ"
R = "GWE"
i = i + 2
Case "ｫ"
R = "GWO"
i = i + 2
Case Else
R = "GU"
i = i + 1
End Select
Case "ｧ"
R = "QWA"
i = i + 1
Case "ｨ"
R = "QWI"
i = i + 1
Case "ｩ"
R = "QWU"
i = i + 1
Case "ｪ"
R = "QWE"
i = i + 1
Case "ｫ"
R = "QWO"
i = i + 1
Case "ｬ"
R = "QYA"
i = i + 1
Case "ｭ"
R = "QYU"
i = i + 1
Case "ｮ"
R = "QYO"
i = i + 1
Case Else
R = "KU"
End Select
Case "ｹ"
If mozi2 = "ﾞ" Then
R = "GE"
i = i + 1
Else
R = "KE"
End If
Case "ｺ"
If mozi2 = "ﾞ" Then
R = "GO"
i = i + 1
Else
R = "KO"
End If
Case "ｻ"
If mozi2 = "ﾞ" Then
R = "ZA"
i = i + 1
Else
R = "SA"
End If
Case "ｼ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｬ"
R = "JA"
i = i + 2
Case "ｨ"
R = "JYI"
i = i + 2
Case "ｭ"
R = "JU"
i = i + 2
Case "ｪ"
R = "JE"
i = i + 2
Case "ｮ"
R = "JO"
i = i + 2
Case Else
R = "JI"
i = i + 1
End Select
Case "ｬ"
R = "SHA"
i = i + 1
Case "ｨ"
R = "SYI"
i = i + 1
Case "ｭ"
R = "SHU"
i = i + 1
Case "ｮ"
R = "SHO"
i = i + 1
Case Else
R = "SHI"
End Select
Case "ｽ"
Select Case mozi2
Case "ﾞ"
R = "ZU"
i = i + 1
Case "ｧ"
R = "SWA"
i = i + 1
Case "ｨ"
R = "SWI"
i = i + 1
Case "ｩ"
R = "SWU"
i = i + 1
Case "ｪ"
R = "SWE"
i = i + 1
Case "ｫ"
R = "SWO"
i = i + 1
Case Else
R = "SU"
End Select
Case "ｾ"
If mozi2 = "ﾞ" Then
R = "ZE"
i = i + 1
Else
R = "SE"
End If
Case "ｿ"
If mozi2 = "ﾞ" Then
R = "ZO"
i = i + 1
Else
R = "SO"
End If
Case "ﾀ"
If mozi2 = "ﾞ" Then
R = "DA"
i = i + 1
Else
R = "TA"
End If
Case "ﾁ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｬ"
R = "JA"
i = i + 2
Case "ｨ"
R = "DYI"
i = i + 2
Case "ｭ"
R = "JU"
i = i + 2
Case "ｪ"
R = "DYE"
i = i + 2
Case "ｮ"
R = "JO"
i = i + 2
Case Else
R = "JI"
i = i + 1
End Select
Case "ｬ"
R = "CHA"
i = i + 1
Case "ｨ"
R = "CYI"
i = i + 1
Case "ｭ"
R = "CHU"
i = i + 1
Case "ｪ"
R = "CHE"
i = i + 1
Case "ｮ"
R = "CHO"
i = i + 1
Case Else
R = "CHI"
End Select
Case "ﾂ"
Select Case mozi2
Case "ﾞ"
R = "ZU"
i = i + 1
Case "ｧ"
R = "TSA"
i = i + 1
Case "ｨ"
R = "TSI"
i = i + 1
Case "ｪ"
R = "TSE"
i = i + 1
Case "ｫ"
R = "TSO"
i = i + 1
Case Else
R = "TSU"
End Select
Case "ﾃ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｬ"
R = "DHA"
i = i + 2
Case "ｨ"
R = "DHI"
i = i + 2
Case "ｭ"
R = "DHU"
i = i + 2
Case "ｪ"
R = "DHE"
i = i + 2
Case "ｮ"
R = "DHO"
i = i + 2
Case Else
R = "DE"
i = i + 1
End Select
Case "ｬ"
R = "THA"
i = i + 1
Case "ｨ"
R = "THI"
i = i + 1
Case "ｭ"
R = "THU"
i = i + 1
Case "ｪ"
R = "THE"
i = i + 1
Case "ｮ"
R = "THO"
i = i + 1
Case Else
R = "TE"
End Select
Case "ﾄ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｧ"
R = "DWA"
i = i + 2
Case "ｨ"
R = "DWI"
i = i + 2
Case "ｩ"
R = "DWU"
i = i + 2
Case "ｪ"
R = "DWE"
i = i + 2
Case "ｫ"
R = "DWO"
i = i + 2
Case Else
R = "DO"
i = i + 1
End Select
Case "ｧ"
R = "TWA"
i = i + 1
Case "ｨ"
R = "TWI"
i = i + 1
Case "ｩ"
R = "TWU"
i = i + 1
Case "ｪ"
R = "TWE"
i = i + 1
Case "ｫ"
R = "TWO"
i = i + 1
Case Else
R = "TO"
End Select
Case "ﾅ"
R = "NA"
Case "ﾆ"
Select Case mozi2
Case "ｬ"
R = "NYA"
i = i + 1
Case "ｨ"
R = "NYI"
i = i + 1
Case "ｭ"
R = "NYU"
i = i + 1
Case "ｪ"
R = "NYE"
i = i + 1
Case "ｮ"
R = "NYO"
i = i + 1
Case Else
R = "NI"
End Select
Case "ﾇ"
R = "NU"
Case "ﾈ"
R = "NE"
Case "ﾉ"
R = "NO"
Case "ﾊ"
Select Case mozi2
Case "ﾞ"
R = "BA"
i = i + 1
Case "ﾟ"
R = "PA"
i = i + 1
Case Else
R = "HA"
End Select
Case "ﾋ"
Select Case mozi2
Case "ﾞ"
Select Case mozi3
Case "ｬ"
R = "BYA"
i = i + 2
Case "ｨ"
R = "BYI"
i = i + 2
Case "ｭ"
R = "BYU"
i = i + 2
Case "ｪ"
R = "BYE"
i = i + 2
Case "ｮ"
R = "BYO"
i = i + 2
Case Else
R = "BI"
i = i + 1
End Select
Case "ﾟ"
Select Case mozi3
Case "ｬ"
R = "PYA"
i = i + 2
Case "ｨ"
R = "PYI"
i = i + 2
Case "ｭ"
R = "PYU"
i = i + 2
Case "ｪ"
R = "PYE"
i = i + 2
Case "ｮ"
R = "PYO"
i = i + 2
Case Else
R = "PI"
i = i + 1
End Select
Case "ｬ"
R = "HYA"
i = i + 1
Case "ｨ"
R = "HYI"
i = i + 1
Case "ｭ"
R = "HYU"
i = i + 1
Case "ｪ"
R = "HYE"
i = i + 1
Case "ｮ"
R = "HYO"
i = i + 1
Case Else
R = "HI"
End Select
Case "ﾌ"
Select Case mozi2
Case "ﾞ"
R = "BU"
i = i + 1
Case "ﾟ"
R = "PU"
i = i + 1
Case "ｧ"
R = "FA"
i = i + 1
Case "ｨ"
R = "FI"
i = i + 1
Case "ｩ"
R = "FU"
i = i + 1
Case "ｪ"
R = "FE"
i = i + 1
Case "ｫ"
R = "FO"
i = i + 1
Case "ｬ"
R = "FYA"
i = i + 1
Case "ｭ"
R = "FYU"
i = i + 1
Case "ｮ"
R = "FYO"
i = i + 1
Case Else
R = "FU"
End Select
Case "ﾍ"
Select Case mozi2
Case "ﾞ"
R = "BE"
i = i + 1
Case "ﾟ"
R = "PE"
i = i + 1
Case Else
R = "HE"
End Select
Case "ﾎ"
Select Case mozi2
Case "ﾞ"
R = "BO"
i = i + 1
Case "ﾟ"
R = "PO"
i = i + 1
Case Else
R = "HO"
End Select
Case "ﾏ"
R = "MA"
Case "ﾐ"
Select Case mozi2
Case "ｬ"
R = "MYA"
i = i + 1
Case "ｨ"
R = "MYI"
i = i + 1
Case "ｭ"
R = "MYU"
i = i + 1
Case "ｪ"
R = "MYE"
i = i + 1
Case "ｮ"
R = "MYO"
i = i + 1
Case Else
R = "MI"
End Select
Case "ﾑ"
R = "MU"
Case "ﾒ"
R = "ME"
Case "ﾓ"
R = "MO"
Case "ﾔ"
R = "YA"
Case "ﾕ"
R = "YU"
Case "ﾖ"
R = "YO"
Case "ﾗ"
R = "RA"
Case "ﾘ"
Select Case mozi2
Case "ｬ"
R = "RYA"
i = i + 1
Case "ｨ"
R = "RYI"
i = i + 1
Case "ｭ"
R = "RYU"
i = i + 1
Case "ｪ"
R = "RYE"
i = i + 1
Case "ｮ"
R = "RYO"
i = i + 1
Case Else
R = "RI"
End Select
Case "ﾙ"
R = "RU"
Case "ﾚ"
R = "RE"
Case "ﾛ"
R = "RO"
Case "ﾜ"
R = "WA"
Case "ｦ"
R = "WO"
Case "ﾝ"
R = "N"
Case Else
R = "?"
End Select
Else
R = mozi1
End If '' 変換表 終了
If sokuon = True Then '促音処理
sokuon = False
If Left(R, 1) = "C" Then
R = "T" & R
Else
R = Left(R, 1) & R
End If
End If
If hatsuon = True Then '撥音処理
hatsuon = False
If Left(R, 1) = "B" Or Left(R, 1) = "M" Or Left(R, 1) = "P" Then
R = "M" & R
Else
R = "N" & R
End If
End If
moziR = moziR & R
30: Next i
' 変換結果記載
k2roma = moziR
Next c
End Function
すんごいコード！
私のニックネームの読み方は？
１）ジュン ゴジュウ サン
２）ジュン ゴー サン
少しひねって
３）ジュン コ サン
少しひねくれて
４）ジュン コー サン
５）ジェイ ユー エヌ ゴー サン（ゴジュウ サン）
このユーザー関数では何番がいいのでしょう？？？ ん！ （jun53）
間違い訂正（汗）。 ２）がよろしいかと思います。 （ramrun）
実は未だトライしてません。明日調べてみます。 チョット ドキドキ！！ （jun53）
結果報告です。
ジュン ゴジュウ サン JUN GOJUU SAN ジュン ゴー サン JUN GOO SAN ジュン コ サン JUN KO SAN ジュン コー サン JUN KOO SAN ジェイ ユー エヌ ゴー サン JEI YUU ENU GOO SAN ジェイ ユー エヌ ゴジュウ サン JEI YUU ENU GOJUU SAN
おまけで ジュン ゴミ JUN GOMI
以上でした。。。 （jun53）
いろいろありがとうございました。VBAはまったくわかりません＞＜。(nana7)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.