A1, A2 및 A3 셀에 세 개의 날짜가 있습니다. 각 날짜의 월을 가져 와서 여러 날짜를 포함하는 데이터 세트를 필터링하고 싶습니다. 필터에는 A1, A2 및 A3의 세 날짜 각각의 월에있는 날짜 만 포함되어야합니다.
예를 들면 :
A1 : 2015 년 1 월 1 일,
A2 : 2015 년 1
월 2 일, A3 : 2015 년 1 월 3 일
Dataset:
20/01/2015
25/12/2015
01/09/2015
14/02/2015
15/03/2015
01/06/2015
따라서 필터는 다음과 같아야합니다.
20/01/2015
14/02/2015
15/03/2015
내 현재 구문은 다음과 같습니다.
Dim mon1 As String
Dim mon2 As String
Dim mon3 As String
Dim a As Date
Dim b As Date
Dim c As Date
a = Range("A1")
b = Range("A2")
c = Range("A3")
mon1 = MonthName(Month(a))
mon2 = MonthName(Month(b))
mon3 = MonthName(Month(c))
With ActiveSheet
.AutoFilterMode = False
.Range("A5:D5000").AutoFilter Field:=3, Criteria1:=Array(mon1, mon2, mon3), Operator:=xlFilterValues
End With
불행히도 작동하지 않는 것 같습니다.
암호
Sub Sample()
Dim mon1 As String, mon2 As String, mon3 As String
mon1 = MonthName(Month(Range("A1")))
mon2 = MonthName(Month(Range("A2")))
mon3 = MonthName(Month(Range("A3")))
With ActiveSheet
.AutoFilterMode = False
.Range("A5:D5000").AutoFilter Field:=4, _
Criteria1:=Array(mon1, mon2, mon3), _
Operator:=xlFilterValues
End With
End Sub
산출
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다