编译错误，在线等，谢谢！

翼天堂

代码如下，编译错误，求高人指点，不尽感谢！！

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

翼天堂

好像问题是不是在第一行，显示是黄色标识呢！

chxw68

VBA中字符串必须用双引号括起来而不是单引号！

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

复制代码

翼天堂

chxw68 发表于 2018-9-6 11:14
VBA中字符串必须用双引号括起来而不是单引号！

万分感谢，问题已解决，鲜花送上