廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 3153 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
orange520
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[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
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x1 鮮花 x127
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片



複製程式
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 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.021155 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言