【学点VBA之EXCEL 】二

最新推荐文章于 2025-07-28 13:18:32 发布

weixin_30432007

最新推荐文章于 2025-07-28 13:18:32 发布

阅读量73

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/dabiao/archive/2010/09/02/1815941.html

本文介绍如何使用VBA创建并初始化窗体的位置，并展示了如何统计Excel单元格内的字体颜色及背景颜色数量。通过具体示例代码，读者可以了解如何实现这些功能。

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

（1）在VBA中创建一个窗体，初始化其位置，并调用之...

Sub CallForm()
UserForm1.Show '显示窗体
UserForm1.Left = 600 '显示位置
UserForm1.Top = 180
End Sub

Private Sub CommandButton1_Click()
CallForm '调用
End Sub

（2）Excel的单元格的字体颜色、单元格的背景颜色

代码

Private Sub CommandButton1_Click()
Dim i, j, k As Integer
j = 0
k = 0
l = 0
m = 0

For i = 1 To 10

If Cells(i, 1).Font.Color = 0 Then '判断字体颜色为黑色
j = j + 1
End If

If Cells(i, 1).Font.Color = 255 Then '判断字体颜色为红色
k = k + 1
End If

If Cells(i, 2).Interior.Color = &HFFFFFF Then '判断背景颜色为白色
l = l + 1
End If

If Cells(i, 2).Interior.Color = &HFF Then '判断背景颜色为红色
m = m + 1
End If

Next i

Dim FC, BC As String

FC = "Red = " & k & ",Black = " & j
MsgBox (FC)

BC = "White = " & l & ",Red = " & m
MsgBox (BC)
End Sub