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