滴,,系統(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常量之一
我是張小懶 一個(gè)愛偷懶的家伙 一個(gè)要變得越來(lái)越自信的家伙 一個(gè)正在積極努力讓自己變好的家伙 “ 轉(zhuǎn)給那些喜歡的小伙伴吧 ” 大講堂 |讓我們有態(tài)度的學(xué)習(xí)Excel 編輯 |愛“偷懶”的張小懶 轉(zhuǎn)載請(qǐng)注明出處 |
|
來(lái)自: L羅樂 > 《VBA基礎(chǔ)》