返回列表 上一主題 發帖

[發問] for next

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
1# 跳轉到 »
發表於 2021-3-29 11:38 | 顯示全部帖子
r1 = 4: r2 = 70: p = 1
If Range("j16") = 1 Then r1 = 70: r2 = 4: p = -1
For k = r1 To r2 Step p
    N = N + p
Next k

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題