返回列表 上一主題 發帖

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

Changbanana

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-14 14:48 | 只看該作者

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

煩請各位高手~
在工作表1

與工作表二


第一步驟﹔
　　先在工作表一的Ｅ欄（表頭 sys.date）中和工作表二的Ｅ欄（表頭 Sdate）比對
         發現日期相同的時候，進行第二步驟
第二步驟﹔
         再比對工作表一的A欄（表頭 NO.）中和工作表二的A欄（表頭 number）
         發現單號相同的時候，進行第三步驟
第三步驟﹔
        把工作表一的D欄（表頭 cash）中與工作表二的D欄（表頭 fee）的值相減
        
        也就是說第一步驟和第二步驟都符合條件時才進行第三步驟
        例如﹔
                     1. 先在工作表一的Ｅ2（時間2016/8/1）中和工作表二的Ｅ欄（2016/8/1）比對，發現有兩筆資料
                     2. 再比對工作表一的A2（單號10001）中和工作表二的A欄（發現有10001）
                     3. 最後工作表一的D2（1200）與工作表二的D欄（200）的值相減   SHOW出1000

優先希望能直接在工作表一的D欄上計算
若不行，第二考慮再增加一欄位去計算
       有試著寫函數的方式去做，但寫了兩天還是沒有成功@@
      我寫=IF(AND(AND(E2,工作表2!E:E),AND(工作表1!A2,工作表2!A:A)),工作表1!D2-工作表2!D:D,"")
      得出的結果是錯的


~~若能用VBA解決也行

麻煩各位高手老師了!!

附件==> 活頁簿1_0914.zip (382.58 KB)
收藏 分享

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
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)))後下拉即可.
羅

TOP

Changbanana

帖子
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您會嗎?

TOP

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 三鍵輸入公式

TOP

ketrddem

帖子
50 
主題
8 
精華
0 
積分
66 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2013 
閱讀權限
20 
性別
男 
註冊時間
2015-2-3 
最後登錄
2022-3-5 
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新手，請前輩多多指教

TOP

Changbanana

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

論壇贊助勳章
6#
發表於 2016-10-4 16:48 | 只看該作者
回復 5# ketrddem


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

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

TOP

Changbanana

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

論壇贊助勳章
7#
發表於 2016-10-4 16:51 | 只看該作者
回復 4# ML089


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

TOP

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 三鍵輸入公式

TOP

Changbanana

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

論壇贊助勳章
9#
發表於 2016-10-17 11:44 | 只看該作者
回復 8# ML089


    謝謝你~成功達陣^^

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題