samwang

¦^´_ 1# coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Arr = Range("a1:e7") '¸ê®Æ½d³ò
Cells.Interior.ColorIndex = 0 'µLÃC¦â
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

samwang

¦^´_ 6# coafort

½Ð°Ý¤è«K´£¨ÑÀɮסA¤]±NÅã¥Ü»Ý¨D©Mµ²ªGªº¼Ë¦¡¡A¥H«K´ú¸Õ¡AÁÂÁÂ

samwang

¦^´_ 8# coafort


¥i¥Hª½±µªþ¥óÀɮפW¶Ç§Y¥i¡AÁÂÁÂ

samwang

¦^´_ 10# coafort


­è­èµo²{±zªº¸ê®Æ¦³85ºØ¤£¤@¼Ëªº
¥[¤F©³¦â«á¤]¬O§ä¤£®e©ö§ä¨ì¦P¤@­ÓÃC¦â
©Ò¥H¤£«Øij¥[©³¦â
ÁÂÁÂ

samwang

¦^´_ 19# coafort

½Ð´ú¬Ý¬Ý¡AÁÂÁÂ