如何回傳相對儲存格之間相減 - Excel程式區

donod

中學生 Rank: 2

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

11^# 跳轉到 »

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

回復 10# 准提部林

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

TOP

donod

中學生 Rank: 2

帖子: 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)
(有"*"部分是可用其他字符代替的)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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進行兩值相減
３．以上只示例Ｘ～ＡＢ欄的做法，其它欄請自行去套入
４．相減值以公式 = ??? - ??? 表現，方便做比對是否正確

TOP

donod