VBAでテンキーを作成しようとしていますが、セルに数字が入っていると小数点を入力する機能が正常に動作しません。以下のコードを使用しました。 新しい質問文： VBAでテンキーを作成する際、セルに数字が入っている場合に小数点を入力できない問題が発生しています。使用したコードは以下の通りです。Private Sub cc…

セルに数字が入っている場合に小数点を入力できない問題が発生しているため、コードを修正する必要があります。以下の修正内容をご確認ください。

修正前のコード：
“`vba
Private Sub cc…
“`

修正後のコード：
“`vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(“A1:Z100”)) Is Nothing Then
If IsNumeric(Target.Value) Then
With Application
.EnableEvents = False
Target.Value = CDec(Target.Value)
.EnableEvents = True
End With
End If
End If
End Sub
“`

修正内容の説明：
修正後のコードでは、Worksheet_SelectionChangeイベントを使用してセルの選択変更を監視し、選択されたセルがA1からZ100の範囲内にある場合に処理を行います。選択されたセルの値が数値である場合には、小数点以下の桁数を正しく維持したままセルの値を変更します。

修正後のコードを使用することで、セルに数字が入っている場合でも正常に小数点を入力できるようになるはずです。ご確認ください。