12
返回列表 上一主題 發帖

[發問] 如何寫程式在每3列時劃一條虛線?

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-11-11 16:08 | 只看該作者

[發問] 如何寫程式在每3列時劃一條虛線?

如附檔，謝謝。 Book111.rar (6.71 KB)
收藏 分享

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
11#
發表於 2010-12-3 22:33 | 只看該作者
原來是要再宣告一次丫，I see，謝謝您了~

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
10#
發表於 2010-12-3 16:53 | 只看該作者
For i = 2 To [a65536].End(3).Row Step 25
Cells(i + 24, 1).Resize(, 5).Borders(9).LineStyle = 1
Next

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
9#
發表於 2010-12-3 14:29 | 只看該作者
大大，請問若另外要加每一頁第25筆的下方由虛線改為一條實線(第一頁應加表頭，故為第26筆)，那該如何修改?

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
8#
發表於 2010-12-3 14:12 | 只看該作者
哈，原來是Borders的問題，又學了一招，謝謝大大!

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
7#
發表於 2010-12-3 13:34 | 只看該作者
Cells(1).Resize(, 100).Borders(8).LineStyle = xlDouble

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
6#
發表於 2010-12-3 13:19 | 只看該作者
Cells(1).Resize(, 100).Borders(9).LineStyle = xlDouble
以上指令只能顯示第一列底下的線，如何在第一列上方也出現雙條線? (我增加cell(0)是錯誤的)

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
5#
發表於 2010-11-14 11:51 | 只看該作者
是的，謝謝oobird的指點，感謝~

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2010-11-14 10:12 | 只看該作者
多看、多問、多寫
沒有這三多，就沒有進步。

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
3#
發表於 2010-11-14 10:04 | 只看該作者
謝謝oobird大大，我來研究看看! 另外，我是vba初學者，請您是否可以建議我，如何藉由此網站學習基礎的技巧? 謝謝您~

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
12
返回列表 上一主題