PALMisLIFE 討論區

搜索
鹹魚爸魅力四射舞蹈教室
查看: 2212|回復: 2
打印 上一主題 下一主題

[求助]Excel VBA

[複製鏈接]

175

主題

2

好友

660

積分

該用戶從未簽到

文章
680
跳轉到指定樓層
1#
發表於 2011-12-12 00:38 |只看該作者 |倒序瀏覽
我想用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

分享淘帖0 分享分享0 收藏收藏0 頂0 踩0

50

主題

1

好友

621

積分

  • TA的每日心情
    開心
    2017-1-16 10:54
  • 簽到天數: 23 天

    連續簽到: 1 天

    [LV.4]偶爾看看III

    文章
    225
    2#
    發表於 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
    回復

    使用道具 舉報

    68

    主題

    1

    好友

    416

    積分

    該用戶從未簽到

    文章
    410
    3#
    發表於 2011-12-12 11:16 |只看該作者
    在Cells(X,Y)內要放常數或變數,D要先轉換為數字,上面的是正解...
    實力,決定排名的順序...
    回復

    使用道具 舉報

    您需要登錄後才可以回帖 登錄 | 免費註冊

    與站長聯繫| PALMisLIFE 掌上生活      下載:更快、更棒、更好玩

    GMT+8, 2024-11-26 23:06 , Processed in 0.044133 second(s), 31 queries , Gzip On.

    Powered by Discuz!

    © 2001-2012 Comsenz Inc. style by eisdl

    回頂部