欢迎光临散文网会员登陆 & 注册

Excel中如何让数据有效性不被复制粘贴破坏

2023-09-20 18:45 作者:玖佰分之壹万暴鲤龙 0人读过 | 我要投稿

Private Sub Worksheet_Change(ByVal Target As Range)
Dim 单元格 As Range
For Each 单元格 In Target
If Not 单元格.Validation.Value Then
Application.Undo
MsgBox prompt:='粘贴的数据不符合该单元格的数据有效性要求！', Title:='输入提示'
Exit For
End If
Next
End Sub

标签：

Excel中如何让数据有效性不被复制粘贴破坏的评论 (共条)