No.1VBA中有一些系统设置,如果很好地利用这些设置参数,对于应用系统编程是一个很好帮助作用。本节将介绍一个容易被忽略的一个属性。Excel操作工作表中,有一个很小的细节,就是当选择某一个区域进
No.1
VBA中有一些系统设置,如果很好地利用这些设置参数,对于应用系统编程是一个很好帮助作用。
本节将介绍一个 容易被忽略的一个属性。
Excel操作工作表中,有一个很小的细节,就是当选择某一个区域进行复制的时候,这个区域就会被一个虚线框包围。
这只是一个系统的明显标识,它是意义在于告诉操作人,这个区域进行了复制或者剪切。
一个很简单的提示作用。
但是,在应用中,特别是对于熟练操作Excel之后,会发现,有时候并不需要这个虚线框,而且也并不好看,甚至不美观。
No.2
那么如何把它去除呢?
一般这样来操作可以实现消除虚线框,保存工作表(Ctrl+S),按Esc键。
当然了,最重要的还是要介绍一下这个方法。
设置Application.CutCopyMode属性
CutCopyMode可以返回或设置剪切或复制模式的状态。
返回三个值,分别为False、xlCopy、xlCut。
示例代码
Private Sub CommandButton1_Click()Dim cObj As ObjectSet cObj = Range(\"A4\")With Range(\"A3\") .Value = \"这是一个CutCopyMode示例!-- \'Copy\' \" & Date .Copy \'cObjEnd WithSelect Case Application.CutCopyMode Case Is = False MsgBox \"不是剪切复制模式!\" Case Is = xlCopy MsgBox \"复制模式!\" Case Is = xlCut MsgBox \"剪切模式!\"End SelectcObj.PasteSpecial xlPasteAllApplication.CutCopyMode = FalseRange(\"A1\").SelectEnd Sub
划重点
去掉虚线框的一个简单方法就是设置CutCopyMode值为False。
如下代码:
Application.CutCopyMode = False
很显然,上面代码十分简单,只要设置为False就可以去掉虚线框。
本站部分文章来自网络或用户投稿,如无特殊说明或标注,均为本站原创发布。涉及资源下载的,本站旨在共享仅供大家学习与参考,如您想商用请获取官网版权,如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。