Function BEFORE_SEND(Argument As String)
BEFORE_SEND = True
Dim k As Integer
For k = 21 To 50
If CStr(Cells(k, 12)) <> CStr(Cells(k, 13)) Then
MsgBox "12 与 13列 数据不等"
BEFORE_SEND = False
Exit For
End If
Next
End Function
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/25232047/viewspace-689520/，如需转载，请注明出处，否则将追究法律责任。
上一篇：
没有了~
下一篇：
没有了~
请登录后发表评论
登录
全部评论
