반응형

안녕하세요.

 

제목 그대로입니다. ^^

 

완성 파일 다운로드

시트탭색바꾸기.xlsm
0.01MB

 

 

이번 달 날짜 수만큼 시트를 만들고 시트 이름을 날짜로 바꾼 뒤 일요일에 해당하는 시트는 탭 색을 빨강으로 바꾸는 VBA입니다.

Sub 시트탭색바꾸기()
    현재년 = Year(Date)
    현재월 = Month(Date)
    마지막날 = Day(DateAdd("d", -1, DateSerial(현재년, 현재월 + 1, 1)))
    
    추가 = 마지막날 - Worksheets.Count
    
    For i = 1 To 추가
        Worksheets.Add after:=Worksheets(Worksheets.Count)
    Next i
    
    For i = 1 To 마지막날
        Worksheets(i).Name = i
        
        If Weekday(DateSerial(현재년, 현재월, i)) = 1 Then
            Worksheets(i).Tab.ColorIndex = 3
        Else
            Worksheets(i).Tab.ColorIndex = xlColorIndexNone
        End If
    Next i
End Sub

 

필요하신 분께 도움이 되길 바랍니다.

반응형

+ Recent posts