湖南龙网

  1. 首页 > 生活百科 > >

excel怎么避免因补充破坏数据有效性( 二 )

生活百科小知识


设置oCtl = .Controls.Add（ID：= lID）
万一
结束于
‘ 试图通过单元格快捷菜单分别插入复制/ 剪切的单元格
如果oCtl是Nothing And（lID = 3185或lID = 3187），则
设置oCtl = Application.CommandBars（“ Cell”） 。_
FindControl（ID：= lID，递归：= True）
万一
设置CCatcher =新的clsCommandBarCatcher
设置CCatcher.oComBarCtl = oCtl
mcCatchers.Add CCatcher
设置CCatcher = Nothing
oBar.Delete
设置oBar = Nothing
结束子
‘ 开启/ 替代所有命令预设的指定控件
Private Sub EnableDisableControl（ID长，bEnable为布尔值）
Dim oBar作为CommandBar
Dim oCtl作为CommandBarControl
关于错误继续
对于CommandBars中的每个oBar
设置oCtl = oBar.FindControl（ID：= lID，递归：= True）
如果没有，那么
oCtl.Enabled = b启用
万一
下一个
结束子
‘ 从clsCommandBarCatcher 的控件事件处理
‘ 和不同的OnKey 宏中调用专门的粘贴值程序
公共子MyPasteValues（）
【excel怎么避免因补充破坏数据有效性】如果Application.CutCopyMode <> False则
如果MsgBox（“ 正常的粘贴操作已被替换 。你将粘贴值（不能恢复），是否继续？” _
＆vbNewLine＆“ 提示：要想可以重新命名，使用命令替换的粘贴值按钮 。”，_
vbQuestion + vbOKCancel，“ 禁止标题演示”）= vbOK然后
关于错误ResumeNext
Selection.Paste特殊粘贴：= xlValues
IsCellValidationOK选择
万一
ElseIf Application.MoveAfterReturn然后
关于错误继续
选择案例应用程序.MoveAfterReturnDirection
案例xlUp
ActiveCell.Offset（-1） 。选择
案例xlDown
ActiveCell.Offset（1） 。选择
案例xlToRight
ActiveCell.Offset（，1） 。选择
案例xlToLeft
ActiveCell.Offset（，-1） 。选择
结束选择
万一
结束子
‘ 检查要粘贴到的单元格有无违反数据验证规则
‘ 如果违反任意单元格验证则返回False
公共函数IsCellValidationOK（对象的oRange）为布尔值
Dim oCell作为范围
如果TypeName（oRange）<>“ Range”然后退出函数
IsCellValidationOK = True
对于oRange中的每个oCell
如果NotoCell.Validation无效
如果oCell.HasFormula然后
其他
如果oCell.Validation.Value = https://www.i8ku.com/2021/False，则
IsCellValidationOK = False
退出
万一
万一
万一
下一个
如果IsCellValidationOK = False，则
MsgBox“ 警告!!!” ＆vbNewLine＆vbNewLine＆_
“ 粘贴操作导致不合规法规出现在1 个或多个包含有效验证规则的单元格中 。” _
＆vbNewLine＆vbNewLine＆_
“ 请检查刚才粘贴值的所有单元格并改正错误！”，_
vbOKOnly + vbExclamation，“ 禁止粘贴演示”
范围选择
万一
结束功能
Public Sub MyPasteValues2007（控件为IRibbonControl，ByRefcancelDefault）
MyPasteValues
结束子
在工作簿 ThisWorkbook 代码模块，输入代码：
私有mdNextTimeCatchPaste作为Double
私人子Workbook_Activate（）
CatchPaste
结束子
私有子工作簿_BeforeClose（取消为布尔值）
StopCatchPaste
mdNextTimeCatchPaste =现在
Application.OnTimemdNextTimeCatchPaste，“’”和ThisWorkbook.Name和“’！CatchPaste”
Application.CellDragAndDrop = True
结束子
私人子Workbook_Deactivate（）
StopCatchPaste
关于错误继续
Application.OnTimemdNextTimeCatchPaste，“’”和ThisWorkbook.Name＆“’！CatchPaste”，，False

推荐阅读


上一篇：怎么将一个文本文件中满足指定条件的内容筛选到另一个文本文件中？

下一篇：鸡蛋羹有蜂窝怎么回事