跨越工作表加總

myleoyes

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

myleoyes

回復 7# ML089
前輩!不好意思...小弟想到囉!
        檔案是用手動方式先設定好工作表所以才會讓你那完美的程式
        吃悶虧...哈哈!真歹勢!!小弟疏忽工作表是用程式一個一個寫入
       就沒有此情況,歹勢!!歹勢!!

myleoyes

回復 7# ML089
前輩!謝謝指導!!
        前輩程式簡潔看似無誤,但為何執行卻錯誤呢?
       如附畫面所示!再附檔案讓你瞧瞧,不吝在賜教謝謝再三!!

tpwhdavid

來看看  多學習點  謝謝

tpwhdavid

來看看  多學習點  謝謝

tpwhdavid

來看看  多學習點  謝謝

ML089

回復 5# myleoyes

1. Sub ex()
   
2. [O2] = "=SUM('單筆:" & Sheets(Worksheets.Count).Name & "'!I8)"
   
3. End Sub

複製代碼

myleoyes

回復 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
謝謝再三!!

ML089

O1=SUM(單筆:單筆END!I8)

請注意! 新增工作表都需要在 單價與單價END之間
例如:  單價/單價01/單價02/..../單價50/單價END

myleoyes

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