안녕하세요?
얼마전 올라온 질문에 만년달력과 관련된 내용이 있어 예전자료를 찾아 봤더니...
비슷한 내용의 자료가 있어 올려둡니다.
만년달력을 만들고 해당날짜의 일정이나 휴일등을 미리 지정해 두면 년이나 월을 변경시키면
자동으로 우측에 해당월의 일정이 나타나도록 VBA로 코딩된 자료입니다.
아래는 위 설명의 그림입니다.
그리고 몇번 이것저것 사용해 보시면 사용법은 굳이 말씀드리지 않아도 될듯 합니다.
아래는 해당자료의 코드입니다.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c2,e2")) Is Nothing Then
Call Module1.Test
End If
End Sub
-------------------------------------------------
Option Explicit
Sub Test()
Dim Rng As Range, rng_CR As Range, rng_To As Range
Application.ScreenUpdating = False
Set Rng = Worksheets("휴일_일정_메모").Range("b5").CurrentRegion
Set rng_CR = Worksheets("달력").Range("u1:v2")
Set rng_To = Worksheets("달력").Range("r5:u5")
Rng.AdvancedFilter xlFilterCopy, rng_CR, rng_To, 0
Worksheets("달력").Range("R6:R23").NumberFormat = "d"
Application.ScreenUpdating = True
End Sub
그럼 또...!
=====================================================================================
첨부파일
110806_일정표_만들기_VBA.xlsm=====================================================================================