VBAでの質問です。ある特定の範囲に入力をしたいのですが。

いつもお世話になります。
ある特定のセル範囲（例えば、E5:E10 という範囲）に全角の数字を入力できるようにするには、どう記述すればいいですか？
他のセルは、普通の入力のままで入力作業をします。

よろしくお願いします。

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/04/13 09:34

No.1の者です。

＞エラーがでますが、どうしてでしょうか？
→こちらのPCでは、エラーもなく、問題するのですが、理由は不明です。
何か単語など、黄色くなっている部分があれば、それに関係した部分が
原因となっているかと思いますが。

取り合えず、下記でも同じ動作になるので、下記でどうでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Cells(1, 1)
If .Column <> 5 Then Exit Sub
If .Row < 5 Or .Row > 10 Then Exit Sub
.NumberFormatLocal = "@"
.Value = StrConv(.Value, vbWide)
End With
End Sub

この回答へのお礼

早速のご回答、ありがとうございます。
ご提示のコードで試してみます。

お礼日時：2022/04/13 09:36

No.1 回答者： mygoonickname 回答日時： 2022/04/13 00:14

こんばんは。

例えば、下記の様な感じでしょうか？

セルの表示形式を文字列にしています。
（そうしないと、半角文字に変換されてしまいますので。）

Sheet1(Sheet1)などへ、下記のコードを記載してみて下さい。
Module1とかでは、うまく動作しないかと。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E5:E10")) Is Nothing Then Exit Sub
With Target.Cells(1, 1)
.NumberFormatLocal = "@"
.Value = StrConv(.Value, vbWide)
End With
End Sub

この回答へのお礼

回答いただき、ありがとうございます。
提示していただきましたコードの２行目
If Intersect(Target, Range("E5:E10")) Is Nothing Then Exit Sub
でエラーがでますが、どうしてでしょうか？

お礼日時：2022/04/13 08:43