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

　暱稱: 小溫
　頭銜: Dr.

帖子: 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)

樓主熱帖

　頭銜: 街友一族

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

論壇貢獻勳章

2^#

發表於 2010-11-11 19:09 | 只看該作者

Sub yy()
For i = 2 To [a65536].End(3).Row Step 3
Cells(i + 2, 1).Resize(, 5).Borders(9).LineStyle = xlDash
Next
End Sub

　暱稱: 小溫
　頭銜: Dr.

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

論壇贊助勳章

3^#

發表於 2010-11-14 10:04 | 只看該作者

謝謝oobird大大，我來研究看看! 另外，我是vba初學者，請您是否可以建議我，如何藉由此網站學習基礎的技巧? 謝謝您~

　頭銜: 街友一族

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

論壇貢獻勳章

4^#

發表於 2010-11-14 10:12 | 只看該作者

多看、多問、多寫
沒有這三多，就沒有進步。

　暱稱: 小溫
　頭銜: Dr.

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

論壇贊助勳章

5^#

發表於 2010-11-14 11:51 | 只看該作者

是的，謝謝oobird的指點，感謝~

　暱稱: 小溫
　頭銜: Dr.

帖子: 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)是錯誤的)

　頭銜: 街友一族

帖子: 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

　暱稱: 小溫
　頭銜: Dr.

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

論壇贊助勳章

8^#

發表於 2010-12-3 14:12 | 只看該作者

哈，原來是Borders的問題，又學了一招，謝謝大大!

　暱稱: 小溫
　頭銜: Dr.

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

論壇贊助勳章

9^#

發表於 2010-12-3 14:29 | 只看該作者

大大，請問若另外要加每一頁第25筆的下方由虛線改為一條實線(第一頁應加表頭，故為第26筆)，那該如何修改?

　頭銜: 街友一族

帖子: 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