Excel中如何讓數(shù)據(jù)有效性不被復(fù)制粘貼破壞
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim 單元格 As Range
- For Each 單元格 In Target
- If Not 單元格.Validation.Value Then
- Application.Undo
- MsgBox prompt:='粘貼的數(shù)據(jù)不符合該單元格的數(shù)據(jù)有效性要求！', Title:='輸入提示'
- Exit For
- End If
- Next
- End Sub
標(biāo)簽：
