累計加總數量及每週加總數量

rakefrank

統計表.zip (4.24 KB)

下載次數: 19

2014-4-18 11:39

人員會每日輸入每日產量C8~AG8
1.請問如何撰寫C9~AG9公式，以計算累計加總數量？
2.C10~AG10的每週產量想要只顯示一筆資料在最中間的欄位，公式該如何撰寫呢？

請各位大大指導

rakefrank

統計表2.zip (5.33 KB)

下載次數: 6

2014-4-18 13:55

自己想的
不過沒辦法解決置中
再請大大指導

yen956

回復 2# rakefrank
試試看:
1. c9公式 =C8
D9公式 =C9+D8 向左拉(複製)

2.
(A)D10公式
=SUM(C8:E8)
(B)i10公式 =SUM(F8:L8)
複製到 各週 週四

rakefrank

回復 3# yen956

感謝回復
但其實我的目的是要做一個自動格式化的表格
可以用在每個月
不用每個月都調整格式

yen956

回復 4# rakefrank
試試看：

格式稍改, 請下載試試看：
累計加總數量及每週加總數量.7z
http://www.mediafire.com/download/kat4hzm9srrsxqc/%E7%B4%AF%E8%A8%88%E5%8A%A0%E7%B8%BD%E6%95%B8%E9%87%8F%E5%8F%8A%E6%AF%8F%E9%80%B1%E5%8A%A0%E7%B8%BD%E6%95%B8%E9%87%8F.7z

yen956

補VBA

1. Private Sub CommandButton1_Click()
   
2.     Dim Mdays
   
3.     Dim i As Integer
   
4.    
   
5.     '陽曆每月有幾天
   
6.     Mdays = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
   
7.    
   
8.     [C2].Resize(3, 31) = ""
   
9.     [C6].Resize(2, 31) = ""
   
10.    
    
11.     '3月1日的前一天, 即為2月的最後一天, 也是2月的天數
    
12.     '這也是 Excel 判別陽曆y年是否為閏年的另一方法
    
13.     Mdays(2) = Day(DateSerial([N1], 3, 1) - 1)
    
14.         
    
15.     [C6] = [C5]
    
16.         
    
17.     For i = 1 To Mdays([Q1])
    
18.         Cells(2, i + 2) = [N1] & "/" & [Q1] & "/" & i
    
19.         Cells(3, i + 2) = i
    
20.         Cells(4, i + 2) = Weekday(Cells(2, i + 2), vbMonday)
    
21.             
    
22.         '輸入累計公式
    
23.         If i <> Mdays([Q1]) Then
    
24.             Cells(6, i + 3) = "=RC[-1]+R[-1]C"
    
25.         End If
    
26.             
    
27.         '計算中間每週生產量
    
28.         If Cells(4, i + 2) = 7 And i + 2 - 6 > 1 Then
    
29.             Cells(7, i + 2) = "=SUM(R[-2]C[-6]:R[-2]C)"
    
30.               
    
31.         '計算第一週生產量
    
32.         ElseIf Cells(4, i + 2) = 7 Then
    
33.             Cells(7, i + 2) = "=SUM(R[-2]C[" & [C4] - 7 & "]:R[-2]C)"
    
34.         End If
    
35.     Next
    
36.         
    
37.     '計算最後一週生產量
    
38.     If Cells(4, Mdays([Q1]) + 2) < 7 Then
    
39.         Cells(7, Mdays([Q1]) + 2) = "=SUM(R[-2]C[-" & Cells(4, Mdays([Q1]) + 2) - 1 & "]:R[-2]C)"
    
40.     End If
    
41. End Sub

複製代碼

GBKEE

回復 6# yen956

1. '3月1日的前一天, 即為2月的最後一天, 也是2月的天數
   
2.          '這也是 Excel 判別陽曆y年是否為閏年的另一方法
   
3.         Mdays(2) = Day(DateSerial([N1], 3, 1) - 1)

複製代碼

這也是3月1日的前一天

1. Day(DateSerial([N1], 3, 0))

複製代碼

yen956

回復 7# GBKEE
了解, 原來直接在日期-1就可以了,
不必求出DateSerial再-1, 謝謝!!

GBKEE

回復 8# yen956
也可以如此

1. Private Sub EX()
   
2.     Dim i As Integer, Rng  As Range, MoDay As Date
   
3.     MoDay = DateSerial([n1], [q1], 1)
   
4.     With Range("C2:C4")
   
5.         .Resize(, 31) = ""
   
6.         With .Offset(3).Resize(, 31)
   
7.             .UnMerge
   
8.             .Rows("2:3") = ""
   
9.         End With
   
10.         i = 1
    
11.        Do While Month(MoDay + i - 1) = Month(MoDay)     '同一月份
    
12.             .Cells(1, i) = MoDay + i - 1
    
13.             .Cells(2, i) = i
    
14.             .Cells(3, i) = Weekday(MoDay + (i - 1), 2)
    
15.             .Cells(5, i) = Application.Evaluate("Sum(" & .Cells(4, 1).Resize(, i).Address & ")")
    
16.             If .Cells(3, i) = 7 Or i = Day(DateAdd("M", 1, MoDay) - 1) Then '或是 此月份最後一天
    
17.                 If i <= 7 Then                                  '第一週
    
18.                     Set Rng = .Cells(6, i).Offset(, -(i - 1)).Resize(, i)
    
19.                 ElseIf .Cells(3, i) = 7 Then                    '每週
    
20.                     Set Rng = .Cells(6, i).Offset(, -6).Resize(, 7)
    
21.                 ElseIf i = Day(DateAdd("M", 1, MoDay) - 1) Then  '月底
    
22.                     Set Rng = .Cells(6, i).Offset(, -(.Cells(3, i) - 1)).Resize(, .Cells(3, i))
    
23.                 End If
    
24.                 With Rng
    
25.                     .Merge
    
26.                     .Cells(1) = Application.Evaluate("Sum(" & .Offset(-2).Cells(1).Resize(, .Columns.Count).Address & ")")
    
27.                     .HorizontalAlignment = xlCenter
    
28.                     .VerticalAlignment = xlCenter
    
29.                     .WrapText = True
    
30.                 End With
    
31.             End If
    
32.             i = i + 1
    
33.        Loop
    
34.     End With
    
35. End Sub

複製代碼

yen956

回復 9# GBKEE
對我來說, 有點抽象(太多相對位置的相對位置), 有點難,
正在研究中, 謝謝再三指教!!謝謝!!