VBA 比對後持續相減

MyChat 數位男女

»
程式設計

手機版

地圖

簡體

您是第 3395 個閱讀者

04:00 ~ 4:30 資料庫備份中，需等較久的時間，請耐心等候

可列印版加為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.066951 second(s),query:16 Gzip disabled 本站由瀛睿律師事務所擔任常年法律顧問 \| 免責聲明 \| 本網站已依台灣網站內容分級規定處理 \| 連絡我們 \| 訪客留言