|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
刚才好像说的太泛泛了,
“If rng2.Row = aa And rng2.Value <> str1 Then
bb = MsgBox("代码未指定,指定点确定,重输按取消!", vbOKCancel)
If bb = vbOK Then
rng2.Offset(1, -1) = rng2.Offset(0, -1) + 1
rng2.Offset(1, 0).Value = str1
Target.Resize(, 2).Value = ""
Target.Range("a1").Select
Sheets("代码").Activate
rng2.Offset(1, 1).Activate
Application.EnableEvents = True
Exit Sub
Else
Target.Resize(, 2).Value = ""
Target.Range("a1").Select
Application.EnableEvents = True
Exit Sub
End If
End If”
我是不理解红色这部分区域的意思 |
|