실무에 바로 쓰는, 엑셀 비즈니스 차트 시각화 | 2주 완성 특별 스터디 #2주차

안녕하세요. 오빠두엑셀 전진권강사입니다.
챌린지 미션은 챌린지 페이지에서 진행한 것만 완료한 것으로 인정됩니다.
챌린지 진행 방법은 아래 자주묻는질문 페이지를 확인해보세요.
https://www.oppadu.com/faq/study/challenge/how-to-take/
감사합니다.

안녕하세요. 오빠두엑셀입니다.
아래 링크를 확인해보시길 바랍니다.
https://www.oppadu.com/%ec%97%91%ec%85%80-%ec%83%89%ec%a1%b0%ed%95%a9-%ec%84%9c%ec%8b%9d/
감사합니다.

안녕하세요. 가능합니다.
아래 코드를 참고하여 실행해보시길 바랍니다.

Option Explicit



Const SLICER_NAME As String = "Slicer_Product"

Const INTERVAL As String = "00:03:00" ' 3분 간격

Dim nextTime As Date

Dim currentIndex As Long



Sub StartSlicerCycle()

    ' 시작 시 currentIndex를 1로 초기화하고 첫번째 아이템 선택

    currentIndex = 1

    Call CycleSlicerItem

End Sub



Sub CycleSlicerItem()

    Dim sc As SlicerCache

    Dim itemCount As Long

    Dim si As SlicerItem

    

    On Error GoTo ErrHandle

    Set sc = ActiveWorkbook.SlicerCaches(SLICER_NAME)

    itemCount = sc.SlicerItems.Count

    

    If itemCount = 0 Then

        MsgBox "슬라이서에 아이템이 없습니다."

        Exit Sub

    End If

    

    ' 모든 아이템 해제

    For Each si In sc.SlicerItems

        si.Selected = False

    Next si

    

    ' 현재 인덱스에 해당하는 아이템 선택

    sc.SlicerItems(currentIndex).Selected = True

    

    ' 다음 아이템 인덱스 계산

    currentIndex = currentIndex + 1

    If currentIndex > itemCount Then

        currentIndex = 1 ' 마지막 아이템 뒤에는 다시 첫 번째 아이템으로

    End If

    

    ' 3분 후 다시 실행

    nextTime = Now + TimeValue(INTERVAL)

    Application.OnTime nextTime, "CycleSlicerItem"

    Exit Sub

    

ErrHandle:

    MsgBox "슬라이서 이름을 확인하거나 슬라이서가 활성 워크북에 있는지 확인하세요."

End Sub



Sub StopSlicerCycle()

    ' 예정된 OnTime 실행 취소

    On Error Resume Next

    Application.OnTime nextTime, "CycleSlicerItem", , False

End Sub