Excel VBA 粘贴值不进行有效性检查。

1,数据有效性检查追加。

tools => Data => Data Validation 设置

2,添加Change事件

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim msg
    For Each c In Target
        If Not c.Validation.Value Then
            msg= MsgBox("0~9999999只能输入数字", vbRetryCancel + vbCritical, "数字检查")
            If msg= vbRetry Then
                Target.Select
                Application.SendKeys "{F2}"
            Else
                Application.Undo
            End If
                Exit For
        End If
    Next
End Sub