VBA常用操作

常用操作

删除掉演示数据

    ' 自动删除第四行
    Rows(4).Select
    Selection.EntireRow.Delete

已撤销、拒绝

For L = Sheets(1).Range("a65536").End(xlUp).Row To 1 Step -1
  If Range("C" & L) = "已撤销" Then
   Range("C" & L).Select
   Selection.EntireRow.Delete
   End If

    If Range("D" & L) = "拒绝" Then
   Range("D" & L).Select
   Selection.EntireRow.Delete
  End If
Next

标黄工号异常的

 q = Sheets(1).Range("a65536").End(xlUp).Row
 For i = 4 To q
    k = Len(Range("a" & i).Value)
    If k > 10 Then
    Rows(i).Select
        With Selection.Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
Next

Sub 请假_第二步()
Excel.Application.DisplayAlerts = False
    q = Sheets(1).Range("a65536").End(xlUp).Row
    For i = 4 To q
    k = Len(Range("D" & i).Value)
    If k = 10 Then
            Range("d" & i).Select
            Selection.EntireRow.Delete
    End If
Next
Excel.Application.DisplayAlerts = True

MsgBox "已经为您把标黄的行全部删除了，请继续执行第三步"
End Sub

去掉已离职

    Columns("C:C").Select
    Selection.Replace What:="(已离职)", Replacement:="", LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

窗口提示

MsgBox ""

静默

Application.ScreenUpdating = False
Excel.Application.DisplayAlerts = False


Application.ScreenUpdating = True
Excel.Application.DisplayAlerts = True