返回列表 上一主題 發帖

[發問] 請教如何執行小計後，自動填上文字?

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-12-3 23:22 | 只看該作者

[發問] 請教如何執行小計後，自動填上文字?

如附檔，謝謝大大! Book111.rar (11.92 KB)
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 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

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

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

論壇贊助勳章
3#
發表於 2010-12-4 00:32 | 只看該作者
謝謝oobird大大這麼晚還給我回覆，我來研究看看，再一次感謝!

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題