[發問] 兩階段條件符合後再進行計算

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

9^#

發表於 2016-10-17 11:44 | 只看該作者

回復 8# ML089

謝謝你~成功達陣^^

版主 Rank: 7 Rank: 7 Rank: 7

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 2016-10-5 16:02 | 只看該作者

回復 7# Changbanana
若在工作表一計算時只選工作表二奇數列做計算，而偶數列忽略它不要計算。

1.
工作表二，增加輔助欄公式，奇數列=1，偶數列=0。
F2 =MOD(ROW(),2)
下拉

2.
H2 =D2-SUMIFS(工作表2!D:D,工作表2!A:A,A2,工作表2!E:E,E2)
改為 (最後一數，奇數列=1，偶數列=0)
H2 =D2-SUMIFS(工作表2!D:D,工作表2!A:A,A2,工作表2!E:E,E2,工作表2!F:F,1)
下拉

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

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

7^#

發表於 2016-10-4 16:51 | 只看該作者

回復 4# ML089

  您這方法滿好用的

  想再請教一下
  若在工作表一計算時只選工作表二奇數列做計算
  而偶數列忽略它不要計算
  這樣有函數可以使用嗎?

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

6^#

發表於 2016-10-4 16:48 | 只看該作者

回復 5# ketrddem

大大你這個方法沒有跑出結果

我先暫時用函數解決了~謝謝您

ketrddem

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2024-12-3

5^#

發表於 2016-9-15 22:33 | 只看該作者

不確定對不對，請插入模組後測試一下

Dim LostRow As Integer
LostRow=sheets("工作表1").cells(rows.count,1).end(xlup).row
For i = 2 to LostRow
If sheets("工作表1").cells(i,5)=sheets("工作表2").cells(i,5) and sheets("工作表1").cells(i,1)=sheets("工作表2").cells(i,1) then
sheets("工作表1").cells(i,7)=sheets("工作表1").cells(i,4)-sheets("工作表2").cells(i,4)
end if
next

EXCEL VBA新手，請前輩多多指教

版主 Rank: 7 Rank: 7 Rank: 7

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2016-9-15 07:29 | 只看該作者

H2 =D2-SUMIFS(工作表2!D:D,工作表2!A:A,A2,工作表2!E:E,E2)
下拉

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

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

3^#

發表於 2016-9-14 16:11 | 只看該作者

回復 2# rouber590324

謝謝您~~~
這樣key值變為A2&E2了
好聰明的方式

若改為vba您會嗎?

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2016-9-14 15:06 | 只看該作者

dear sir *-
1.工作表二空白 F欄加入 =A2&E2後往下拉 (若F欄非空白.自行取空白欄)
2.工作表一空白 H欄加入 =IF(ISERROR(INDIRECT("Sheet2!D"&MATCH(A2&E2,Sheet2!F:F,0))),"",D2-INDIRECT("Sheet2!D"&MATCH(A2&E2,Sheet2!F:F,0)))後下拉即可.

羅