麻辣家族討論版版 » Excel程式區 » [求助] VBA 比對後持續相減問題

返回列表下一主題上一主題發帖

[發問] [求助] VBA 比對後持續相減問題

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-4-11 20:45 | 顯示全部帖子

[發問] [求助] VBA 比對後持續相減問題

EXCEL A 頁
有兩名同學與每日花費

EXCEL B 頁
兩名同學存款

VB寫法

Sub TEST()

Dim i As Integer
Dim j As Integer

Sheets("A").Select

   i = 3

Do While Range("B" & i) <> ""

   j = 3

Do While Sheets("B").Range("A" & j) <> ""
      If Range("B" & i) = Sheets("B").Range("A" & j) Then
         Range("D" & i) = Sheets("B").Range("B" & j) - Sheets("A").Range("C" & i)
Exit Do
      End If
         j = j + 1
  Loop
         i = i + 1
Loop

MsgBox " TEST! "

End Sub
問題點他只會比對後使用存款相減當日花費並不會連續相減
例如小明存款 5000 ( 1/30 小明花費 300 ) ( 存款5000 - 300 = 4700 ) 具續比對 2/13 小明花費 200 ( 存款 5000 - 200 = 4800 )

請教各位高手
指導一下希望可以改成
例如小明存款 5000 ( 1/30 小明花費 300 ) ( 存款5000 - 300 = 4700 ) 具續比對 2/13 小明花費 200 ( 存款 4700 - 200 = 4500 )

懊惱許久，一直無法解決。。。
煩請指導一下 !

3.jpg (36.11 KB)

收藏

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

2^#

發表於 2015-4-12 01:06 | 顯示全部帖子

回復 2# lpk187

非常感謝幫助..
可是結果似乎不太正確 !!

王小明第二次花費變成負數 ...

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

3^#

發表於 2015-4-12 01:28 | 顯示全部帖子

回復 sabery
lpk187 發表於 2015-4-11 23:02

非常感謝版大 !!
已知道問題點在哪邊 !!

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

4^#

發表於 2015-4-12 05:09 | 顯示全部帖子

本帖最後由 sabery 於 2015-4-12 05:11 編輯

回復 sabery
lpk187 發表於 2015-4-11 23:02

         If Range("D" & i) < 0 Then
            Range("D" & i).Interior.Color = vbRed
            Else
            Range("D" & i).Font.Color = vbBlack
            End If

版大再次請教下 !!
今天假如想把負數找出來我文中這樣寫只有單獨把 Range("M" & i) 該格反紅如何把整行反紅呢 !!
不好意思新手上路真的真的請多耐心指導 !!

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

5^#

發表於 2015-4-12 05:38 | 顯示全部帖子

回復 sabery
lpk187 發表於 2015-4-11 23:02

目前是有用最笨方法
If Range("D" & i) < 0 Then
            Range("A" & i).Interior.Color = vbRed
            Range("B" & i).Interior.Color = vbRed
            Range("C" & i).Interior.Color = vbRed
            Range("D" & i).Interior.Color = vbRed
            Else
            Range("A" & i).Interior.Color = vbWhite
            Range("B" & i).Interior.Color = vbWhite
            Range("C" & i).Interior.Color = vbWhite
            Range("D" & i).Interior.Color = vbWhite
            End If

不知道有沒有更好方式!?
因為背景換色導致線不見了

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

6^#

發表於 2015-4-15 05:20 | 顯示全部帖子

本帖最後由 sabery 於 2015-4-15 05:21 編輯

回復 sabery
呃！我不是版大，我也只是個新學員而已！
試試這個
lpk187 發表於 2015-4-12 23:05

不好意思版大最後一問假使
今天增加一新同學
王小智

可是存款卻沒有他的資料

希望在D出現負數不夠存款所以顯示
例如
2015/02/13
呂曉智 200 D欄 = 不夠
2015/02/26
呂曉智 400 D欄 = 不夠
這樣寫

Sub TEST()
Dim i As Integer
Dim j As Integer
Dim B As Long
Sheets("A").Select
j = 5
Do While Sheets("B").Range("A" & j) <> ""
i = 6
Do While Range("B" & i) <> ""
If Range("B" & i) = Sheets("B").Range("A" & j) Then
B = Sheets("A").Range("C" & i) + B
Range("D" & i) = Sheets("B").Range("B" & j) - B
ElseIf Range("B" & i) <> Sheets("B").Range("A" & j) Then
Range("D" & i) = "不夠"
End If
i = i + 1
Loop
B = 0
j = j + 1
Loop
MsgBox " TEST! "
End Sub

複製代碼

可是錯誤連王小明都跑掉 !
可以再次指導嗎? 拜託了.

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: W8
軟體版本: 2003
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2024-9-21

7^#

發表於 2015-4-16 02:59 | 顯示全部帖子

回復 sabery

下面是我執行的結果
B工作表

A工作表
lpk187 發表於 2015-4-15 20:31

太強了 ...
因為是興趣想自學! 當初學校有教過一點點 .
不知道版大也是嗎? 還是有去上過呢 ?

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

返回列表下一主題上一主題