請教公式_跳欄並且符合條件才加總

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

21^# 跳轉到 »

發表於 2020-8-26 10:25 | 只看該作者

回復 20# Andy2483

1) 每次發帖都只提供簡化版, 當然得不到正確解答, 除非你真的已可自己修改程式或公式
2) 以這版本來看, 加總條件[卸模]~[架模]~[調產], 都在第11列, 若程式沒修改, 當然不正確
另外,[前置]MAX-- 又要如何取???
3) 依據上方4個條件, 加總的位在在Q~AF欄, 所以Brr的欄數應變成 1 to 16 而不是 1 to 3
4) k = 1 to 3 這是固定的, 它會隨 j 值變化----j + k

自己再看看原來程式每一行, 若能一一理解, 再來說擴增需求~~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

22^#

發表於 2020-8-26 10:52 | 只看該作者

回復 21# 准提部林

1) 每次發帖都只提供簡化版, 當然得不到正確解答, 除非你真的已可自己修改程式或公式
擔心範例太混亂!前輩們不理! 調適中

2) 以這版本來看, 加總條件[卸模]~[架模]~[調產], 都在第11列, 若程式沒修改, 當然不正確
另外,[前置]MAX-- 又要如何取???
不懂所以再問,[前置]MAX 是要分別從每個品號(列) [前置]段裡(標準.實際.誤差) 各取最大如SHEET("流程項目").[K46]

3) 依據上方4個條件, 加總的位在在Q~AF欄, 所以Brr的欄數應變成 1 to 16 而不是 1 to 3
範例有改

4) k = 1 to 3 這是固定的, 它會隨 j 值變化----j + k
以為欄位擴大了就該跟著變不懂請再指導

自己再看看原來程式每一行, 若能一一理解, 再來說擴增需求~~
感覺自己有理解就改改看 ^_^

謝謝

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

23^#

發表於 2020-8-26 11:12 | 只看該作者

本帖最後由准提部林於 2020-8-26 11:16 編輯

回復 22# Andy2483

[前置]MAX 是要分別從每個品號(列)  [前置]段裡(標準.實際.誤差) 各取最大

__取[標準]最大, 同時將該最大[標準]同組的[實際及誤差], 一起填入???
還是三個分別取最大???

標準 100  實際 120 誤差 -20 (負數--怎比較)
標準 110  實際 100 誤差 10

取: 標準 110  實際 120 誤差 10 ???

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

24^#

發表於 2020-8-26 11:44 | 只看該作者

回復 23# 准提部林

正負一起比取最大 ! 如果每欄都是負數也是比最大數
例如
誤差值 5 ,10 ,20  ,6 .....取20
誤差值 -5 ,-10 ,-20  ,-6 .....取-5
誤差值- 5 ,10 ,-20  ,6 .....取10

負數是提前完成的意思,所以不讓變正數
正數是超過標準時間

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

25^#

發表於 2020-8-26 13:19 | 只看該作者

回復 24# Andy2483

慢慢研究:

範例_20200826_v1.rar (221.41 KB)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

26^#

發表於 2020-8-26 13:53 | 只看該作者

回復 25# 准提部林

謝謝前輩指導
Andy會認真研究不枉費您的指導

另請教範例當中的圖表列印範圍問題
1.以2013版的分頁預覽調整圖表來配合A4直印,也可產生PDF黨
2.再以2003版開啟時圖表位置就跑掉了
3.疑似版本問題!

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

27^#

發表於 2020-8-26 16:49 | 只看該作者

回復 26# Andy2483

2003版只是提供參考用,
程式碼還是要搬到2013版, 免得因版本有些功能不可用~~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

28^#

發表於 2020-8-26 18:09 | 只看該作者

回復 27# 准提部林
了解
謝謝指導
這範例是專案實際要使用的統計工具檔
會依團隊實際需求情況作調整
有您的幫忙讓功能更完整效能更好代表團隊感謝版版.感謝各位前輩.
特別感謝您對Andy耐心的指導

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

29^#

發表於 2021-7-27 10:26 | 只看該作者

回復 27# 准提部林

謝謝前輩協助與指導!
1.生活總是忙忙碌碌的! 這帖已經過了11個月了!
2.工作告一段落的休息片刻,再回來學習這實用的程式碼!還是很吃力!
3.這段時間裡因系統轉換Oracle>SAP ,大量的Excel程式碼需要重寫!
4.因為又多又急著要上線使用,都只求能用就好!
效能需要提升!"
Andy學習進步的很慢!請前輩們再指導!
謝謝麻辣家族討論版版的優質平台

Sub TEST_20200826()
Dim Arr, Brr, R&, C&, i&, j&, k%, T$
R = Cells(Rows.Count, "d").End(xlUp).Row '最後一行
C = Cells(12, Columns.Count).End(xlToLeft).Column '最後一欄
Arr = Range([A1], Cells(R, C)) '定義資料範圍--A1至整個區
'↑ Arr定義成整個區域更容易理解後面的邏輯規則!謝謝前輩!
ReDim Brr(1 To UBound(Arr) - 12, 1 To 20) '設空陣列
For i = 13 To UBound(Arr)
For j = [AG1].Column To UBound(Arr, 2) Step 4
   T = Right(Split(Arr(11, j), "]")(0), 2)  '取[??]中的文字
   '↑ 因為特殊符號[ ]會影響執行結果!所以取裡面的字
   C = InStr("/前置//卸模//架模//調產/", T) - 1 '檢測各分項要填入Brr的位置
   '↑用T字串的所在的字數位置決定T項目的總和放在Brr的位置! 真幸運能幫同事設計這份資料!謝謝!
   If C = 1 Then  '前置--取最大
      For k = 0 To 2
            If Arr(i, j + k) > Brr(i - 12, C + k) Then Brr(i - 12, C + k) = Arr(i, j + k)
      Next k
   ElseIf C >= 5 Then '其它項--累計
      For k = 0 To 2
            Brr(i - 12, C + k) = Brr(i - 12, C + k) + Arr(i, j + k) '各分項累計
            Brr(i - 12, 17 + k) = Brr(i - 12, 17 + k) + Arr(i, j + k) '合計
      Next k
   End If
Next j
Next i
[M13].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

30^#

發表於 2022-9-19 16:46 | 只看該作者

回復 25# 准提部林

謝謝前輩指導
前輩的程式碼太精簡了
後輩由簡化繁,逐步練習字典與陣列
今習得字典.Add

Option Explicit
Sub TEST_20220919()
Dim Arr, Brr, R&, C&, i&, j&, k%, T$, TT, Y
TT = Timer
R = Cells(Rows.Count, "d").End(xlUp).Row '最後一行
C = Cells(12, Columns.Count).End(xlToLeft).Column '最後一欄
Set Y = CreateObject("Scripting.Dictionary")
For i = 1 To 13 Step 4
Y.Add Mid(Cells(11, i + 12), 2, 2), i
Next
Arr = Range([A1], Cells(R, C)) '定義資料範圍--A1至整個區
ReDim Brr(1 To UBound(Arr) - 12, 1 To 20) '設空陣列
For i = 13 To UBound(Arr)
For j = [AG1].Column To UBound(Arr, 2) Step 4
T = Right(Split(Arr(11, j), "]")(0), 2) '取[??]中的文字
C = Y(T) '檢測各分項要填入Brr的位置
If C = 1 Then '前置--取最大
For k = 0 To 2
If Arr(i, j + k) > Brr(i - 12, C + k) Then
Brr(i - 12, C + k) = Arr(i, j + k)
End If
Next k
ElseIf C >= 5 Then '其它項--累計
For k = 0 To 2
Brr(i - 12, C + k) = Brr(i - 12, C + k) + Arr(i, j + k) '各分項累計
Brr(i - 12, 17 + k) = Brr(i - 12, 17 + k) + Arr(i, j + k) '合計
Next k
End If
Next j
Next i
[M13].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
MsgBox Timer - TT

複製代碼

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]