標題: [發問] 如何寫程式在每3列時劃一條虛線? [打印本頁]

---

作者: winston219    時間: 2010-11-11 16:08     標題: 如何寫程式在每3列時劃一條虛線?

如附檔，謝謝。[attach]3576[/attach]

---

作者: oobird    時間: 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

---

作者: winston219    時間: 2010-11-14 10:04

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

---

作者: oobird    時間: 2010-11-14 10:12

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

---

作者: winston219    時間: 2010-11-14 11:51

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

---

作者: winston219    時間: 2010-12-3 13:19

Cells(1).Resize(, 100).Borders(9).LineStyle = xlDouble
以上指令只能顯示第一列底下的線，如何在第一列上方也出現雙條線? (我增加cell(0)是錯誤的)

---

作者: oobird    時間: 2010-12-3 13:34

Cells(1).Resize(, 100).Borders(8).LineStyle = xlDouble

---

作者: winston219    時間: 2010-12-3 14:12

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

---

作者: winston219    時間: 2010-12-3 14:29

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

---

作者: oobird    時間: 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

---

作者: winston219    時間: 2010-12-3 22:33

原來是要再宣告一次丫，I see，謝謝您了~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)