白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
查看: 2948|回复: 5

表格邊框填充,VBA方法

[复制链接]
发表于 2011-9-6 09:03:55 | 显示全部楼层 |阅读模式
本帖最后由 frank55555 于 2011-9-6 09:38 编辑

前些時我在QQ群上也問了一下VBA中對表格邊框填充的方法.有老師回答用borders.也有老師回答說,這類可以錄制一個宏看一下就可以了.後來我只是簡單測試了一下這個方法.對表格加了邊框.昨天又有同學問我一個問題其中就有格式及邊框填充.因他要用到雙線條,好像在填充時沒有這個選項.經過我一番測試把填充邊框的所有數字代碼結果保存,現把測試結果分享給同學們,希望對大家有用.
13.gif

123.JPG

邊框線條的代碼從1-13 其中 7,8 和 1,2重復  10,11和4,5重復 9和12重復 6和13重復 0代表無邊框 .    代碼 7 和 10 可對相同線框加粗,即填充一次是細線,填充二次是粗線,填充三次則又是細線.

borders.JPG
邊框類型中1,2,3,4沒有對應的表達文字,1代表選擇區域所有左邊的豎線 , 2代表所有右邊的豎線, 3 代表所有上邊的橫線,  4 代表所有下邊的橫線.7,8,9,10合起來就表示所有的外框也可以用 .BorderAround.這個也是填充所有外邊框 .11,12合起來表示所有表格內的線條.總之,如果只是簡單對表格所選區域填充線框,則直接用0即不帶參數 .borders.xllinestyle=? 就可以了.如果要加上外框則再加上一句 .BorderAround  ? 就可以了.


评分

参与人数 1登攀 +18 收起 理由
xmyjk + 18 不错。

查看全部评分

回复

使用道具 举报

发表于 2011-9-6 10:06:16 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2011-9-6 16:47:40 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2011-9-6 21:10:58 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2011-9-6 21:55:26 | 显示全部楼层
本帖最后由 hwmj8301 于 2011-9-6 21:57 编辑

frank你太赞了~
耐心超好的 大红花大红花 {:soso__18401905868828477824_3:}
回复 支持 反对

使用道具 举报

发表于 2011-12-26 14:30:06 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

快速回复 返回顶部 返回列表