ByVal a As Range~此類語法的用法，不太清楚 - Excel程式區

[發問] ByVal a As Range~此類語法的用法，不太清楚

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

1^# 跳轉到 »

發表於 2011-12-30 11:15 | 顯示全部帖子

IRptData -->自訂的整數變數
程式第二行己說明了 (Dim IRptData As Integer)
Do ..... Loop --> 重覆執行 ..... 陳述式(迴圈)
以上應是vba基本功,在excel 的vba編緝器中的說明檔中都有範例說明
善用vba編緝器中的說明檔,可讓您的vba功力大增

TOP

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

2^#

發表於 2011-12-30 15:08 | 顯示全部帖子

本帖最後由 kobo 於 2011-12-30 15:10 編輯

Dim IRptData As Integer ' 宣告IRptData 為整數
IRptData = 6             '  IRptData 初始值為 6
..........
↓↓↓↓ 重覆執行迴圈,直到 Left(Trim.....), 1) = "本" 成立為止↓↓↓↓(條件成立跳出迴圈)
Do Until Left(Trim(Sheets("資料").Cells(IRptData, 4).Value), 1) = "本"  (IRptData第一次是6)
   .............
      IRptData = IRptData + 1 '每執行一次 IRptData 就加 1
Loop

TOP

kobo