作者windknife18 (windknife18)
看板Office
标题Re: [算表] Excel设定巨集遇到资料验证错误自动停止
时间Thu Jun 23 12:00:28 2022
资料验证在VBA中复制资料并不会被触发，所以不会挡住重复值，
很久没写VBA了，练一下功，看看合不合用罗
Sub Macro1()
Dim LastRow As Long
Set cell = Sheets(1).Range("A:A").Find(Sheets(2).Range("D4"), _
LookIn:=xlValues, LookAt:=xlWhole)
If Not cell Is Nothing Then
MsgBox ("输入过了!!")
Else
LastRow = Sheets(1).Range("A1").End(xlDown).Row + 1
Sheets(2).Range("D4").Cut Sheets(1).Cells(LastRow, 1)
End If
End Sub
※ 引述《occlumency3 (锁心术)》之铭言：
: 软体: 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
: 先谢谢大家了!!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.131.84.79 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1655956830.A.E1D.html