VBA求助

q23

这个是昵称吗 发表于 2018-7-25 14:33
随便，反正不写默认激活工作表，一定要指定就range(sheet2.[a1],sheet2.[a1].end(xldown))

大神：
你看我现在改的：
Sub nc()
Dim i&, ar, br, cr
ar = Range(Sheet22.[n3], Sheet22.[n3].End(xlDown))
br = Range(Sheet23.[n3], Sheet23.[n3].End(xlDown))
cr = Range(Sheet24.[n3], Sheet24.[n3].End(xlDown))
For i = 1 To UBound(ar)
    If ar(i, 1) > 30 Then
        MsgBox "注意！11-30表中第" & i & "行的已经超过20天，请转至（31-60）表填写！"
    End If
Next
For i = 1 To UBound(br)
    If ar(i, 1) > 30 Then
        MsgBox "注意！31-60表中第" & i & "行的已经超过30天，请转至（61-90）表填写！"
    End If
Next
For i = 1 To UBound(cr)
    If ar(i, 1) > 30 Then
        MsgBox "注意！61-90表中第" & i & "行的已完成，结束填写！"
    End If
Next
End Sub
能运行，为啥结果不是正确的，有两个不符合的就只显示第一个那

q23

这个是昵称吗 发表于 2018-7-25 14:33
随便，反正不写默认激活工作表，一定要指定就range(sheet2.[a1],sheet2.[a1].end(xldown))

大神，dim i定义变量后面加个&是啥意思

不知道为什么

q23 发表于 2018-7-25 16:52
大神，dim i定义变量后面加个&是啥意思

老铁，我很纳闷，您是什么时候开始学编程的？

让你上附件你就不上，别人给出代码就这里不符合那里不符合

q23

这个是昵称吗 发表于 2018-7-25 14:33
随便，反正不写默认激活工作表，一定要指定就range(sheet2.[a1],sheet2.[a1].end(xldown))

大神帮忙给写一下吧/o(￣┰￣*)ゞ，在检测表插入按钮点击后 运行代码，依次找出1，2，3表中超过30的数，并发出警告1表中第几行数超过30，谢谢

q23

不知道为什么 发表于 2018-7-25 14:02
那 你就上传附件

检测1，2，3表中超过30的发出警告在哪行哪个表/o(￣┰￣*)ゞ，谢谢

不知道为什么

q23 发表于 2018-7-25 17:20
检测1，2，3表中超过30的发出警告在哪行哪个表/o(￣┰￣*)ゞ，谢谢

如图

不知道为什么

q23 发表于 2018-7-25 17:20
检测1，2，3表中超过30的发出警告在哪行哪个表/o(￣┰￣*)ゞ，谢谢

代码

这个是昵称吗

q23 发表于 2018-7-25 16:52
大神，dim i定义变量后面加个&是啥意思

& 变量类型简写  同 long