2018-09-28 10:44:53 Excelヘボン式ローマ字変換アドインリンク切れなのでマクロの覚え
アクセス解析で 訪問者がいるページ
2017-11-30 08:52:02 Excel ヘボン式ローマ字変換アドイン
のかなローマ字変換ユーザー関数はリンク切れでが判明したので
マクロの覚え！！！ としてね。
これでよいか不明だけどね。
転写ーーーーーーーーーーーーーーー
Function KANAROMAN(カナ As String)
'http://amoon.hatenablog.com/entry/2016/05/25/193149
Dim Kana_Roman(157, 1) As String
Dim Bs As String
Bs = Range("B1").End(xlDown).Row
Kana_Roman(0, 0) = "リョウ"
Kana_Roman(0, 1) = "RYO"
Kana_Roman(1, 0) = "リュウ"
Kana_Roman(1, 1) = "RYU"
Kana_Roman(2, 0) = "ミョウ"
Kana_Roman(2, 1) = "MYO"
Kana_Roman(3, 0) = "ミュウ"
Kana_Roman(3, 1) = "MYU"
Kana_Roman(4, 0) = "ピョウ"
Kana_Roman(4, 1) = "PYO"
Kana_Roman(5, 0) = "ビョウ"
Kana_Roman(5, 1) = "BYO"
Kana_Roman(6, 0) = "ヒョウ"
Kana_Roman(6, 1) = "HYO"
Kana_Roman(7, 0) = "ピュウ"
Kana_Roman(7, 1) = "PYU"
Kana_Roman(8, 0) = "ビュウ"
Kana_Roman(8, 1) = "BYU"
Kana_Roman(9, 0) = "ヒュウ"
Kana_Roman(9, 1) = "HYU"
Kana_Roman(10, 0) = "ニョウ"
Kana_Roman(10, 1) = "NYO"
Kana_Roman(11, 0) = "ニュウ"
Kana_Roman(11, 1) = "NYU"
Kana_Roman(12, 0) = "チョウ"
Kana_Roman(12, 1) = "CHO"
Kana_Roman(13, 0) = "チュウ"
Kana_Roman(13, 1) = "CHU"
Kana_Roman(14, 0) = "ジョウ"
Kana_Roman(14, 1) = "JO"
Kana_Roman(15, 0) = "ショウ"
Kana_Roman(15, 1) = "SHO"
Kana_Roman(16, 0) = "ジュウ"
Kana_Roman(16, 1) = "JU"
Kana_Roman(17, 0) = "シュウ"
Kana_Roman(17, 1) = "SHU"
Kana_Roman(18, 0) = "ギョウ"
Kana_Roman(18, 1) = "GYO"
Kana_Roman(19, 0) = "キョウ"
Kana_Roman(19, 1) = "KYO"
Kana_Roman(20, 0) = "ギュウ"
Kana_Roman(20, 1) = "GYU"
Kana_Roman(21, 0) = "キュウ"
Kana_Roman(21, 1) = "KYU"
Kana_Roman(22, 0) = "ヲウ"
Kana_Roman(22, 1) = "O"
Kana_Roman(23, 0) = "ロウ"
Kana_Roman(23, 1) = "RO"
Kana_Roman(24, 0) = "ルウ"
Kana_Roman(24, 1) = "RU"
Kana_Roman(25, 0) = "リョ"
Kana_Roman(25, 1) = "RYO"
Kana_Roman(26, 0) = "リュ"
Kana_Roman(26, 1) = "RYU"
Kana_Roman(27, 0) = "リャ"
Kana_Roman(27, 1) = "RYA"
Kana_Roman(28, 0) = "ヨウ"
Kana_Roman(28, 1) = "YO"
Kana_Roman(29, 0) = "ユウ"
Kana_Roman(29, 1) = "YU"
Kana_Roman(30, 0) = "モウ"
Kana_Roman(30, 1) = "MO"
Kana_Roman(31, 0) = "ムウ"
Kana_Roman(31, 1) = "MU"
Kana_Roman(32, 0) = "ミョ"
Kana_Roman(32, 1) = "MYO"
Kana_Roman(33, 0) = "ミュ"
Kana_Roman(33, 1) = "MYU"
Kana_Roman(34, 0) = "ミャ"
Kana_Roman(34, 1) = "MYA"
Kana_Roman(35, 0) = "ポウ"
Kana_Roman(35, 1) = "PO"
Kana_Roman(36, 0) = "ボウ"
Kana_Roman(36, 1) = "BO"
Kana_Roman(37, 0) = "ホウ"
Kana_Roman(37, 1) = "HO"
Kana_Roman(38, 0) = "プウ"
Kana_Roman(38, 1) = "PU"
Kana_Roman(39, 0) = "ブウ"
Kana_Roman(39, 1) = "BU"
Kana_Roman(40, 0) = "フウ"
Kana_Roman(40, 1) = "FU"
Kana_Roman(41, 0) = "ピョ"
Kana_Roman(41, 1) = "PYO"
Kana_Roman(42, 0) = "ビョ"
Kana_Roman(42, 1) = "BYO"
Kana_Roman(43, 0) = "ヒョ"
Kana_Roman(43, 1) = "HYO"
Kana_Roman(44, 0) = "ピュ"
Kana_Roman(44, 1) = "PYU"
Kana_Roman(45, 0) = "ビュ"
Kana_Roman(45, 1) = "BYU"
Kana_Roman(46, 0) = "ヒュ"
Kana_Roman(46, 1) = "HYU"
Kana_Roman(47, 0) = "ピャ"
Kana_Roman(47, 1) = "PYA"
Kana_Roman(48, 0) = "ビャ"
Kana_Roman(48, 1) = "BYA"
Kana_Roman(49, 0) = "ヒャ"
Kana_Roman(49, 1) = "HYA"
Kana_Roman(50, 0) = "ノウ"
Kana_Roman(50, 1) = "NO"
Kana_Roman(51, 0) = "ヌウ"
Kana_Roman(51, 1) = "NU"
Kana_Roman(52, 0) = "ニョ"
Kana_Roman(52, 1) = "NYO"
Kana_Roman(53, 0) = "ニュ"
Kana_Roman(53, 1) = "NYU"
Kana_Roman(54, 0) = "ニャ"
Kana_Roman(54, 1) = "NYA"
Kana_Roman(55, 0) = "ドウ"
Kana_Roman(55, 1) = "DO"
Kana_Roman(56, 0) = "トウ"
Kana_Roman(56, 1) = "TO"
Kana_Roman(57, 0) = "ヅウ"
Kana_Roman(57, 1) = "ZU"
Kana_Roman(58, 0) = "ツウ"
Kana_Roman(58, 1) = "TSU"
Kana_Roman(59, 0) = "チョ"
Kana_Roman(59, 1) = "CHO"
Kana_Roman(60, 0) = "チュ"
Kana_Roman(60, 1) = "CHU"
Kana_Roman(61, 0) = "チャ"
Kana_Roman(61, 1) = "CHA"
Kana_Roman(62, 0) = "ゾウ"
Kana_Roman(62, 1) = "ZO"
Kana_Roman(63, 0) = "ソウ"
Kana_Roman(63, 1) = "SO"
Kana_Roman(64, 0) = "ズウ"
Kana_Roman(64, 1) = "ZU"
Kana_Roman(65, 0) = "スウ"
Kana_Roman(65, 1) = "SU"
Kana_Roman(66, 0) = "ジョ"
Kana_Roman(66, 1) = "JO"
Kana_Roman(67, 0) = "ショ"
Kana_Roman(67, 1) = "SHO"
Kana_Roman(68, 0) = "ジュ"
Kana_Roman(68, 1) = "JU"
Kana_Roman(69, 0) = "シュ"
Kana_Roman(69, 1) = "SHU"
Kana_Roman(70, 0) = "ジャ"
Kana_Roman(70, 1) = "JA"
Kana_Roman(71, 0) = "シャ"
Kana_Roman(71, 1) = "SHA"
Kana_Roman(72, 0) = "ゴウ"
Kana_Roman(72, 1) = "GO"
Kana_Roman(73, 0) = "コウ"
Kana_Roman(73, 1) = "KO"
Kana_Roman(74, 0) = "グウ"
Kana_Roman(74, 1) = "GU"
Kana_Roman(75, 0) = "クウ"
Kana_Roman(75, 1) = "KU"
Kana_Roman(76, 0) = "ギョ"
Kana_Roman(76, 1) = "GYO"
Kana_Roman(77, 0) = "キョ"
Kana_Roman(77, 1) = "KYO"
Kana_Roman(78, 0) = "ギュ"
Kana_Roman(78, 1) = "GYU"
Kana_Roman(79, 0) = "キュ"
Kana_Roman(79, 1) = "KYU"
Kana_Roman(80, 0) = "ギャ"
Kana_Roman(80, 1) = "GYA"
Kana_Roman(81, 0) = "キャ"
Kana_Roman(81, 1) = "KYA"
Kana_Roman(82, 0) = "オオ"
Kana_Roman(82, 1) = "O"
Kana_Roman(83, 0) = "オウ"
Kana_Roman(83, 1) = "O"
Kana_Roman(84, 0) = "ウウ"
Kana_Roman(84, 1) = "U"
Kana_Roman(85, 0) = "ン"
Kana_Roman(85, 1) = "N"
Kana_Roman(86, 0) = "ヲ"
Kana_Roman(86, 1) = "O"
Kana_Roman(87, 0) = "ヱ"
Kana_Roman(87, 1) = "E"
Kana_Roman(88, 0) = "ヰ"
Kana_Roman(88, 1) = "I"
Kana_Roman(89, 0) = "ワ"
Kana_Roman(89, 1) = "WA"
Kana_Roman(90, 0) = "ロ"
Kana_Roman(90, 1) = "RO"
Kana_Roman(91, 0) = "レ"
Kana_Roman(91, 1) = "RE"
Kana_Roman(92, 0) = "ル"
Kana_Roman(92, 1) = "RU"
Kana_Roman(93, 0) = "リ"
Kana_Roman(93, 1) = "RI"
Kana_Roman(94, 0) = "ラ"
Kana_Roman(94, 1) = "RA"
Kana_Roman(95, 0) = "ヨ"
Kana_Roman(95, 1) = "YO"
Kana_Roman(96, 0) = "ユ"
Kana_Roman(96, 1) = "YU"
Kana_Roman(97, 0) = "ヤ"
Kana_Roman(97, 1) = "YA"
Kana_Roman(98, 0) = "モ"
Kana_Roman(98, 1) = "MO"
Kana_Roman(99, 0) = "メ"
Kana_Roman(99, 1) = "ME"
Kana_Roman(100, 0) = "ム"
Kana_Roman(100, 1) = "MU"
Kana_Roman(101, 0) = "ミ"
Kana_Roman(101, 1) = "MI"
Kana_Roman(102, 0) = "マ"
Kana_Roman(102, 1) = "MA"
Kana_Roman(103, 0) = "ポ"
Kana_Roman(103, 1) = "PO"
Kana_Roman(104, 0) = "ボ"
Kana_Roman(104, 1) = "BO"
Kana_Roman(105, 0) = "ホ"
Kana_Roman(105, 1) = "HO"
Kana_Roman(106, 0) = "ペ"
Kana_Roman(106, 1) = "PE"
Kana_Roman(107, 0) = "ベ"
Kana_Roman(107, 1) = "BE"
Kana_Roman(108, 0) = "ヘ"
Kana_Roman(108, 1) = "HE"
Kana_Roman(109, 0) = "プ"
Kana_Roman(109, 1) = "PU"
Kana_Roman(110, 0) = "ブ"
Kana_Roman(110, 1) = "BU"
Kana_Roman(111, 0) = "フ"
Kana_Roman(111, 1) = "FU"
Kana_Roman(112, 0) = "ピ"
Kana_Roman(112, 1) = "PI"
Kana_Roman(113, 0) = "ビ"
Kana_Roman(113, 1) = "BI"
Kana_Roman(114, 0) = "ヒ"
Kana_Roman(114, 1) = "HI"
Kana_Roman(115, 0) = "パ"
Kana_Roman(115, 1) = "PA"
Kana_Roman(116, 0) = "バ"
Kana_Roman(116, 1) = "BA"
Kana_Roman(117, 0) = "ハ"
Kana_Roman(117, 1) = "HA"
Kana_Roman(118, 0) = "ノ"
Kana_Roman(118, 1) = "NO"
Kana_Roman(119, 0) = "ネ"
Kana_Roman(119, 1) = "NE"
Kana_Roman(120, 0) = "ヌ"
Kana_Roman(120, 1) = "NU"
Kana_Roman(121, 0) = "ニ"
Kana_Roman(121, 1) = "NI"
Kana_Roman(122, 0) = "ナ"
Kana_Roman(122, 1) = "NA"
Kana_Roman(123, 0) = "ド"
Kana_Roman(123, 1) = "DO"
Kana_Roman(124, 0) = "ト"
Kana_Roman(124, 1) = "TO"
Kana_Roman(125, 0) = "デ"
Kana_Roman(125, 1) = "DE"
Kana_Roman(126, 0) = "テ"
Kana_Roman(126, 1) = "TE"
Kana_Roman(127, 0) = "ヅ"
Kana_Roman(127, 1) = "ZU"
Kana_Roman(128, 0) = "ツ"
Kana_Roman(128, 1) = "TSU"
Kana_Roman(129, 0) = "ヂ"
Kana_Roman(129, 1) = "JI"
Kana_Roman(130, 0) = "チ"
Kana_Roman(130, 1) = "CHI"
Kana_Roman(131, 0) = "ダ"
Kana_Roman(131, 1) = "DA"
Kana_Roman(132, 0) = "タ"
Kana_Roman(132, 1) = "TA"
Kana_Roman(133, 0) = "ゾ"
Kana_Roman(133, 1) = "ZO"
Kana_Roman(134, 0) = "ソ"
Kana_Roman(134, 1) = "SO"
Kana_Roman(135, 0) = "ゼ"
Kana_Roman(135, 1) = "ZE"
Kana_Roman(136, 0) = "セ"
Kana_Roman(136, 1) = "SE"
Kana_Roman(137, 0) = "ズ"
Kana_Roman(137, 1) = "ZU"
Kana_Roman(138, 0) = "ス"
Kana_Roman(138, 1) = "SU"
Kana_Roman(139, 0) = "ジ"
Kana_Roman(139, 1) = "JI"
Kana_Roman(140, 0) = "シ"
Kana_Roman(140, 1) = "SHI"
Kana_Roman(141, 0) = "ザ"
Kana_Roman(141, 1) = "ZA"
Kana_Roman(142, 0) = "サ"
Kana_Roman(142, 1) = "SA"
Kana_Roman(143, 0) = "ゴ"
Kana_Roman(143, 1) = "GO"
Kana_Roman(144, 0) = "コ"
Kana_Roman(144, 1) = "KO"
Kana_Roman(145, 0) = "ゲ"
Kana_Roman(145, 1) = "GE"
Kana_Roman(146, 0) = "ケ"
Kana_Roman(146, 1) = "KE"
Kana_Roman(147, 0) = "グ"
Kana_Roman(147, 1) = "GU"
Kana_Roman(148, 0) = "ク"
Kana_Roman(148, 1) = "KU"
Kana_Roman(149, 0) = "ギ"
Kana_Roman(149, 1) = "GI"
Kana_Roman(150, 0) = "キ"
Kana_Roman(150, 1) = "KI"
Kana_Roman(151, 0) = "ガ"
Kana_Roman(151, 1) = "GA"
Kana_Roman(152, 0) = "カ"
Kana_Roman(152, 1) = "KA"
Kana_Roman(153, 0) = "オ"
Kana_Roman(153, 1) = "O"
Kana_Roman(154, 0) = "エ"
Kana_Roman(154, 1) = "E"
Kana_Roman(155, 0) = "ウ"
Kana_Roman(155, 1) = "U"
Kana_Roman(156, 0) = "イ"
Kana_Roman(156, 1) = "I"
Kana_Roman(157, 0) = "ア"
Kana_Roman(157, 1) = "A"
Dim Convkana As String
Dim Row As Integer
Dim Column As Integer
Convkana = カナ
Convkana = StrConv(Convkana, vbKatakana)
For Row = 0 To 157
Convkana = Replace(Convkana, Kana_Roman(Row, 0), Kana_Roman(Row, 1))
Next Row
Call 補足変換(Convkana)
KANAROMAN = Convkana
End Function
Private Sub 補足変換(ByRef Str1 As String)
Dim Cnt3 As Integer, Str2 As Integer, N As Integer
Dim Sokuon As String, Sokuon2 As String
'---
'促音の判定ここから
'"ッ"の個数を調べる
Cnt3 = 0 '"ッ"の数リセット
N = InStr(1, Str1, "ッ")
Do While N > 0
Cnt3 = Cnt3 + 1
N = InStr(N + 1, Str1, "ッ")
Loop
'促音の数で場合分け
Select Case Cnt3
Case Is = 1
Str2 = InStr(Str1, "ッ")
Sokuon2 = Mid(Str1, Str2 + 1, 1)
If Str2 <> 0 And Sokuon2 <> "C" Then
Str1 = Replace(Str1, "ッ", Mid(Str1, Str2 + 1, 1)) '促音は次の文字を繰り返す
Else
Str1 = Replace(Str1, "ッ", "T") 'Cの前の促音はT
End If
Case Is >= 2
Str1 = "エラー：「ッ」が2個以上あるため変換できませんでした。"
Case Is = 0
End Select
'---
'促音の判定ここまで
'バ行パ行の前のンはM
Str1 = Replace(Str1, "NB", "MB")
Str1 = Replace(Str1, "NP", "MP")
End Sub転写終ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
