vba里設置讀取背景和字體顏色

　　今天入住博客園，真HAPPY！！！！

　　記錄今天的學習情況 ：）

　　sub readcolor()

　　cells.interior.pattern=xlnone                         '清除背景顏色 

　　range(“a1:k30").interior.color="&h00ffff"       '設置背景色為黃色

　　range(“a1:k30").font.color="&h00ffff"　　　 ‘設置字體顏色為黃色 

 

　　range("a1")=range(“a1:k30").interior.color     '讀取背景色

　　range("b1")=range(“a1:k30").font.color　　    ’讀取字體色

　　end sub