我正在嘗試修改以下代碼。從 1 到 8 張，也許更少。作業表 1 = A 列包含數字，B 列包含將 A 列分組的數字。 A 列 B 列 11200 3 11202 3 12500 4 12502 4 向下還有更多行，因此 B 列中的偶數=藍色，奇數列 B= 綠色需要應用更多顏色，所以我需要 iseven 1=color yellow，isodd 1=color brown。
Sub Color()
Dim CvbRed, cYellow, cGreen, cBlue As Integer
For Each cell In Range("B5:B" & Range("A" & Rows.Count).End(xlUp).Row)
Select Case Color
Case IsEven
Range("A5:A").Cells.Interior.Color = vbRed
cRed = cRed 1
Case IsOdd
Range("A5:A").Cells.Interior.Color = vbYellow
cYellow = cYellow 1
Case IsEven 2
Range("A5:A").Cells.Interior.Color = vbGreen
cGreen = cGreen 1
Case IsOdd 2
Range("A5:A").Cells.Interior.Color = vbBlue
cBlue = cBlue 1
End Select
Next cell
End Sub
請檢查這篇文章中的上圖，A列只需要顏色，這取決于B列何時有偶數、奇數、偶數 1、奇數 1。
uj5u.com熱心網友回復：
使用模組
Option Explicit
Sub ColorMacro()
Dim wb As Workbook, cell As Range, lastrow As Long
Dim n As Integer, i As Integer
Dim arColor ' odd-green, even-blue, odd 1-brown, even 1-yellow
arColor = Array(RGB(128, 255, 128), _
RGB(128, 128, 255), _
RGB(200, 150, 100), _
RGB(255, 255, 128))
Set wb = ThisWorkbook
For n = 2 To wb.Sheets.Count
With wb.Sheets(n)
lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
For Each cell In .Range("B2:B" & lastrow)
i = (cell.Value - 1) Mod 4
cell.Offset(,-1).Interior.Color = arColor(i)
Next
End With
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/351352.html
上一篇：ExcelVBA-網頁抓取MSXML2.XMLHTTP庫
下一篇：一次對多個型別施加相同的型別約束