返回列表 上一主題 發帖

[發問] VBA 當餘數=0，底色標示位址產生BUG之修正。

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2015-11-5 20:21 | 顯示全部帖子
本帖最後由 准提部林 於 2015-11-5 20:23 編輯

For k = 0 To Int([T5] / [Q6])
→　For k = 0 To Int(20 / 10)　→只跑０,１,２，跑不了到１００期？？

是不是這樣？
For k = [T5] To [R6] Step [Q6]　'２０∼１００，以１０為間隔　
　　Cells(k + 6, j).Interior.ColorIndex = 4
　　Cells(k + 6, j - 8).Interior.ColorIndex = 43
Next

其它的看得眼都花了，改不了∼∼

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2015-11-6 10:03 | 顯示全部帖子
回復 4# Airman


For k = 0 To Int([T5] / [Q6])
　　uRow = [T5] + 6 - [Q6] * k
　　If uRow <= 6 Then uRow = [R6] + 6　'就將此視為〔例外〕處理　
　　Cells(uRow, j).Interior.ColorIndex = 4
　　Cells(uRow, j - 8).Interior.ColorIndex = 43
Next k

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題