PALMisLIFE 討論區

標題: [求助]Excel VBA [列印本頁]

作者: jayson 時間: 2011-12-12 00:38
標題: [求助]Excel VBA
我想用vba 跑迴圈，但是執行時，一直告訴我
下方紅色的字有問題，請問我有哪裡有錯，
小弟平時沒有接觸vba，請見諒
謝謝

Sub Macro1()
Dim i As Integer
For i = 2 To 3000
If Sheet4.Cells(D, 58).Value > Sheet4.Cells(D, 28).Value Then
Sheet4.Cells(D, 53).Value = i
Else

End If
Next i

End Sub

作者: Eric_Taiwan 時間: 2011-12-12 10:24
本文章最後由 Eric_Taiwan 於 2011-12-12 10:30 編輯

> If Sheet4.Cells(D, 58).Value > Sheet4.Cells(D, 28).Value Then
把括號中的 (D, 58) 改為 (4,58) 就可以了執行了，請見下方。但這樣修改，外圍的 i 廻圈是沒有用的，或許你是想改成 "或許版" 的執行結果。

正確版: If Sheet4.Cells(4, 58).Value > Sheet4.Cells(4, 28).Value Then
或許版: If Sheet4.Cells(i, 58).Value > Sheet4.Cells(i, 28).Value Then

作者: kuanll 時間: 2011-12-12 11:16
在Cells(X,Y)內要放常數或變數,D要先轉換為數字,上面的是正解...

歡迎光臨 PALMisLIFE 討論區 (http://f.pil.tw/)