VBA 第8课 Excel单元格的颜色,格式的设置

王小涛_同學

于 2015-10-04 22:46:31 发布

阅读量1.4w

点赞数 2

分类专栏： VBA 文章标签： vba excel excel2013

本文链接：https://blog.youkuaiyun.com/u013511642/article/details/48898827

版权

VBA 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了如何使用VBA在Excel中进行单元格颜色和格式的设置，详细讲解了相关代码实现，帮助读者提升VBA编程在Excel自动化处理中的应用能力。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 颜色()
Dim x As Integer
Range("a1:b60").Clear
For x = 1 To 56 Step 1
Range("a" & x) = x
Range("b" & x).Interior.ColorIndex = x   '填充颜色
Range("a" & x).Font.ColorIndex = x   '字体颜色
Next
End Sub

------------------------------------------------------------------------------------------------

'1.判断是否为空单元格
Sub d1()
'If Range("a1") = "" Then
'If Len([a1]) = 0 Then
If VBA.IsEmpty([a1]) Then
[b1] = "空值"
End If
End Sub

'2.判断是否为数字
Sub d2()
If VBA.IsNumeric([a1]) Then
[b1] = "数字"
Else
[b1] = "不是数字"
End If
End Sub

'3.判断是否为文本
Sub d3()
If VBA.TypeName([a1].Value) = "String" Then
[b1] = "文本"
Else
[b1] = "不是文本"
End If
'If Application.WorksheetFunction.IsText([a1]) Then
'[b1] = "文本"
'Else
'[b1] = "不是文本"
'End If
End Sub

'4.判断是否为汉字
Sub d4()
If [a1] > "z" Then
[b1] = "汉字"
End If
End Sub

VBA 第8课 Excel单元格的颜色,格式的设置

转载请注明作者与出处：http://blog.youkuaiyun.com/u013511642 王小涛_同學