与A1单元格值进行比较,假如发生错误,就弹出提示对话框

zhengyingcan · 发表于 2014-12-1 08:11

EXCEL上的值是条码扫描上去的, 要求第一个单元格的值A1为标准, 每扫一下,EXCEL是自动换行的,这个不用写代码, 就是要求每扫出来的值都要与A1比较,假如错误,就跳出提示对话框, 非要鼠标去点掉, 才能继续扫下一个条码. 这个VBA代码如何写呢

zhengyingcan · 发表于 2014-12-3 08:17

没有人回,老是没有人回,不来了

zhengyingcan · 发表于 2014-12-3 08:32

改成如下也是不行的,我都不知道是什么原因
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Target.Column > 1 Then
If Cells(Target.Row - 1, Target.Column - 1) <> Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
End If
End Sub

lygwdyanzi · 发表于 2014-12-5 23:33

为什么非要用msgbox 呢直接把错误文本显示到条码右边一个单元格里面不行么??

chenbiao2012 · 发表于 2014-12-20 23:33

Private Sub Worksheet_Change(ByVal Target As Range)
if target.value<>cells(1,1).value then
MsgBox "错误：不一致:", vbOKOnly + vCritical, "提示:"
end if
end sub

		自动登录	找回密码
密码			免费注册