|
|
|
|
|
|
제 YouTube를 소개합니다.
'=====================================================
Excel,VBA,Google SpreadSheet 등 다양한 자료가 있습니다.
=====================================================
https://youtu.be/TqxEfhIjddA
https://www.youtube.com/channel/UChR2YTnlpU9OVfLyH_09YeA
'Source Code
Option Explicit
'-------------------------
Sub filtering()
'-------------------------
Dim shtX As Worksheet: Set shtX = Worksheets("DB")
'자동필터 해제
If shtX.AutoFilterMode Then shtX.AutoFilterMode = False
Dim rngX As Range: Set rngX = shtX.Range("A1").CurrentRegion
'찾을 연도,월
Dim year As Long: year = Worksheets("입력").Range("B3").Value
Dim month As Long: month = Worksheets("입력").Range("C3").Value
'---------------------------
rngX.AutoFilter 1, year
rngX.AutoFilter 2, month
'---------------------------
'필터링 된 값이 없을 때
If shtX.Range("A1").Offset(1).Value = "" Then
shtX.AutoFilterMode = False: Exit Sub
End If
Set rngX = shtX.Range("A1").CurrentRegion
Application.ScreenUpdating = False
'기존 자료 지우기
Worksheets("입력").Range("B7").CurrentRegion.ClearContents
'자료 복사하기
rngX.Copy Worksheets("입력").Range("B7")
Set rngX = Worksheets("입력").Range("B7").CurrentRegion
'Sort
rngX.Sort rngX.Cells(1, 3), xlAscending, Header:=xlYes
shtX.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-04-02(19:58)
최종수정일 : 2019-04-02(19:58) |
|
|
|
|