返回列表 上一主題 發帖

[發問] 請教EXCEL ,報表內 單一產品 當月銷售金額加總

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2014-5-8 18:50 | 顯示全部帖子
回復 1# athenahu
試試看：
1. 在欄N(新增補助列【月份】)
公式：=MONTH(A2)
向下拉

2. 選取全部範圍
按 Ctrl+Shift+F3
勾選【頂端列】
(即批次建立名稱)

3.在欄O
公式：=SUMPRODUCT((月份=N2)*1,(產品=E2)*1,總價)
向下拉


單一產品當月銷售金額加總.7z
http://www.mediafire.com/download/6dorsjj1ggdk004/%E5%96%AE%E4%B8%80%E7%94%A2%E5%93%81%E7%95%B6%E6%9C%88%E9%8A%B7%E5%94%AE%E9%87%91%E9%A1%8D%E5%8A%A0%E7%B8%BD.7z

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2014-5-9 07:09 | 顯示全部帖子
回復 3# athenahu
試試看:
  1. Option Explicit            '強制宣告變數
  2. Private Sub CommandButton1_Click()
  3.     Dim sh1, sh2 As Worksheet
  4.     Dim i, lastRow, 月 As Integer
  5.     Dim 總價 As Double
  6.     Set sh1 = Sheets("年度訂單表")
  7.     Set sh2 = Sheets("產品月報表")
  8.    
  9.     lastRow = sh2.[A65536].End(xlUp).Row    '取得A欄 最下面非空白格 的列號
  10.     sh2.[B2].Resize(lastRow, 12) = ""  '清除 產品月報表
  11.     sh2.[N2].FormulaR1C1 = "=MATCH(R[-1]C,R2C1:R" & lastRow & "C1,0) + 1"  '寫入公式, 查詢 品項 的列號
  12.    
  13.     lastRow = sh1.[A65536].End(xlUp).Row    '取得A欄 最下面非空白格 的列號
  14.     For i = 3 To lastRow
  15.         月 = Month(sh1.Cells(i, 1)) + 1
  16.         sh2.[N1] = sh1.Cells(i, 5)    '年度訂單表的品項 寫入sh2.[N1], 供MATCH公式查詢
  17.         總價 = sh1.Cells(i, 12)
  18.         
  19.         sh2.Cells(sh2.[N2], 月) = sh2.Cells(sh2.[N2], 月) + 總價  '統計單一產品當月總價
  20.     Next
  21. End Sub
複製代碼
單一產品當月銷售金額加總0.7z
http://www.mediafire.com/download/zu1r2orgkrpyohc/%E5%96%AE%E4%B8%80%E7%94%A2%E5%93%81%E7%95%B6%E6%9C%88%E9%8A%B7%E5%94%AE%E9%87%91%E9%A1%8D%E5%8A%A0%E7%B8%BD0.7z

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題