Excelで全角英数字を半角英数字に変換

ユーザ定義関数を作る方法 この方法は、全角を半角へ書き換えるわけではありません。 質問の要望とは異なるので、却下されるかも知れませんが、参考までに。 ユーザ定義関数でカウントすれば、条件は自由に設定できます。 （全角半角の区別、大文字小文字の区別など） マクロ等を実行する必要は無く、入力したら即、計算されますので、その点では、便利だと思います。 ----以下手順---- ・[Alt]+[F11]でVBAの画面を開く ・[挿入]→[標準モジュール]でモジュールを追加 ・下記を記述 '全角・半角の区別はしない、大文字・小文字は区別する Public Function MyCOUNTIF(範囲 As Range, 検索値 As Variant) 　Dim i As Long 　MyCOUNTIF = 0 　For i = 1 To 範囲.Count 　　If StrConv(範囲.Item(i), vbNarrow) = 検索値 Then 　　　MyCOUNTIF = MyCOUNTIF + 1 　　End If 　Next End Function ・Excelへ戻り、COUNTIFをMyCOUNTIFに書き換える。 ----以上手順---- 大文字・小文字を区別しない場合は、下記の一行を変更して下さい。 ＞　　If StrConv(範囲.Item(i), vbNarrow) = 検索値 Then 　　If StrConv(範囲.Item(i), vbNarrow + vbLowerCase) = StrConv(検索値, vbLowerCase) Then

　　　　If InStr(1, 自動変換対象_行, 入力行, vbTextCompare) And InStr(1, 自動変換対象_列, 入力列, vbTextCompare) Then 　　　　　　なにを = 自動変換対象_前1 & 自動変換対象_前2 　　　　　　なにに = 自動変換対象_後1 & 自動変換対象_後2 変数[なにを」と[なにに]に代入するタイミングですが For ループ直前がよかったです。 訂正しておきます。

なにを でしょうね！ この辺りは、質問者の意思で・・・。

修正点１、UCASE　で変数[入力値]に代入するのを中止する。 修正点２、全角大文字だけでなく小文字も変換対象に加える。 修正点３、For ループを　26　ではなく 52 にする。 以上で目的は達成する筈です。 なお、全角の１２３を半角の123という変換も行いたければ、それぞれ１０個を加えます。 そして、ループを62にします。 Const 自動変換対象_行 = ",F,G,J,K,N,O,R,S,V,W,Z,AA," Const 自動変換対象_列 = ",4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33," Const 自動変換対象_前1 = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ" Const 自動変換対象_前2 = "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ" Const 自動変換対象_後1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Const 自動変換対象_後2 = "abcdefghijklmnopqrstuvwxyz" Private Sub Worksheet_Change(ByVal Target As Range) 　　Dim I　　　As Integer 　　Dim 入力行 As String 　　Dim 入力列 As String 　　Dim 入力値 As String 　　Dim なにお As String 　　Dim なにに As String 　　入力値 = Target.Value & "" 　　If Len(入力値) Then 　　　　入力行 = "," & CutStr(Target.Address, "$", 2) & "," 　　　　入力列 = "," & CutStr(Target.Address, "$", 3) & "," 　　　　なにお = 自動変換対象_前1 & 自動変換対象_前2 　　　　なにに = 自動変換対象_後1 & 自動変換対象_後2 　　　　If InStr(1, 自動変換対象_行, 入力行, vbTextCompare) And InStr(1, 自動変換対象_列, 入力列, vbTextCompare) Then 　　　　　　For I = 1 To 52 　　　　　　　　If InStr(1, 入力値, Mid$(なにお, I, 1), vbTextCompare) > 0 Then 　　　　　　　　　　入力値 = Replace(入力値, Mid$(なにお, I, 1), Mid$(なにに, I, 1)) 　　　　　　　　End If 　　　　　　Next I 　　　　End If 　　　　Target.Value = 入力値 　　End If End Sub

エクセルは現実には操作したこともない門外漢ですので外しているかもです。 自動変換したいシートのタグを右クリックして[コードの表示<V)]をクリック。 その後、以下のコードをコピペ。 それで、全角のアルファベットＡＢＣやabcが入力されると半角大文字に全て変換されます。 Const 自動変換対象_行 = ",F,G,J,K,N,O,R,S,V,W,Z,AA," Const 自動変換対象_列 = ",4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33," Const 自動変換対象_前 = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ" Const 自動変換対象_後 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Private Sub Worksheet_Change(ByVal Target As Range) 　　Dim I　　　As Integer 　　Dim 入力行 As String 　　Dim 入力列 As String 　　Dim 入力値 As String 　　入力値 = UCase(Target.Value & "") 　　If Len(入力値) Then 　　　　入力行 = "," & CutStr(Target.Address, "$", 2) & "," 　　　　入力列 = "," & CutStr(Target.Address, "$", 3) & "," 　　　　If InStr(1, 自動変換対象_行, 入力行, vbTextCompare) And InStr(1, 自動変換対象_列, 入力列, vbTextCompare) Then 　　　　　　For I = 1 To 26 　　　　　　　　If InStr(1, 入力値, Mid$(自動変換対象_前, I, 1), vbTextCompare) > 0 Then 　　　　　　　　　　入力値 = Replace(入力値, Mid$(自動変換対象_前, I, 1), Mid$(自動変換対象_後, I, 1)) 　　　　　　　　End If 　　　　　　Next I 　　　　End If 　　　　Target.Value = 入力値 　　End If End Sub さて、このシートモジュールでは、CutStr関数を用いていますが、これだけは標準モジュールに登録する必要があります。 シートモジュールが表示されているＶＢエディタのメニュー[挿入]-[標準モジュール]をクリックしてコピペします。 後は、右上のＸをクリックして閉じれば終わりです。 Public Function CutStr(ByVal Text As String, _ 　　　　　　　　　　　 ByVal Separator As String, _ 　　　　　　　　　　　 ByVal N As Integer) As String 　　Dim strDatas() As String 　　 　　strDatas = Split("" & Separator & Text, Separator, , 0) 　　CutStr = strDatas(N * Abs((N <= UBound(strDatas)))) End Function

こんにちは ASCでダミーのシートで半角に変換し、コピーして 「形式を選択して貼りつけ」から値で重ね書きと言う のはダメなのですよね。では 次のアドインソフトを利用されてはいかがですか http://kiyopon.sakura.ne.jp/soft/henkan.htm (元に戻せないのでバックアップ等一応自己責任と言うことで..) では。