標題: [發問] 請教如何執行小計後，自動填上文字? [打印本頁]

---

作者: winston219    時間: 2010-12-3 23:22     標題: 請教如何執行小計後，自動填上文字?

如附檔，謝謝大大![attach]3926[/attach]

---

作者: oobird    時間: 2010-12-3 23:29

Sub xx()
n = [f:f].Find("總計").Row
Cells(n, 1) = "累計"
Range(Cells(2, 1), Cells(n, 1)).SpecialCells(4) = "本頁小計"
End Sub

---

作者: winston219    時間: 2010-12-4 00:32

謝謝oobird大大這麼晚還給我回覆，我來研究看看，再一次感謝!

---

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