限制Excel单元格输入值

提示：数据验证是一种非常弱的控制机制。当您将值复制并粘贴到单元格中时，将通过所有数据验证。

为了解决问题，让我们假设工作表1上的货币单元为A1和B1。

在VBE中转到sheet1的代码并编写一个宏，如下所示

            Dim lOldVal As Long 'Sheet Module level variable

            Private Sub Worksheet_Change(ByVal Target As Range)

                If Target.Address = "$A$1" Or Target.Address = "$B$1" Then

                    If Not IsNumeric(Target.Value) Then
                        MsgBox "Only numeric values allowed.", vbInformation, "Foo"
                        Application.EnableEvents = False
                        Target.Value = lOldVal
                        Application.EnableEvents = True
                    End If

                End If

            End Sub

            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
                  If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
                    lOldVal = Target.Value
                  End If
            End Sub

将$ A $ 1和$ B $ 1更改为您的实际单元格地址。