Vba 打印特定颜色的单元格数量
对于入门级问题,我很抱歉,但我正在尝试根据每行中的第一个单元格是否为绿色或红色(绿色表示完整,红色表示不完整)打印excel工作表中的行完成情况。它应该忽略所有其他颜色(灰色、白色等)。当我使用上面发布的代码片段时,不会生成任何输出。当我高亮显示黄色行中的第一个单元格(颜色索引=6)时,它应该生成一个输出 这把它修好了。我错误地将计数器变量放入for循环中 这把它修好了。我错误地将计数器变量放入for循环中Vba 打印特定颜色的单元格数量,vba,excel,Vba,Excel,对于入门级问题,我很抱歉,但我正在尝试根据每行中的第一个单元格是否为绿色或红色(绿色表示完整,红色表示不完整)打印excel工作表中的行完成情况。它应该忽略所有其他颜色(灰色、白色等)。当我使用上面发布的代码片段时,不会生成任何输出。当我高亮显示黄色行中的第一个单元格(颜色索引=6)时,它应该生成一个输出 这把它修好了。我错误地将计数器变量放入for循环中 这把它修好了。我错误地将计数器变量放入for循环中 Sub PercentCompletePipes() Dim k As Range Di
Sub PercentCompletePipes()
Dim k As Range
Dim Counter As Integer
Dim Green As Integer
Dim Red As Integer
Red = 0
Green = 0
xTitleId = "Percentage Completed Inverts"
MsgBox "This macro defines the percentage of pipes with completed inverts. It ignores all PRIVATE pipes."
MsgBox "WARNING: This macro only works with COMPLETED invert excel sheets."
For Each k In ActiveSheet.UsedRange.Rows
Counter = 0
If Counter >= 4 Then
If ActiveSheet.Cells(k.Row, 1).Interior.ColorIndex = 4 Then
Green = Green + 1
ElseIf ActiveSheet.Cells(k.Row, 1).Interior.ColorIndex = 3 Then
Red = Red + 1
ElseIf ActiveSheet.Cells(k.Row, 1).Interior.ColorIndex = 6 Then
ActiveSheet.Cells(k.Row, 1).Value = "COMPLETED PIPES:"
ActiveSheet.Cells(k.Row, 2).Value = Green
ActiveSheet.Cells(k.Row + 1, 1).Value = "INCOMPLETE PIPES:"
ActiveSheet.Cells(k.Row + 1, 2).Value = Red
ActiveSheet.Cells(k.Row + 2, 1).Value = "PERCENTAGE COMPLETE:"
ActiveSheet.Cells(k.Row + 2, 2).Value = Green / (Red + Green)
End If
End If
Counter = Counter + 1
Next k
End Sub
Sub PercentCompletePipes()
Dim k As Range
Dim Counter As Integer
Dim Green As Integer
Dim Red As Integer
Red = 0
Green = 0
Counter = 0
xTitleId = "Percentage Completed Inverts"
MsgBox "This macro defines the percentage of pipes with completed inverts. It ignores all PRIVATE pipes."
MsgBox "WARNING: This macro only works with COMPLETED invert excel sheets."
For Each k In ActiveSheet.UsedRange.Rows
If Counter >= 4 Then
If ActiveSheet.Cells(k.Row, 1).Interior.ColorIndex = 4 Then
Green = Green + 1
ElseIf ActiveSheet.Cells(k.Row, 1).Interior.ColorIndex = 3 Then
Red = Red + 1
ElseIf ActiveSheet.Cells(k.Row, 1).Interior.ColorIndex = 6 Then
ActiveSheet.Cells(k.Row, 1).Value = "COMPLETED PIPES:"
ActiveSheet.Cells(k.Row, 2).Value = Green
ActiveSheet.Cells(k.Row + 1, 1).Value = "INCOMPLETE PIPES:"
ActiveSheet.Cells(k.Row + 1, 2).Value = Red
ActiveSheet.Cells(k.Row + 2, 1).Value = "PERCENTAGE COMPLETE:"
ActiveSheet.Cells(k.Row + 2, 2).Value = Green / (Red + Green)
End If
End If
Counter = Counter + 1
Next k
End Sub