Excel VBA :单元格背景设置方法介绍,编程进阶必经之路

No.1

Excel表格制作过程中,需要对表格进行一个美观修饰,这样就提高了工作表的格局,一个漂亮的工作表 , 不仅体现了公司的办公技术阶层,更是对外宣传的一个最直接门户 。
本节介绍,如何设置单元格以及图形控件类的背景颜色和背景图案 。
Excel VBA :单元格背景设置方法介绍,编程进阶必经之路

首先,看上图,我们会用到图中的一个对象:Interior
此对象可使用单元格的Range.Iterior返回 。
如:Range("A1").Interior
就表示返回A1单元格的内部对象,接下来对它进行属性设置,就会改变A1单元格的内部格式 。
Interior属性有如下几种:
Excel VBA :单元格背景设置方法介绍,编程进阶必经之路

利用上述属性可以设置单元格内部颜色,填充图案,和填充颜色以及颜色的明暗度等等 。
下面有一个示例来具体看一下 , 设置不同属性值带来的变化 。
Excel VBA :单元格背景设置方法介绍,编程进阶必经之路

No.2

代码
设置单元格Interior属性
Private Sub CommandButton1_Click()Dim cell As RangeSet cell = ActiveSheet.Rows(3)With cell.Interior.Color = QBColor(11) '背景颜色.TintAndShade = 0.5 '灰度值.Pattern = xlPatternChecker '填充图案.PatternColor = 15 '填充图案颜色End WithEnd Sub
Excel VBA :单元格背景设置方法介绍,编程进阶必经之路

【Excel VBA :单元格背景设置方法介绍,编程进阶必经之路】滚动条改变背景灰度
Private Sub ScrollBar1_Change()Dim xV As DoublexV = Me.ScrollBar1.Value / 10Me.TextBox1.Value = https://www.itzhengshu.com/excel/xVsetBackColor xV'调用函数End Sub
设置背景颜色和灰度函数
Private Sub setBackColor(xV As Double)Dim cell As RangeSet cell = ActiveSheet.CellsWith cell.Interior.Color = QBColor(12).TintAndShade = xVEnd WithEnd Sub
Interor对象对于VBA编程十分有用,其属性也不多,属于比较容易掌握的一类对象,所以,在工作当中,可以多学习此类属性应用 。
欢迎关注、收藏
---END---

相关经验推荐