返回列表 上一主題 發帖

[發問] 顏色判別

回復 1# coafort

請測試看看,謝謝
Sub test()
Arr = Range("a1:e7") '資料範圍
Cells.Interior.ColorIndex = 0 '無顏色
For j = 1 To UBound(Arr, 2): For i = 2 To UBound(Arr)
    If UCase(Arr(i, j)) = "A" Then Cells(i, j).Interior.ColorIndex = 3
    If UCase(Arr(i, j)) = "B" Then Cells(i, j).Interior.ColorIndex = 6
    If UCase(Arr(i, j)) = "C" Then Cells(i, j).Interior.ColorIndex = 5
Next i: Next j
End Sub

TOP

回復 6# coafort

請問方便提供檔案,也將顯示需求和結果的樣式,以便測試,謝謝

TOP

回復 8# coafort


可以直接附件檔案上傳即可,謝謝

TOP

回復 10# coafort


剛剛發現您的資料有85種不一樣的
加了底色後也是找不容易找到同一個顏色
所以不建議加底色
謝謝

TOP

回復 19# coafort

請測看看,謝謝

test_1101.zip (20.69 KB)

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題