Private Sub Worksheet_Change(ByVal Target As Range)
'Bookの全イベントを抑止
Application.EnableEvents = False
'"Enter"アクティブセルを移動させない
Application.MoveAfterReturn = False
'D列の入力のみ対象
On Error Resume Next
If Not Intersect(Target, Columns("D")) Is Nothing Then
ActiveCell.Select
ActiveCell = StrConv(Target, vbKatakana + vbNarrow)
GoTo finish
End If
'C列の入力のみ対象
On Error Resume Next
Dim i As Long
If Not Intersect(Target, Columns("C")) Is Nothing Then
Debug.Print ActiveCell.Row
i = ActiveCell.Row
'選択した範囲のひらがな（拗音）をローマ字に変換する
Cells(i, 3).Replace What:="ぁ", Replacement:="a"
Cells(i, 3).Replace What:="ぃ", Replacement:="i"
Cells(i, 3).Replace What:="ぅ", Replacement:="u"
Cells(i, 3).Replace What:="ぇ", Replacement:="e"
Cells(i, 3).Replace What:="ぉ", Replacement:="o"
Cells(i, 3).Replace What:="ふぁ", Replacement:="fa"
Cells(i, 3).Replace What:="りゃ", Replacement:="rya"
Cells(i, 3).Replace What:="みゃ", Replacement:="mya"
Cells(i, 3).Replace What:="ひゃ", Replacement:="hya"
Cells(i, 3).Replace What:="にゃ", Replacement:="nya"
Cells(i, 3).Replace What:="ちゃ", Replacement:="cha" 'cyaでもOK
Cells(i, 3).Replace What:="しゃ", Replacement:="sha" 'syaでもOK
Cells(i, 3).Replace What:="きゃ", Replacement:="kya"
Cells(i, 3).Replace What:="ぴゃ", Replacement:="pya"
Cells(i, 3).Replace What:="びゃ", Replacement:="bya"
Cells(i, 3).Replace What:="ぢゃ", Replacement:="dya"
Cells(i, 3).Replace What:="じゃ", Replacement:="ja"
Cells(i, 3).Replace What:="ぎゃ", Replacement:="gya"
Cells(i, 3).Replace What:="ふぃ", Replacement:="fi"
Cells(i, 3).Replace What:="ぴゅ", Replacement:="pyu"
Cells(i, 3).Replace What:="びゅ", Replacement:="byu"
Cells(i, 3).Replace What:="ぢゅ", Replacement:="dyu"
Cells(i, 3).Replace What:="じゅ", Replacement:="ju"
Cells(i, 3).Replace What:="ぎゅ", Replacement:="gyu"
Cells(i, 3).Replace What:="ふぇ", Replacement:="fe"
Cells(i, 3).Replace What:="りゅ", Replacement:="ryu"
Cells(i, 3).Replace What:="みゅ", Replacement:="myu"
Cells(i, 3).Replace What:="ひゅ", Replacement:="hyu"
Cells(i, 3).Replace What:="にゅ", Replacement:="nyu"
Cells(i, 3).Replace What:="ちゅ", Replacement:="chu" 'cyuでもOK
Cells(i, 3).Replace What:="しゅ", Replacement:="shu" 'syuでもOK
Cells(i, 3).Replace What:="きゅ", Replacement:="kyu"
Cells(i, 3).Replace What:="ぴょ", Replacement:="pyo"
Cells(i, 3).Replace What:="びょ", Replacement:="byo"
Cells(i, 3).Replace What:="ぢょ", Replacement:="dyo"
Cells(i, 3).Replace What:="じょ", Replacement:="jo"
Cells(i, 3).Replace What:="ぎょ", Replacement:="gyo"
Cells(i, 3).Replace What:="ふぉ", Replacement:="fo"
Cells(i, 3).Replace What:="りょ", Replacement:="ryo"
Cells(i, 3).Replace What:="みょ", Replacement:="myo"
Cells(i, 3).Replace What:="ひょ", Replacement:="hyo"
Cells(i, 3).Replace What:="にょ", Replacement:="nyo"
Cells(i, 3).Replace What:="ちょ", Replacement:="cho" 'cyoでもOK
Cells(i, 3).Replace What:="しょ", Replacement:="sho" 'syoでもOK
Cells(i, 3).Replace What:="きょ", Replacement:="kyo"
Cells(i, 3).Replace What:="ちぇ", Replacement:="che" 'cyeでもOK
'選択した範囲のカタカナ（拗音）をローマ字に変換する
Cells(i, 3).Replace What:="ィ", Replacement:="li"
Cells(i, 3).Replace What:="ファ", Replacement:="fa"
Cells(i, 3).Replace What:="リャ", Replacement:="rya"
Cells(i, 3).Replace What:="ミャ", Replacement:="mya"
Cells(i, 3).Replace What:="ヒャ", Replacement:="hya"
Cells(i, 3).Replace What:="ニャ", Replacement:="nya"
Cells(i, 3).Replace What:="チャ", Replacement:="cha" 'cyaでもOK
Cells(i, 3).Replace What:="シャ", Replacement:="sha" 'syaでもOK
Cells(i, 3).Replace What:="キャ", Replacement:="kya"
Cells(i, 3).Replace What:="ピャ", Replacement:="pya"
Cells(i, 3).Replace What:="ビャ", Replacement:="bya"
Cells(i, 3).Replace What:="ヂャ", Replacement:="dya"
Cells(i, 3).Replace What:="ジャ", Replacement:="ja"
Cells(i, 3).Replace What:="ギャ", Replacement:="gya"
Cells(i, 3).Replace What:="フィ", Replacement:="fi"
Cells(i, 3).Replace What:="ピュ", Replacement:="pyu"
Cells(i, 3).Replace What:="ビュ", Replacement:="byu"
Cells(i, 3).Replace What:="ヂュ", Replacement:="dyu"
Cells(i, 3).Replace What:="ジュ", Replacement:="ju"
Cells(i, 3).Replace What:="ギュ", Replacement:="gyu"
Cells(i, 3).Replace What:="フェ", Replacement:="fe"
Cells(i, 3).Replace What:="リュ", Replacement:="ryu"
Cells(i, 3).Replace What:="ミュ", Replacement:="myu"
Cells(i, 3).Replace What:="ヒュ", Replacement:="hyu"
Cells(i, 3).Replace What:="ニュ", Replacement:="nyu"
Cells(i, 3).Replace What:="チュ", Replacement:="chu" 'cyuでもOK
Cells(i, 3).Replace What:="シュ", Replacement:="shu" 'syuでもOK
Cells(i, 3).Replace What:="キュ", Replacement:="kyu"
Cells(i, 3).Replace What:="ピョ", Replacement:="pyo"
Cells(i, 3).Replace What:="ビョ", Replacement:="byo"
Cells(i, 3).Replace What:="ヂョ", Replacement:="dyo"
Cells(i, 3).Replace What:="ジョ", Replacement:="jo"
Cells(i, 3).Replace What:="ギョ", Replacement:="gyo"
Cells(i, 3).Replace What:="フォ", Replacement:="fo"
Cells(i, 3).Replace What:="リョ", Replacement:="ryo"
Cells(i, 3).Replace What:="ミョ", Replacement:="myo"
Cells(i, 3).Replace What:="ヒョ", Replacement:="hyo"
Cells(i, 3).Replace What:="ニョ", Replacement:="nyo"
Cells(i, 3).Replace What:="チョ", Replacement:="cho" 'cyoでもOK
Cells(i, 3).Replace What:="ショ", Replacement:="sho" 'syoでもOK
Cells(i, 3).Replace What:="キョ", Replacement:="kyo"
Cells(i, 3).Replace What:="チェ", Replacement:="che" 'cyeでもOK
'選択した範囲のひらがな（拗音以外）をローマ字に変換する
Cells(i, 3).Replace What:="ん", Replacement:="nn"
Cells(i, 3).Replace What:="わ", Replacement:="wa"
Cells(i, 3).Replace What:="ら", Replacement:="ra"
Cells(i, 3).Replace What:="や", Replacement:="ya"
Cells(i, 3).Replace What:="ま", Replacement:="ma"
Cells(i, 3).Replace What:="は", Replacement:="ha"
Cells(i, 3).Replace What:="な", Replacement:="na"
Cells(i, 3).Replace What:="た", Replacement:="ta"
Cells(i, 3).Replace What:="さ", Replacement:="sa"
Cells(i, 3).Replace What:="か", Replacement:="ka"
Cells(i, 3).Replace What:="あ", Replacement:="a"
Cells(i, 3).Replace What:="ぱ", Replacement:="pa"
Cells(i, 3).Replace What:="ば", Replacement:="ba"
Cells(i, 3).Replace What:="だ", Replacement:="da"
Cells(i, 3).Replace What:="ざ", Replacement:="za"
Cells(i, 3).Replace What:="が", Replacement:="ga"
Cells(i, 3).Replace What:="り", Replacement:="ri"
Cells(i, 3).Replace What:="み", Replacement:="mi"
Cells(i, 3).Replace What:="ひ", Replacement:="hi"
Cells(i, 3).Replace What:="に", Replacement:="ni"
Cells(i, 3).Replace What:="ち", Replacement:="chi" 'tiでもOK
Cells(i, 3).Replace What:="し", Replacement:="shi" 'siでもOK
Cells(i, 3).Replace What:="き", Replacement:="ki"
Cells(i, 3).Replace What:="い", Replacement:="i"
Cells(i, 3).Replace What:="ぴ", Replacement:="pi"
Cells(i, 3).Replace What:="び", Replacement:="bi"
Cells(i, 3).Replace What:="ぢ", Replacement:="di"
Cells(i, 3).Replace What:="じ", Replacement:="ji"
Cells(i, 3).Replace What:="ぎ", Replacement:="gi"
Cells(i, 3).Replace What:="る", Replacement:="ru"
Cells(i, 3).Replace What:="ゆ", Replacement:="yu"
Cells(i, 3).Replace What:="む", Replacement:="mu"
Cells(i, 3).Replace What:="ふ", Replacement:="fu" 'huでもOK
Cells(i, 3).Replace What:="ぬ", Replacement:="nu"
Cells(i, 3).Replace What:="つ", Replacement:="tu"
Cells(i, 3).Replace What:="す", Replacement:="su"
Cells(i, 3).Replace What:="く", Replacement:="ku"
Cells(i, 3).Replace What:="う", Replacement:="u"
Cells(i, 3).Replace What:="ぷ", Replacement:="pu"
Cells(i, 3).Replace What:="ぶ", Replacement:="bu"
Cells(i, 3).Replace What:="づ", Replacement:="du"
Cells(i, 3).Replace What:="ず", Replacement:="zu"
Cells(i, 3).Replace What:="ぐ", Replacement:="gu"
Cells(i, 3).Replace What:="ヴ", Replacement:="vu"
Cells(i, 3).Replace What:="れ", Replacement:="re"
Cells(i, 3).Replace What:="め", Replacement:="me"
Cells(i, 3).Replace What:="へ", Replacement:="he"
Cells(i, 3).Replace What:="ね", Replacement:="ne"
Cells(i, 3).Replace What:="て", Replacement:="te"
Cells(i, 3).Replace What:="せ", Replacement:="se"
Cells(i, 3).Replace What:="け", Replacement:="ke"
Cells(i, 3).Replace What:="え", Replacement:="e"
Cells(i, 3).Replace What:="ぺ", Replacement:="pe"
Cells(i, 3).Replace What:="べ", Replacement:="be"
Cells(i, 3).Replace What:="で", Replacement:="de"
Cells(i, 3).Replace What:="ぜ", Replacement:="ze"
Cells(i, 3).Replace What:="げ", Replacement:="ge"
Cells(i, 3).Replace What:="を", Replacement:="wo"
Cells(i, 3).Replace What:="ろ", Replacement:="ro"
Cells(i, 3).Replace What:="よ", Replacement:="yo"
Cells(i, 3).Replace What:="も", Replacement:="mo"
Cells(i, 3).Replace What:="ほ", Replacement:="ho"
Cells(i, 3).Replace What:="の", Replacement:="no"
Cells(i, 3).Replace What:="と", Replacement:="to"
Cells(i, 3).Replace What:="そ", Replacement:="so"
Cells(i, 3).Replace What:="こ", Replacement:="ko"
Cells(i, 3).Replace What:="お", Replacement:="o"
Cells(i, 3).Replace What:="ぽ", Replacement:="po"
Cells(i, 3).Replace What:="ぼ", Replacement:="bo"
Cells(i, 3).Replace What:="ど", Replacement:="do"
Cells(i, 3).Replace What:="ぞ", Replacement:="zo"
Cells(i, 3).Replace What:="ご", Replacement:="go"
Cells(i, 3).Replace What:="ゑ", Replacement:="we"
Cells(i, 3).Replace What:="ゐ", Replacement:="wi"
Cells(i, 3).Replace What:="っ", Replacement:="t"
Cells(i, 3).Replace What:="ー", Replacement:="-"
'選択した範囲のカタカナ（拗音以外）をローマ字に変換する
Cells(i, 3).Replace What:="ン", Replacement:="nn"
Cells(i, 3).Replace What:="ワ", Replacement:="wa"
Cells(i, 3).Replace What:="ラ", Replacement:="ra"
Cells(i, 3).Replace What:="ヤ", Replacement:="ya"
Cells(i, 3).Replace What:="マ", Replacement:="ma"
Cells(i, 3).Replace What:="ハ", Replacement:="ha"
Cells(i, 3).Replace What:="ナ", Replacement:="na"
Cells(i, 3).Replace What:="タ", Replacement:="ta"
Cells(i, 3).Replace What:="サ", Replacement:="sa"
Cells(i, 3).Replace What:="カ", Replacement:="ka"
Cells(i, 3).Replace What:="ア", Replacement:="a"
Cells(i, 3).Replace What:="パ", Replacement:="pa"
Cells(i, 3).Replace What:="バ", Replacement:="ba"
Cells(i, 3).Replace What:="ダ", Replacement:="da"
Cells(i, 3).Replace What:="ザ", Replacement:="za"
Cells(i, 3).Replace What:="ガ", Replacement:="ga"
Cells(i, 3).Replace What:="リ", Replacement:="ri"
Cells(i, 3).Replace What:="ミ", Replacement:="mi"
Cells(i, 3).Replace What:="ヒ", Replacement:="hi"
Cells(i, 3).Replace What:="ニ", Replacement:="ni"
Cells(i, 3).Replace What:="チ", Replacement:="chi" 'tiでもOK
Cells(i, 3).Replace What:="シ", Replacement:="shi" 'siでもOK
Cells(i, 3).Replace What:="キ", Replacement:="ki"
Cells(i, 3).Replace What:="イ", Replacement:="i"
Cells(i, 3).Replace What:="ピ", Replacement:="pi"
Cells(i, 3).Replace What:="ビ", Replacement:="bi"
Cells(i, 3).Replace What:="ヂ", Replacement:="di"
Cells(i, 3).Replace What:="ジ", Replacement:="ji"
Cells(i, 3).Replace What:="ギ", Replacement:="gi"
Cells(i, 3).Replace What:="ル", Replacement:="ru"
Cells(i, 3).Replace What:="ユ", Replacement:="yu"
Cells(i, 3).Replace What:="ム", Replacement:="mu"
Cells(i, 3).Replace What:="フ", Replacement:="fu" 'huでもOK
Cells(i, 3).Replace What:="ヌ", Replacement:="nu"
Cells(i, 3).Replace What:="ツ", Replacement:="tsu"
Cells(i, 3).Replace What:="ス", Replacement:="su"
Cells(i, 3).Replace What:="ク", Replacement:="ku"
Cells(i, 3).Replace What:="ウ", Replacement:="u"
Cells(i, 3).Replace What:="プ", Replacement:="pu"
Cells(i, 3).Replace What:="ブ", Replacement:="bu"
Cells(i, 3).Replace What:="ヅ", Replacement:="du"
Cells(i, 3).Replace What:="ズ", Replacement:="zu"
Cells(i, 3).Replace What:="グ", Replacement:="gu"
Cells(i, 3).Replace What:="ヴ", Replacement:="vu"
Cells(i, 3).Replace What:="レ", Replacement:="re"
Cells(i, 3).Replace What:="メ", Replacement:="me"
Cells(i, 3).Replace What:="ヘ", Replacement:="he"
Cells(i, 3).Replace What:="ネ", Replacement:="ne"
Cells(i, 3).Replace What:="テ", Replacement:="te"
Cells(i, 3).Replace What:="セ", Replacement:="se"
Cells(i, 3).Replace What:="ケ", Replacement:="ke"
Cells(i, 3).Replace What:="エ", Replacement:="e"
Cells(i, 3).Replace What:="ペ", Replacement:="pe"
Cells(i, 3).Replace What:="ベ", Replacement:="be"
Cells(i, 3).Replace What:="デ", Replacement:="de"
Cells(i, 3).Replace What:="ゼ", Replacement:="ze"
Cells(i, 3).Replace What:="ゲ", Replacement:="ge"
Cells(i, 3).Replace What:="ヲ", Replacement:="wo"
Cells(i, 3).Replace What:="ロ", Replacement:="ro"
Cells(i, 3).Replace What:="ヨ", Replacement:="yo"
Cells(i, 3).Replace What:="モ", Replacement:="mo"
Cells(i, 3).Replace What:="ホ", Replacement:="ho"
Cells(i, 3).Replace What:="ノ", Replacement:="no"
Cells(i, 3).Replace What:="ト", Replacement:="to"
Cells(i, 3).Replace What:="ソ", Replacement:="so"
Cells(i, 3).Replace What:="コ", Replacement:="ko"
Cells(i, 3).Replace What:="オ", Replacement:="o"
Cells(i, 3).Replace What:="ポ", Replacement:="po"
Cells(i, 3).Replace What:="ボ", Replacement:="bo"
Cells(i, 3).Replace What:="ド", Replacement:="do"
Cells(i, 3).Replace What:="ゾ", Replacement:="zo"
Cells(i, 3).Replace What:="ゴ", Replacement:="go"
Cells(i, 3).Replace What:="ヱ", Replacement:="we"
Cells(i, 3).Replace What:="ヰ", Replacement:="wi"
Cells(i, 3).Replace What:="ッ", Replacement:="t"
Cells(i, 3).Replace What:="ー", Replacement:="-"
'大文字 + 半角にする
ActiveCell = StrConv(Target, vbUpperCase + vbNarrow)
finish:
Application.EnableEvents = True
End Sub
'今後の課題
'DELETEキーを押すと下のセル値まで削除される。それを防ぐ為にいちいちCtrl+Deleteを押すのが面倒くさいので何とかしたい