[發問] 如何讓公式產生的明細表可以加總

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

9^#

發表於 2013-9-13 14:10 | 只看該作者

謝謝提醒!以後我會記住。

希望支持!

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

8^#

發表於 2013-9-13 10:24 | 只看該作者

本帖最後由 p212 於 2013-9-13 10:37 編輯

回復 6# s7659109
若是Excel 2003，公式會變得很長
{=IF(ISERROR(--(INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&"")),"",--(INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&""))}
或
{=IF(ISERROR((INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&"")*1),"",(INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&"")*1)}
請參考！
註：請按 [回覆] 按鈕回映問題，答覆者才會得到通知，謝謝！

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

7^#

發表於 2013-9-13 10:10 | 只看該作者

有關利用vb的部分，是在工作底稿下按右鍵進入檢示程式碼，直接貼上存檔，我試著貼上無反映，為何？

希望支持!

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

6^#

發表於 2013-9-13 10:06 | 只看該作者

1.因的office是2003無法使用iferror的函數，請問要如何修改，另a001與其他a002、a003的欄位都一樣，可否將a001的公式一次套用到a002、a003。
2.如何工作表擴大到50個或200(a001~a200)個做法是否也一樣。

希望支持!

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-9-12 18:53 | 只看該作者

回復 1# s7659109

VBA輔助來的容易

Sub ex()
Dim Ay(2), Ary()
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("總表")
For Each a In .Range(.[B3], [B3].End(xlDown))
If IsEmpty(dic(a.Value)) Then
ar = Array(a.Value, "", "進貨", "", "", "出貨", "", "")
Ay(0) = ar
Ay(1) = .[A2:H2].Value
Ay(2) = a.Offset(, -1).Resize(, 8).Value
dic(a.Value) = Ay
Else
Ary = dic(a.Value)
ReDim Preserve Ary(UBound(Ary) + 1)
Ary(UBound(Ary)) = a.Offset(, -1).Resize(, 8).Value
dic(a.Value) = Ary
End If
Next
End With
For Each ky In dic.keys
With Sheets(ky)
.[A1].Resize(UBound(dic(ky)) + 1, 8) = Application.Transpose(Application.Transpose(dic(ky)))
.Cells(.Rows.Count, 1).End(xlUp).Offset(1) = "合計"
.Cells(.Rows.Count, 8).End(xlUp).Offset(1) = "=SUM(R1C:R[-1]C)"
End With
Next
End Sub

複製代碼

學海無涯_不恥下問

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

4^#

發表於 2013-9-12 17:27 | 只看該作者

本帖最後由 p212 於 2013-9-12 17:33 編輯

回復 3# s7659109
以「A001」工作表之H3儲存格公式為例，請修改成
{=IFERROR(--(INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&""),"")}
或
{=IFERROR((INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&"")*1,"")}
應可修正「公式一直往下拉，會出現錯誤#VALUE!」的問題，請參考！

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

3^#

發表於 2013-9-12 13:44 | 只看該作者

但如果公式一直往下拉，會出現錯誤(#VALUE!),會影
響加總。

Book6-1.rar (5.06 KB)

希望支持!

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

2^#

發表於 2013-9-12 10:47 | 只看該作者

本帖最後由 p212 於 2013-9-12 10:52 編輯

回復 1# s7659109
以「A001」工作表之H3儲存格公式為例，請修改成
{=--(INDEX(總表!H:H,SMALL(IF(總表!$B$1:$B$21=$A$1,ROW(總表!$B$1:$B$21),4^8),ROW(1:1)))&"")}
之後向下複製公式即可，請參考Hsieh超版的指導 http://forum.twbts.com/thread-1277-1-1.html