|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
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
|
|