返回列表下一主題上一主題發帖

跨越工作表加總

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-22 21:19 | 顯示全部帖子

跨越工作表加總

各位前輩你們好!!
      O1=SUM(單筆:單筆02!I8)
      問題如附檔說明
      請知道的前輩,不吝賜教謝謝再三!!

Leo35.rar (3.89 KB)

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2013-10-23 21:14 | 顯示全部帖子

回復 2# a8350070
前輩!本想是否可以學到更好的公式
看來如你所說簡單的方式就是用程式囉!
謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2013-10-24 21:42 | 顯示全部帖子

回復 4# ML089
前輩!謝謝指導小弟明白程式如下
Sub 加總()
[O3] = "=COUNTA(INDIRECT(""O5:O100""))"
[O3].NumberFormatLocal = """編""""號"""
If [O3] = 0 Then
   [o1] = "=單筆!I8"
ElseIf [O3] >= 1 And [O3] < 10 Then
   [o1] = "=SUM(單筆" & ":" & "單筆" & "0" & [O3] & "!I8)"
ElseIf [O3] >= 10 Then
   [o1] = "=SUM(單筆" & ":" & "單筆" & [O3] & "!I8)"
End If
End Sub
謝謝再三!!

TOP

myleoyes