VBA 比對後持續相減

Home Home
登入註冊發表列印 載入圖片
引用 | 編輯 orange520
2015-04-10 00:17		 樓主
▼
推文 x0
EXCEL A 頁
有兩名同學 與 每日花費
]

EXCEL B 頁
兩名同學存款




VBA 寫法

Sub TEST()

Dim i As Integer
Dim j As Integer

Sheets("A").Select

i = 6

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

j = 5

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" & j)
Exit Do
End I ..

訪客只能看到部份內容，免費 加入會員



獻花 x0
引用 | 編輯 sfzvzfbv
2015-04-18 23:03		 1樓
▲  


複製程式 
Sub TEST()

Dim i As Integer
Dim j As Integer
Dim k As Integer

j = Sheets("A").Cells(1, 1)

Sheets("A").Select

For i = 1 To 2 Step 1
    
    k = Sheets("A").Cells(i, 2)
    j = j - k
    MsgBox (j)

Next

End Sub


獻花 x0