[[20150727173230]]　『セルの入力できる文字を半角カタカナにしたいので』（海人）　ページの最後に飛ぶ

『セルの入力できる文字を半角カタカナにしたいのですが』（海人）

セルに入力できる文字を常に半角カタカナで大文字にしたいのですができますか？

例
⚪⚪ｺｳｷﾞｮｳ → ⚪⚪ｺｳｷﾞﾖｳ
⚪ｼｮｳｶﾞｯｺｳ → ⚪ｼﾖｳｶﾞﾂｺｳ

みたいな感じです。入力規制みたいなのがありますか？よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

関数　　=ASC(セル値）

（、、、、） 2015/07/27(月) 18:48

マクロです。シートモジュールにコピーしてください。
不具合あるかもしれません。

 Option Explicit

 Const Hanni As String = "B2:D5"　'★対象範囲

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s1, s2
    Dim i As Long
    Dim r As Range

    Set r = Intersect(Target, Range(Hanni))
    If r Is Nothing Then Exit Sub

    s1 = Array("ｧ", "ｨ", "ｩ", "ｪ", "ｫ", "ｯ", "ｬ", "ｭ", "ｮ")
    s2 = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾂ", "ﾔ", "ﾕ", "ﾖ")

    Application.EnableEvents = False

    For i = LBound(s1) To UBound(s1)
        r.Replace What:=s1(i), Replacement:=s2(i), LookAt:=xlPart
    Next

    Application.EnableEvents = True

 End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range

    Set r = Intersect(Target, Range(Hanni))
    If r Is Nothing Then Exit Sub

    With r.Validation
        .Delete
        .Add Type:=xlValidateInputOnly
        .IMEMode = xlIMEModeKatakanaHalf
    End With

 End Sub

（マナ） 2015/07/27(月) 23:12

コメント返信：