No.1

VBA有一些系統(tǒng)設(shè)置,。如果利用好這些設(shè)置參數(shù)，對(duì)應(yīng)用系統(tǒng)編程會(huì)有很好的幫助,。

本節(jié)將介紹一個(gè)容易被忽略的屬性,。

Excel工作表中有一個(gè)小細(xì)節(jié)，就是當(dāng)選擇某個(gè)區(qū)域進(jìn)行復(fù)制時(shí),，該區(qū)域會(huì)被虛線框包圍,。

這只是一個(gè)系統(tǒng)的明顯標(biāo)志。它的意思是告訴操作者這個(gè)區(qū)域已經(jīng)被復(fù)制或剪切了,。

一個(gè)非常簡單的提示功能,。

但是在應(yīng)用中，尤其是熟練操作Excel后,，你會(huì)發(fā)現(xiàn)這個(gè)虛線框有時(shí)候并不需要,，而且并不美觀，甚至不美觀,。

No.2

那么如何去除呢,？

一般這個(gè)操作可以消除虛線框，保存工作表(Ctrl S),，按Esc鍵,。

當(dāng)然，最重要的是介紹這種方法,。

設(shè)置應(yīng)用程序,。CutCopyMode屬性。

CutCopyMode可以返回或設(shè)置剪切或復(fù)制模式的狀態(tài),。

返回三個(gè)值,，即False、xlCopy和xlCut,。

示例代碼

私有命令button 1 _ click()dim cobj as object set cobj=range(' A4 ')with range(' A3 '),。value='這是一個(gè)CutCopyMode的例子！-'copy'' date.copy' cobj以select case應(yīng)用程序結(jié)束,?！癱utcopymode case is=false msgbox”不是剪切復(fù)制模式！Case Is=xlCopy MsgBox '復(fù)制模式,！Case Is=xlCut MsgBox '切割模式,！End SelectcObj。paste special xlPasteAllApplication,。CutCopyMode=FalseRange('A1 '),。選擇結(jié)束Sub

焦點(diǎn)

消除虛線框的一個(gè)簡單方法是將CutCopyMode值設(shè)置為False。

代碼如下：

申請(qǐng),。CutCopyMode=False

顯然,，上面的代碼非常簡單,，只需將其設(shè)置為False以去掉虛線框。