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