Ⅰ 表格有90行，5列數據，如何讓每行的數據按數值大小，顯示不同顏色（數據最大顏色最深，數據最小顏色最淺）
在Excel中處理大量數據時，有時需要根據數值大小調整單元格背景顏色，以直觀展示數據分布情況。比如，對於90行5列的數據，我們希望每行的數據根據數值大小顯示不同顏色，數值越大顏色越深，數值越小顏色越淺。對於一列數據，我們可以通過條件格式中的「數據條」、「顏色階」功能，最多設置三種顏色。如果需要更多顏色，就需要藉助VBA編程來實現。
具體步驟如下：首先，選擇整個A列，然後在「開始」選項卡中找到「條件格式」，點擊「新建規則」，選擇「使用公式確定要設置格式的單元格」。輸入公式，例如：=A1=MAX($A$1:$A$90)。接著，設置格式，選擇填充顏色，點擊「確定」。然後，選擇A列，再次點擊「條件格式」，選擇「新建規則」，輸入公式：=A1=MIN($A$1:$A$90)，設置另一種顏色。這樣，A列的數據就會根據數值大小顯示不同顏色。
但當需要處理多列數據時，上述方法就顯得力不從心，需要使用VBA編程來實現。以下是一個簡單的VBA代碼示例：
Sub ColorByValue()
Dim i As Integer
For i = 1 To 90
Dim max As Double
Dim min As Double
max = WorksheetFunction.Max(Range("A1:E1"))
min = WorksheetFunction.Min(Range("A1:E1"))
Dim value As Double
value = Range("A" & i & ":E" & i).Value
If value = max Then
Range("A" & i & ":E" & i).Interior.Color = vbRed
ElseIf value = min Then
Range("A" & i & ":E" & i).Interior.Color = vbYellow
Else
Dim ratio As Double
ratio = (value - min) / (max - min)
Range("A" & i & ":E" & i).Interior.Color = RGB(255 - 255 * ratio, 0, 0 + 255 * ratio)
End If
Next i
End Sub
這段代碼會遍歷每一行的數據，根據數值大小設置顏色，數值最大時顏色最深（紅色），數值最小時顏色最淺（黃色），中間值則根據比例調整顏色深淺。你可以根據實際需求調整代碼中的顏色和數值范圍。
需要幫助實現VBA代碼的朋友可以留言，我會盡力提供幫助。