[發問] VBA 程式碼簡化。

參考附件︰
http://www.FunP.Net/300415

Private Sub CommandButton1_Click()
Dim j%, k%

   Sheets("DATA").Range("I6", "P" & [R6] + 6).Copy [I6] '複製I:P資料
   Range("I" & [Q5] + 7, "P" & [R6] + 6).Copy [A7]
   Range("I7", "P" & [Q5] + 6).Copy Range("A" & [Q6] + 7) '複製A:H資料
   Cells([T5] + 6, 9).Interior.ColorIndex = 4 'I欄的T5期數標示底色
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

For j = 10 To 16
      If Cells([T5] + 6, j) = [R5] Then  '以I欄T5期數有顯示R5值為基準條件
         If ([T5] + [Q6]) Mod [R6] = 0 Then
            Cells([R6] + 6, j - 8).Interior.ColorIndex = 8
            Cells([R6] + 6, j).Interior.ColorIndex = 37
      With Cells([Q6] + 6, j - 8)
         .Interior.ColorIndex = 8
         .Font.ColorIndex = 7
         .Font.FontStyle = "粗體"
      End With
      With Cells([Q6] + 6, j)
         .Interior.ColorIndex = 37
         .Font.ColorIndex = 7
         .Font.FontStyle = "粗體"
      End With

      Else
         For k = 0 To Int(([R6] - ([T5] + [Q6]) Mod [R6]) / [Q6])
            Cells(([T5] + [Q6]) Mod [R6] + 6 + [Q6] * k, j - 8).Interior.ColorIndex = 8  'A欄T5期依各間距數往下標示底色
            Cells(([T5] + [Q6]) Mod [R6] + 6 + [Q6] * k, j).Interior.ColorIndex = 37
         Next k
      With Cells(([R6] - ([R6] - ([T5] + [Q6]) Mod [R6]) Mod [Q6] + [Q6]) Mod [R6] + 6, j - 8)  'A欄=k的最後間距期數再加一個間距標示底色
         .Interior.ColorIndex = 8
         .Font.ColorIndex = 7
         .Font.FontStyle = "粗體"
      End With
      With Cells(([R6] - ([R6] - ([T5] + [Q6]) Mod [R6]) Mod [Q6] + [Q6]) Mod [R6] + 6, j)
         .Interior.ColorIndex = 37
         .Font.ColorIndex = 7
         .Font.FontStyle = "粗體"
      End With
      End If
      End If

Next j

[R6].Select
End Sub

需求
請問︰
程式碼能如何再簡化?
以上  懇請各位前輩、先進不吝賜教! 謝謝!

樓主熱帖

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

5^#

發表於 2015-11-9 15:12 | 只看該作者

回復 4# 准提部林
准大:
謝謝您的詳細分解。
小弟受益良多~感恩^^

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-15

4^#

發表於 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-15

3^#

發表於 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

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2015-11-9 10:49 | 只看該作者

補充說明:
重點是在列31~列34
因為([T5] + [Q6]) Mod [R6] = 0時，會產生bug，只好分成上下二段寫~
所以覺得程式碼有些冗長，不知是否能再稍作整理簡化之?
謝謝!

TOP