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 
14#
發表於 2014-4-22 11:35 | 只看該作者
回復 12# softsadwind

感覺OR的用法真的是很令人吃驚
感謝回復

TOP

rakefrank

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

感謝回復
不過版大的公式會出現錯誤
好像是WEEKNUM此含數的傳回類類型11的關係
但若修改成2會導致全部的數值都相同
不知道是不是EXCEL版本所致

自己嘗試用WEEKNUM來寫
發現真是一個好用的含數

統計表4.zip (9.07 KB)

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
12#
發表於 2014-4-22 08:56 | 只看該作者
回復 1# rakefrank


    參考看看...
    多了一列輔助
    統計表.rar (6.69 KB)
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
11#
發表於 2014-4-20 22:36 | 只看該作者
回復 4# rakefrank
試試看
統計表.rar (6.66 KB)
學海無涯_不恥下問

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

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 
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兔年全勤獎章
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 
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

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
12
返回列表 上一主題