VBA 比对后持续相减

MyChat 数位男女

»
程式设计

手机版

地图

繁体

您是第 3386 个阅读者

可列印版加为IE收藏收藏主题上一主题 | 下一主题

orange520

级别: 路人甲

▼

[Basic][求助] VBA 比对后持续相减

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 ..

访客只能看到部份内容，免费加入会员或由脸书 Google 可以看到全部内容


x0 [楼主] From：台湾固网股份有限公司 \| Posted：2015-04-10 00:17 \|

sfzvzfbv

级别: 小人物

x127

▲

复制程式

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 [1 楼] From：台湾中华电信股份有限公司 \| Posted：2015-04-18 23:03 \|



MyChat 数位男女 » 程式设计

Powered by PHPWind v1.3.6 Copyright © 2003-04 PHPWind	Processed in 0.094988 second(s),query:16 Gzip disabled 本站由瀛睿律师事务所担任常年法律顾问 \| 免责声明 \| 本网站已依台湾网站内容分级规定处理 \| 连络我们 \| 访客留言