[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルの入力できる文字を半角カタカナにしたいのですが』(海人)
セルに入力できる文字を常に半角カタカナで大文字にしたいのですができますか?
例
⚪⚪コウギョウ → ⚪⚪コウギヨウ
⚪ショウガッコウ → ⚪シヨウガツコウ
みたいな感じです。入力規制みたいなのがありますか?よろしくお願いします。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
(、、、、) 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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.