修改zhaogang1960版主的单元格只能输入数字，小数和负数。出现了问题，请求帮助。

马小呆

   为什么输入不了小数的数字呢？我是2016版 EXCEL

shiruiqiang

工作簿事件,不看中间代码，单元格包含“.”，就通知错误。个人看法，错误就当作没看见

马小呆

shiruiqiang 发表于 2023-2-25 09:01
工作簿事件,不看中间代码，单元格包含“.”，就通知错误。个人看法，错误就当作没看见

谢谢提醒，请问一下，这种情况应该怎么改呢

准提部林

應可用數據驗證, 限制只能輸入數字//

准提部林

只能輸入數值, 文本(x) 日期(x)  科學記號(x)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If Not Intersect(.Cells, Range("B5:L25")) Is Nothing Then
        If .Count > 1 Or .Value = "" Then Exit Sub
        If Trim(.Text) <> CStr(Val(Trim(.Value))) Then MsgBox "ERROR": Application.Undo
     End If
End With
End Sub

gbgbxgb

楼主的目的是检查并纠正指定区域已存在数字的正确性呢？还是仅对特定区域做数据输入时的防错警告呢？

欢迎EH友们检测下附工作簿中代码的准确性（声明：仅适用于传统输入方式的数字检测，排除诸如“2E10”这种形式的数字串。）