返回列表 上一主題 發帖

[發問] VBA 程式碼簡化。

准提部林

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

If ([T5] + [Q6]) Mod [R6] > 0 Then
　　Cells(([T5] + [Q6]) Mod [R6] + 6, 1).Interior.ColorIndex = 8 'A欄的T5期數標示底色
Else
　　Cells([R6] + 6, 1).Interior.ColorIndex = 8
End If

改成：
N = ([T5] + [Q6]) Mod [R6]
If N = 0 Then N = [R6]
Cells(N + 6, 1).Interior.ColorIndex = 8
N = ([T5] + [Q6]) Mod [R6]　'再重置Ｎ，讓下方引用

TOP

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-7 
2#
發表於 2015-11-9 14:35 | 顯示全部帖子
If ([T5] + [Q6]) Mod [R6] = 0 Then
∼∼
∼∼
End If

改成：
If N = 0 Then　'這是延續上方的值（以下同）　
　　Cells([R6] + 6, j - 8).Interior.ColorIndex = 8
　　Cells([R6] + 6, j).Interior.ColorIndex = 37
　　X = [Q6]
Else
　　For k = 0 To Int(([R6] - N) / [Q6])
　　　　Cells(N + 6 + [Q6] * k, j - 8).Interior.ColorIndex = 8
　　　　Cells(N + 6 + [Q6] * k, j).Interior.ColorIndex = 37
　　Next k
　　X = ([R6] - ([R6] - N) Mod [Q6] + [Q6]) Mod [R6]
End If
　
With Cells(X + 6, j - 8)
　　　.Interior.ColorIndex = 8: .Font.ColorIndex = 7: .Font.FontStyle = "粗體"
End With
With Cells(X + 6, j)
　　　.Interior.ColorIndex = 37: .Font.ColorIndex = 7: .Font.FontStyle = "粗體"
End With

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題