excel vba 代码

最新推荐文章于 2023-10-09 21:28:17 发布

天之勇者

最新推荐文章于 2023-10-09 21:28:17 发布

阅读量160

点赞数

文章标签： excel 服务器

本文链接：https://blog.csdn.net/u011801417/article/details/132813902

版权

Sub 温州实时查看在线考勤的人是否达标()
'
'实时查看在线考勤的人是否达标
'

'
Sheets("实时考勤").Select
Cells.Select
Range("H11").Activate
Selection.AutoFilter

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=25, Criteria1:="=0", _
Operator:=xlOr, Criteria2:="=#VALUE!"

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=21, Criteria1:="=是", _
Operator:=xlOr, Criteria2:="=在职状态"

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=6, Criteria1:="<>-", _
Operator:=xlAnd
ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=2, Criteria1:="=*温州*", _
Operator:=xlAnd
Dim filterValue As Variant
filterValue = Range("AD2").Value
Dim filterValue2 As Variant
filterValue2 = Range("AE2").Value

If filterValue2 >= 22 Then
filterValue2 = 22
End If

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=26, Criteria1:=">=" & filterValue, _
Operator:=xlAnd, Criteria2:="<" & filterValue2

'Range("A1:L2000").Select

' Range("V1:W2000").Select
' Selection.Copy

Dim range1 As Range
Dim range2 As Range
Dim combinedRange As Range

Set range1 = Range("A1:L2000")
Set range2 = Range("V1:W2000")

Set combinedRange = Union(range1, range2)
combinedRange.Select
combinedRange.Copy

End Sub

Sub 湖州实时查看在线考勤的人是否达标()
'
'实时查看在线考勤的人是否达标
'

'
Sheets("实时考勤").Select
Cells.Select
Range("H11").Activate
Selection.AutoFilter

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=25, Criteria1:="=0", _
Operator:=xlOr, Criteria2:="=#VALUE!"

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=21, Criteria1:="=是", _
Operator:=xlOr, Criteria2:="=在职状态"

ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=6, Criteria1:="<>-", _
Operator:=xlAnd
ActiveSheet.Range("$A$1:$Z$1605").AutoFilter Field:=2, Criteria1:="=*湖州*", _
Operator:=xlAnd
Dim filterValue As Variant
filterValue = Range("AD2").Value
Dim filterValue2 As Variant
filterValue2 = Range("AE2").Value