软件: Microsoft Office Excel
版本: 365
大家好~
如下图 我在A栏使用资料验证避免输入重复值
https://imgur.com/a/EvDeStv
因此若我在A7输入已存在的"A" 会跳出错误视窗 不给我输入
https://imgur.com/a/FDPmuBY
另一方面
我写了个宏 目的是让使用者输入新资料到A栏
如下图 使用者在D4输入"F" 并按下Input Item的按钮后 "F"会被贴到前一张sheet的A栏
https://imgur.com/a/7pGejVL
https://imgur.com/a/tTlNcOH
然而 若我在宏sheet的D4输入前一张sheet A栏的重复值 宏仍会成功执行
不会侦测资料重复 进而停止宏
https://imgur.com/a/MeIL3hG
https://imgur.com/a/cs1CVQP
除非我去编辑A8储存格 资料验证的功能才会作用
https://imgur.com/a/ooWGJp3
因此想询问的是 有没有办法在宏中加入已存在的资料验证规则呢? 或是别的方式中断?
VBA程式码如下
Sub Macro1()
'
' Macro1 Macro
'
'
Range("D4").Select
Selection.Copy
Sheets("Sheet1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-6, 0).Range("A1").Select
Sheets("Sheet2").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
先谢谢大家了!!