　暱稱: 厚臉皮的學生

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2020-8-24 10:51 | 只看該作者

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

各位前輩好
請教公式_跳欄並且符合條件才加總
1.加總格AC13
2.從AG13開始跳4欄相加至最後欄位
2.1.當欄的第10列儲存格不以"前置" 開頭
2.2.以迴圈執行的迴圈範例如下
謝謝指導

Sub 迴圈範例()
Dim i&
[AC13] = 0
For i = 33 To 256 Step 4
If Cells(10, i) Like "前置*" = False Then
[AC13] = [AC13] + Cells(13, i)
End If
Next
End Sub
'AC13 =SUMPRODUCT((MOD(COLUMN(AG:IV),4)=1)*AG13:IV13)

樓主熱帖

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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2020-8-24 11:13 | 只看該作者

發帖如果是求助的,
最好上傳範例測試檔, 是基本的,
也可準確根據資料結構去了解問題,
大家不想再花時間為了解題去建測試資料!!!

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

3^#

發表於 2020-8-24 12:43 | 只看該作者

回復 2# 准提部林

謝謝前輩提醒
上傳範例

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

4^#

發表於 2020-8-24 12:49 | 只看該作者

回復 2# 准提部林

上傳失敗!
疑似限制上傳回家再處裡
謝謝指導

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

5^#

發表於 2020-8-24 13:36 | 只看該作者

手機試上傳範例檔

管理表_20200824_2.zip (57.54 KB)

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

6^#

發表於 2020-8-24 13:40 | 只看該作者

回復 2# 准提部林
前輩好
手機完成範例上傳

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2020-8-24 14:53 | 只看該作者

若只比對前兩字, 也可:
If Left(Cells(10, i), 2) <> "前置" Then

每3欄為一個群組, STEP 3 才對吧!

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

8^#

發表於 2020-8-24 15:37 | 只看該作者

回復 7# 准提部林

1. If Left(Cells(10, i), 2) <> "前置" Then
是! 但是不知如何加到下列公式裡,或其他方法
AC13 =SUMPRODUCT((MOD(COLUMN(AG:IV),4)=1)*AG13:IV13)

2.每3欄為一個群組, STEP 3 才對吧!
對不起! 有一欄是備用欄隱藏起來了

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

9^#

發表於 2020-8-24 15:38 | 只看該作者

回復 8# Andy2483

有看到隱藏欄,
Sub TEST()
Dim Arr, Brr, R&, C&, i&, j&, k%
R = Cells(Rows.Count, "d").End(xlUp).Row '最後一行
C = Cells(12, Columns.Count).End(xlToLeft).Column '最後一欄
Arr = Range(Cells(R, "AG"), Cells(10, C)) '定義資料範圍 AG10:???
ReDim Brr(1 To UBound(Arr) - 3, 1 To 3) '設空陣列
For i = 4 To UBound(Arr)
For j = 1 To UBound(Arr, 2) Step 4
If Left(Arr(1, j), 2) = "前置" Then GoTo j01
For k = 1 To 3
Brr(i - 3, k) = Brr(i - 3, k) + Arr(i, j + k - 1)
Next k
j01: Next j
Next i
[AC13].Resize(UBound(Brr), 3) = Brr
End Sub

'===================================

TOP

Andy2483