12
返回列表 上一主題 發帖

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

rakefrank

帖子
36 
主題
6 
精華
0 
積分
77 
點名
0  
作業系統
Win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2013-9-5 
最後登錄
2022-6-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-18 11:38 | 只看該作者

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

統計表.zip (4.24 KB)

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

請各位大大指導
收藏 分享

rakefrank

帖子
36 
主題
6 
精華
0 
積分
77 
點名
0  
作業系統
Win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2013-9-5 
最後登錄
2022-6-12 
2#
發表於 2014-4-18 13:55 | 只看該作者
統計表2.zip (5.33 KB)

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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
3#
發表於 2014-4-18 16:35 | 只看該作者
本帖最後由 yen956 於 2014-4-18 16:39 編輯

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

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

TOP

rakefrank

帖子
36 
主題
6 
精華
0 
積分
77 
點名
0  
作業系統
Win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2013-9-5 
最後登錄
2022-6-12 
4#
發表於 2014-4-18 16:46 | 只看該作者
回復 3# yen956

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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
5#
發表於 2014-4-19 12:39 | 只看該作者
回復 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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
6#
發表於 2014-4-19 12:54 | 只看該作者
補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
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2014-4-19 15:20 | 只看該作者
回復 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))
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
8#
發表於 2014-4-19 15:48 | 只看該作者
回復 7# GBKEE
了解, 原來直接在日期-1就可以了,
不必求出DateSerial再-1, 謝謝!!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2014-4-19 16:24 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
10#
發表於 2014-4-19 19:32 | 只看該作者
回復 9# GBKEE
對我來說, 有點抽象(太多相對位置的相對位置), 有點難,
正在研究中, 謝謝再三指教!!謝謝!!

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
12
返回列表 上一主題