久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

分享

【Excel·VBA】設(shè)置單元格框線

 L羅樂 2016-11-25

滴,,系統(tǒng)提示菜鳥張小懶設(shè)計(jì)的模板表格進(jìn)度100%

菜鳥張小懶利用函數(shù),、VBA、控件,、數(shù)據(jù)有效性等知識(shí)設(shè)計(jì)的模板終于完成了

根據(jù)需求,,實(shí)現(xiàn)目的,菜鳥張小懶的水平只有這樣了



今天我似乎瞄到有小伙伴問(wèn)關(guān)于設(shè)置單元格格式的問(wèn)題,,那我們今天就聊一聊設(shè)置單元格格式中關(guān)于邊框設(shè)置的問(wèn)題

其實(shí),,很多小伙伴會(huì)說(shuō)我不記得設(shè)置邊框的代碼呀,其實(shí)我也記不住,,需要的時(shí)候錄制一個(gè)宏,,就全都解決了,嘿嘿

快速為單元格區(qū)域設(shè)置一個(gè)外邊框,,代碼如下所示:

Sub AddBorders()

    Dim rng As Range

    Set rng = Range('B4:G10')

    With rng.Borders

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = 5

    End With

    rng.BorderAround xlContinuous, xlMedium,5

    Set rng = Nothing

End Sub


代碼解析:

第4行到第8行代碼使用Borders屬性引用單元格區(qū)域的Borders集合

第5行代碼設(shè)置其邊框樣式線條的樣式

第6行代碼設(shè)置邊框線條的粗細(xì)

第7行代碼設(shè)置邊框的顏色,。

第9行代碼使用BorderAround方法為單元格區(qū)域添加一個(gè)加粗外邊框

應(yīng)用于Range對(duì)象的BorderAround方法向單元格區(qū)域添加整個(gè)區(qū)域的外邊框,并設(shè)置該邊框的相關(guān)屬性,,其語(yǔ)法如下:

BorderAround(LineStyle,Weight, ColorIndex, Color)

其中LineStyle參數(shù)設(shè)置邊框線條的樣式,,Weight參數(shù)設(shè)置邊框線條的粗細(xì),ColorIndex     設(shè)置邊框顏色,,Color參數(shù)以RGB值指定邊框的顏色

如果要單獨(dú)設(shè)置各個(gè)邊框,,Borders(index)屬性返回單個(gè)Border對(duì)象,其Index參數(shù)取值可為表格所列的XlBordersIndex常量之一

常量

描述

xlDiagonalDown

5

斜下邊框

xlDiagonalUp

6

斜上邊框

xlEdgeBottom

9

底部邊框

xlEdgeLeft

7

左邊框

xlEdgeRight

10

右邊框

xlEdgeTop

8

頂部邊框

xlInsideHorizontal

12

內(nèi)部水平

xlInsideVertical

11

內(nèi)部垂直


我是張小懶

一個(gè)愛偷懶的家伙

一個(gè)要變得越來(lái)越自信的家伙

一個(gè)正在積極努力讓自己變好的家伙


“ 轉(zhuǎn)給那些喜歡的小伙伴吧 ”

大講堂 |讓我們有態(tài)度的學(xué)習(xí)Excel

編輯 |愛“偷懶”的張小懶

轉(zhuǎn)載請(qǐng)注明出處

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,,所有內(nèi)容均由用戶發(fā)布,,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式,、誘導(dǎo)購(gòu)買等信息,,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,,請(qǐng)點(diǎn)擊一鍵舉報(bào),。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多