代码贴上来学习下,封装单元格属性,引用单元格属性自定义函数。
没çæç½ä½ æ³è¦ä»ä¹ï¼æ¯ç¨èªå®ä¹å½æ°å¼ç¨åå
æ ¼çå±æ§åï¼
ä¸é¢çèªå®ä¹å½æ°ï¼å¯ä»¥åå¾å¼ç¨åå æ ¼ç å¡«å é¢è²ï¼
Function iColor(c As Range) As Variant
iColor = c.Interior.Color
End Function
--------------------
æ¯å¦ï¼A1å¡«å çº¢è² ï¼B1使ç¨å ¬å¼ =icolor(A1) ï¼å¯ä»¥åå¾A1çå¡«å é¢è²ç RGBå¼ä¸º 255
ä¸é¢çèªå®ä¹å½æ°ï¼å¯ä»¥åå¾å¼ç¨åå æ ¼ç å¡«å é¢è²ï¼
Function iColor(c As Range) As Variant
iColor = c.Interior.Color
End Function
--------------------
æ¯å¦ï¼A1å¡«å çº¢è² ï¼B1使ç¨å ¬å¼ =icolor(A1) ï¼å¯ä»¥åå¾A1çå¡«å é¢è²ç RGBå¼ä¸º 255
温馨提示:答案为网友推荐,仅供参考
第1个回答 2012-12-30
用单元格保护就可以隐藏公式、属性等内容,不需要vba的。