有没有办法强制excel拒绝逗号作为行数据的值？

Question

我允许用户将数据输入到Excel工作表。我希望他们输入的数据是完整的普通数字。如果用户用逗号输入excel，则会忽略逗号并且只有行数据的整数。有没有办法做到这一点？我想有办法改变行的数据类型吗？

Answer 1

1. 右键点击行号
2. 单元格属性
3. 定制

Answer 2

这不会完全符合您的要求，因为它不会允许他们首先输入逗号，而不是删除逗号。

1. 选择单元格范围
2. 在数据标签上，选择数据验证。
3. 从允许下拉列表中，选择＆＃34;整数＆＃34;
4. 在数据下拉列表和其他选项中，配置过滤器以允许所需的整数类型（例如，对于正数选择＆＃34;大于＆＃34;，然后为0。
5. 在弹出窗口的错误提示标签上，填写错误消息说出＆＃34;请仅输入一个完整的普通数字＆＃34;。
6. 点击确定

Answer 3

• 使用 Ctrl + F11 打开VBEditor;
• 你会看到如下图所示的内容;
• 如果您没有看到，请按 Ctrl + R ;

• 在ThisWorkbook上粘贴此代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey ","
End Sub

Private Sub Workbook_Open()
    Application.OnKey ",", "NotAllowed"
End Sub

• 然后选择ThisWorkbook＆gt;右键鼠标＆gt;添加＆gt;模件。
• 在Module粘贴此内容：

Public Sub NotAllowed()
    MsgBox ("Not allowed to use the "","" key!")
End Sub

现在，只要有人，，他们就会看到：

Answer 4

此宏将主动从指定范围内的任何输入数据中删除数据和格式的逗号。您需要右键单击工作表名称并选择“查看代码”以添加事件。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NO_COMMAS_REGION As Range
    Set NO_COMMAS_REGION = Range("A:A") ' Replace this with whatever the region is where you want to prevent commas


   For Each cell In Target
        If Not (Application.Intersect(cell, NO_COMMAS_REGION) Is Nothing) Then
            If InStr(cell.Value, ",") > 0 Then
                cell.Value = Replace(cell.Value, ",", "")
            End If
            cell.NumberFormat = "0"
        End If

    Next cell
End Sub