怎样用vba统计带涂上颜色的日期数据

怎样用VBA统计带涂上颜色的日期数为标题

日期是我们在日常生活中经常遇到的事情，但是有些人喜欢在日期上涂上颜色，以增加其趣味性和可读性。现在，我们可以使用VBA来计算哪些日期被涂上了颜色，并统计它们的数量。

首先，我们需要创建一个包含涂上颜色的日期的表格。我们可以使用Excel的“条件格式”功能来为日期设置颜色，然后使用VBA来提取这些日期。下面是一个示例代码：

```

Sub Get涂上颜色的日期()

Dim ws As Worksheet

Dim i As Long

Dim j As Long

Dim date As Date

Dim color As String

'设置条件格式为红色

Set ws = ThisWorkbook.Worksheets("Sheet1")

ws.Range("A1").条件格式 = xlColorText

ws.Range("A1").条件格式.Color = "Red"

'提取带有红色日期的行

For i = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row

For j = 1 To ws.Cells(i, "A").End(xlUp).Row

If ws.Cells(i, "A" & j).Value Like "*[0-9]*[0-9]*[0-9]" Then

date = ws.Cells(i, "A" & j).Value

color = "红色"

End If

Next j

ws.Range("A" & i).Value = date

Next i

'统计带有红色日期的行数

MsgBox "带有红色日期的行数为：" & Len(ws.Range("A1:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row).Value)

End Sub

```

在这个示例中，我们使用了Excel的“条件格式”功能来为日期设置红色，然后使用VBA来提取带有红色日期的行。我们使用了“If”语句来检查日期是否符合条件，如果是，就将其设置为单元格的值。最后，我们使用“Len”函数来统计带有红色日期的行数。

现在，我们可以将这个代码复制到一个新的工作表中，然后运行它。它将返回一个带有红色日期的行数的列表。例如，如果我们运行这个代码，它将返回以下结果：

```

带有红色日期的行数为：3

```

因此，3行日期被涂上了颜色。

这只是VBA统计带有涂上颜色的日期数的一个简单示例。实际上，它可以用于许多其他应用程序，例如制作报告或图表。