[發問] 如何用陣列方式設定字體顏色？

justintoolbox

各位前輩大家好，
利用陣列的方式在儲存格上面填上數值是可以做到的。
但如何利用陣列方式設定字體顏色？

用底下的代碼，在設定字體顏色時候會出現問題，
想請問應該如何修正語法才能利用陣列方式順利設定字體顏色？謝謝。

1. Sub Ex()
   
2. Dim Ar(1 To 2, 1 To 1) As Variant, Cr(1 To 2, 1 To 1) As Variant
   
3. Ar(1, 1) = "A": Ar(2, 1) = "B"
   
4. Cr(1, 1) = RGB(255, 0, 0): Cr(2, 1) = RGB(0, 160, 0)
   
5. With ActiveSheet
   
6.     .[a1].Resize(2, 1) = Ar
   
7.     .[a1].Resize(2, 1).Font.Color = Cr
   
8. End With
   
9. End Sub

複製代碼

GBKEE

回復 1# justintoolbox

試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(1 To 2, 1 To 1) As Variant, Cr(1 To 2, 1 To 1) As Variant
   
4.     Dim i As Integer, ii As Integer
   
5.     Ar(1, 1) = "A": Ar(2, 1) = "B"
   
6.     Cr(1, 1) = RGB(255, 0, 0): Cr(2, 1) = RGB(0, 160, 0)
   
7.     With ActiveSheet.[a1].Resize(UBound(Ar), UBound(Ar, 2))
   
8.         .Value = Ar
   
9.         For i = 1 To UBound(Ar)
   
10.             For ii = 1 To UBound(Ar, 2)
    
11.                 .Cells(i, ii).Font.Color = Cr(i, ii)
    
12.             Next
    
13.         Next
    
14.     End With
    
15. End Sub

複製代碼

justintoolbox

回復  justintoolbox

試試看
GBKEE 發表於 2015-7-13 05:27

GBKEE!
非常感謝您!~你的方法真棒!