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/,如需转载,请注明出处,否则将追究法律责任。