- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
4#
發表於 2014-5-9 07:09
| 只看該作者
回復 3# athenahu
試試看:- Option Explicit '強制宣告變數
- Private Sub CommandButton1_Click()
- Dim sh1, sh2 As Worksheet
- Dim i, lastRow, 月 As Integer
- Dim 總價 As Double
- Set sh1 = Sheets("年度訂單表")
- Set sh2 = Sheets("產品月報表")
-
- lastRow = sh2.[A65536].End(xlUp).Row '取得A欄 最下面非空白格 的列號
- sh2.[B2].Resize(lastRow, 12) = "" '清除 產品月報表
- sh2.[N2].FormulaR1C1 = "=MATCH(R[-1]C,R2C1:R" & lastRow & "C1,0) + 1" '寫入公式, 查詢 品項 的列號
-
- lastRow = sh1.[A65536].End(xlUp).Row '取得A欄 最下面非空白格 的列號
- For i = 3 To lastRow
- 月 = Month(sh1.Cells(i, 1)) + 1
- sh2.[N1] = sh1.Cells(i, 5) '年度訂單表的品項 寫入sh2.[N1], 供MATCH公式查詢
- 總價 = sh1.Cells(i, 12)
-
- sh2.Cells(sh2.[N2], 月) = sh2.Cells(sh2.[N2], 月) + 總價 '統計單一產品當月總價
- Next
- 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 |
|