No.1

VBA中有一些系统设置，如果很好地利用这些设置参数，对于应用系统编程是一个很好帮助作用。

本节将介绍一个容易被忽略的一个属性。

Excel操作工作表中，有一个很小的细节，就是当选择某一个区域进行复制的时候，这个区域就会被一个虚线框包围。

这只是一个系统的明显标识，它是意义在于告诉操作人，这个区域进行了复制或者剪切。

一个很简单的提示作用。

但是，在应用中，特别是对于熟练操作Excel之后，会发现，有时候并不需要这个虚线框，而且也并不好看，甚至不美观。

No.2

那么如何把它去除呢？

一般这样来操作可以实现消除虚线框，保存工作表（Ctrl+S），按Esc键。

当然了，最重要的还是要介绍一下这个方法。

设置Application.CutCopyMode属性

CutCopyMode可以返回或设置剪切或复制模式的状态。

返回三个值，分别为False、xlCopy、xlCut。

示例代码

Private Sub CommandButton1_Click()
Dim cObj As Object
Set cObj = Range("A4")
With Range("A3")
    .Value = "这是一个CutCopyMode示例！-- 'Copy' " & Date
    .Copy 'cObj
End With
Select Case Application.CutCopyMode
    Case Is = False
        MsgBox "不是剪切复制模式！"
    Case Is = xlCopy
        MsgBox "复制模式！"
    Case Is = xlCut
        MsgBox "剪切模式！"
End Select
cObj.PasteSpecial xlPasteAll
Application.CutCopyMode = False
Range("A1").Select
End Sub

划重点

去掉虚线框的一个简单方法就是设置CutCopyMode值为False。

如下代码：

Application.CutCopyMode = False

很显然，上面代码十分简单，只要设置为False就可以去掉虚线框。

欢迎关注、收藏

---END---

前军教程网

中小站长与DIV+CSS网页布局开发技术人员的首选CSS学习平台

如何去掉Excel表格中的复制框虚线，原来这么简单

No.1

No.2