- 帖子
- 37
- 主題
- 0
- 精華
- 0
- 積分
- 41
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-5-7
- 最後登錄
- 2018-2-10
|
6#
發表於 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 |
|