[發問] 如何回傳相對儲存格之間相減

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

16^#

發表於 2015-11-7 19:22 | 只看該作者

回復 15# 准提部林

快速了很多，很有用，效率也提高了，謝謝准提部林版大教授!

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

15^#

發表於 2015-11-7 12:25 | 只看該作者

回復 14# donod

給個參考方案，能用則用，應可事半功倍：

Xl0000082.rar (358.14 KB)

只要在〔第四列〕設好公式，及標記相減值的欄位，程式全自動處理～～

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

14^#

發表於 2015-11-6 22:01 | 只看該作者

回復 13# 准提部林
可以了，感謝版大再次教授!
連備註都給我們加上，原本不明白的地方都清楚了!
感恩這兒的大大無私奉獻，謝謝您們!

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

13^#

發表於 2015-11-6 11:06 | 只看該作者

本帖最後由准提部林於 2015-11-6 11:09 編輯

回復 12# donod

Sub TEST()
Dim R&, x&, y&, H, xR As Range
R = Cells(Rows.Count, 1).End(xlUp).Row ’以Ａ欄檢測最後一筆資料列號
If R < 5 Then Exit Sub
For x = Range("X1").Column To Range("AB1").Column　'X ~ AB 欄
　　For y = 5 To R
　　　　Set xR = Cells(y, x)
　　　　If xR = " *" Then
　　　　　　If H = "" Then H = Val(Range("W" & y - 1))
　　　　　　If xR(2, 1) = "" And H <> "" Then
　　　　　　　　xR = "=" & Val(Range("W" & y)) & "-" & H
　　　　　　End If
　　　　End If
　　　　If IsNumeric(xR) Then H = ""
　　Next y
Next x

'其它欄位往下加入（規則如上，只有相減值的欄不同）　
End Sub

１．先用公式產生檢查重覆的" *" 記號
２．再使用vba進行兩值相減
３．以上只示例Ｘ～ＡＢ欄的做法，其它欄請自行去套入
４．相減值以公式 = ??? - ??? 表現，方便做比對是否正確

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

12^#

發表於 2015-11-6 00:12 | 只看該作者

再附上完整的檔案，謝謝大大!

test5a.rar (888.39 KB)
再次說明:
例子中，有"*"的儲存格提示重複了相對欄位的儲存格，例如例子中X12-X14有"*"，提示W12-W14重複了欄位AQ12-AQ14
1) 如果想將一連串有"*"部分的最下一個儲存格(一連串有"*"部分之下有機會再出現一連串有"*"部分或1個有"*"部分)，回傳相對儲存格之間相減(以上例子:X14=W14-W11) 及
2) 將只有1個有"*"部分的儲存格，回傳相對儲存格之間相減(例子中:AJ7=AG7-AG6)
(有"*"部分是可用其他字符代替的)

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

11^#

發表於 2015-11-5 21:40 | 只看該作者

回復 10# 准提部林

感謝版大幫忙，公式已經沒有問題了。
但當數據太多及數據改變，需要很耐時間計算，甚至停下來。

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

10^#

發表於 2015-11-5 14:44 | 只看該作者

本帖最後由准提部林於 2015-11-5 14:48 編輯

回復 9# donod

疏忽了其間有0值,
LOOKUP(0,0/(Q$4:Q680="")　遇到０即停止，
改為：
LOOKUP(1,0/(Q$4:Q680="")

可選取整張工作表，
將　LOOKUP(,　全部取代成　LOOKUP(1,

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

9^#

發表於 2015-11-5 14:16 | 只看該作者

回復 8# 准提部林

謝謝版大回覆!

附件中的綠色部份是改用新條件，紅色部份出錯(Q681,Z681)，參考了對上一組有"*"部份，但DELETE上一組有"*"部份就會正確。再請大大指教。

test2.rar (751.57 KB)

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

8^#

發表於 2015-11-5 10:12 | 只看該作者

回復 7# donod

=IF(AND($AO5<>0,$AP5<>0,$U5<>0,$V5<>0)+AND($AO5<>0,$AP5=0,$U5<>0,$V5<>0)+AND($AO5=0,$AP5<>0,$U5<>0,$V5=0.6216)+AND($AO5<>0,$AP5=0.6216,$U5=0,$V5<>0)+AND($AO5=0,$AP5<>0,$U5<>0,$V5=0)+AND($AO5<>0,$AP5=0,$U5=0,$V5<>0)+AND($AO5<>0,$AP5<>0,$U5<>0,$V5=0)+AND($AO5<>0,$AP5=0,$U5<>0,$V5=0)+AND($AO5=0,$AP5<>0,$U5=0,$V5<>0)=0,"",IF(AND($AO6<>0,$AP6<>0,$U6<>0,$V6<>0)+AND($AO6<>0,$AP6=0,$U6<>0,$V6<>0)+AND($AO6=0,$AP6<>0,$U6<>0,$V6=0.6216)+AND($AO6<>0,$AP6=0.6216,$U6=0,$V6<>0)+AND($AO6=0,$AP6<>0,$U6<>0,$V6=0)+AND($AO6<>0,$AP6=0,$U6=0,$V6<>0)+AND($AO6<>0,$AP6<>0,$U6<>0,$V6=0)+AND($AO6<>0,$AP6=0,$U6<>0,$V6=0)+AND($AO6=0,$AP6<>0,$U6=0,$V6<>0) ," *",W5-LOOKUP(,0/(X$4:X4=""),W$4:W4)))

藍色為[當列]的判斷, 紅色為[下一列]的判斷!