|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
If Application.CountIf(Range("A:A"), Target.Value) > 1 Then
MsgBox "二维码已经扫过,请仔细检查"
Target.ClearContents
End If
End If
End Su
二维码
8415090625420508360202000026
8423090812520702456202000558
8451090812020704057202000399
8508090618920501357202000498
8508090618920501357202000101
8508090618920501357202000133
8508090618920501357202000514
8508090618920501357202000165
8508090618920501357202000210
8508090618920501357202000099
8508090618920501357202000128
8508090618920501357202000224
|
|