返回列表 上一主題 發帖

[發問] excel 判斷加總

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 »
發表於 2016-2-4 22:00 | 顯示全部帖子
回復 1# bill740615


E525 以陣列公式輸入 (CTRL+SHIFT+ENTER 三鍵齊按方式輸入)，再複製到其他儲存格
{=SUM(OFFSET(D525,,,LARGE(A$1:A524*ROW($1:524),2)-ROW()-1))}
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2016-2-7 18:30 | 顯示全部帖子
回復 4# bill740615

E525 {=SUM(OFFSET(D525,,,LARGE(A$1:A524*ROW($1:524),2)-ROW()-1))}

F525 =IF(2<FREQUENCY((MOD(C$2:C525,7)<MOD(C$3:C526,7))*ROW($3:526),CHOOSE({1,2,3},ROW(),LOOKUP(1,0/A$2:A525,ROW($2:525)),0)),"",E525)

公式往上複製
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2016-2-8 18:46 | 顯示全部帖子
本帖最後由 ML089 於 2016-2-10 00:27 編輯
  1. Sub ex()
  2.     Dim stauCalc%, nC%(1 To 3), n%, m%, LR%, i%, j%, k%, xR As Range
  3.     ThisWorkbook.Sheets("000").Select

  5.     stauCalc = Application.Calculation
  6.     Application.Calculation = xlCalculationManual

  8.     LR = Cells(Rows.Count, 2).End(xlUp).Row
  9.     Range("G2", "H" & LR).Clear
  10.     nC(1) = LR
  11.     For i = LR To 2 Step -1
  12.         If i = nC(1) Then
  13.             'A欄由下往上找第1個及第2個 "1"
  14.             n = 0
  15.             For j = i - 1 To 2 Step -1
  16.                 If Cells(j, 1) = "1" Then n = n + 1: nC(n) = j
  17.                 If n = 2 Then Exit For
  18.             Next
  19.             '由第1個 "1" 往下找第3個周一(最後一日)
  20.             m = 0: nC(3) = nC(1)
  21.             For k = nC(1) To i
  22.                 Set xR = Cells(k, "C")
  23.                 If Weekday(xR, 2) < Weekday(xR(2), 2) Then m = m + 1
  24.                 If m = 3 Then nC(3) = k: Exit For
  25.             Next
  26.         End If
  27.         If n <> 2 Then: Exit For
  28.         Cells(i, "G") = "=SUM(D$" & nC(2) & ":D" & i & ")"
  29.         If i <= nC(3) Then Cells(i, "H") = "=G" & i
  30.     Next
  31.     Application.Calculation = stauCalc
  32. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題