Question

我收到了大量关于员工合同的数据，创建了一个宏来自动将字体颜色更改为过时员工行的“RED”颜色，以及MsgBox弹出窗口以提醒用户过期数据量。

以下是编码。

Sub Worksheet_Activate()

  Dim startCell As Integer, endCell As Integer
  Dim column As Integer
  Dim CountCells As Integer
  Dim x As Integer

  With Worksheets("Sheet1")

  lastrow = Range("L1048576").End(xlUp).Row

  CountCells = 0

  For i = 4 To lastrow

      If Range("L" & i).Value <> "" And Now <> "" Then

          If Range("L" & i).Value <= Now Then

              Range("L" & i).Font.ColorIndex = 3

                  If Range("L" & i).Font.ColorIndex = 3 Then

                     CountCells = CountCells + 1

                  End If
          End If
      End If
  Next i

     MsgBox CountCells & " expiring"

  End With
End Sub

现在我需要Excel通过单击按钮自动选择每个，面临的问题是：

应该使用哪个按钮？表单控件按钮或ActiveX控件按钮？
需要3个按钮，（1）自动选择（2）复制并粘贴（3）删除每个选定的行。
如何为每个按钮编写代码？
用户点击（1）按钮后，将自动选择每个RED数据。
然后按（2）按钮，它会将它们复制到新的工作表。
最后当用户按下（3）按钮时，每个选定的行都将被删除，因为只删除了每一行，只有剩余数据才会替换空白区域。

Answer 1

无需循环细胞。设置条件格式规则，以便在L列中的日期小于Now时将字体颜色变为红色。有了这个，demo可以过滤红色字体单元格。

{{1}}

我会使用ActiveX类型按钮。您可以右键单击它们以查看代码。

MS Excel根据字体颜色选择行

1 个答案: