시간표 만들기

Step 1: 답변 살펴보기

질문의 내용으로 보아 학교에서 과제로 내 준 문제인 듯하여 답변을 달지 않고 있었는데요(동일한 분의 질문일 수도 있겠습니다만, 실명을 사용하시지 않으셨기에…), 도우미 중 한 분인 21centmen님께서 이런 답변을 주셨네요.

Step 2: 21centmen님의 답변 코드

코드는 크게 어려운 부분은 없습니다. 그동안 Exceller의 강의를 충실히 학습하신 분이라면 누구나 쉽게 풀 수 있는... (어디서 많이 듣던 소리지요? ^^;)

Find, FindNext 메서드에 대해서는 VB0125를 살펴보시면 되겠습니다. 코드에 대한 해설은 생략합니다. 궁금한 것이 있으면 질문주세요.

Sub 분류()
    Dim rngStart As Range
    Dim rng As Range
    Dim rngSource As Range
    Dim rngFind As Range
    Dim addr As String
    Dim intOff As Integer
    Dim 시간개수 As Integer

    Set rngSource = Range("A1").CurrentRegion
    Set rngSource = rngSource.Offset(1, 1).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count - 1)

    Worksheets.Add
    Range("A1:A7") = Application.Transpose(Array("일", "월", "화", "수", "목", "금", "토"))

    For 시간개수 = 4 To 7
        With Cells(1, 시간개수 - 2)
            .NumberFormat = "h:mm"
            .Value = TimeSerial(시간개수, 0, 0)
        End With
    Next 시간개수

    Set rngStart = Range("B1")
    For Each rng In Range(rngStart, rngStart.End(xlToRight))
        Set rngFind = rngSource.Find(What:=CDate(rng.Value), LookIn:=xlValues, LookAt:=xlWhole)
        If Not rngFind Is Nothing Then
            addr = rngFind.Address

            Do
                intOff = rngFind.Column - 1
                rng.Offset(intOff, 0) = rng.Offset(intOff, 0) & Worksheets("Stage").Cells(rngFind.Row, 1)
                Set rngFind = rngSource.FindNext(rngFind)
            Loop While (Not rngFind Is Nothing) And rngFind.Address <> addr
        End If
    Next rng

End Sub

Stage 시트의 버튼에 연결된 코드는 21centmen님의 코드에서 괘선이나 열 너비를 지정하는 부분만 수정한 것입니다.

21centmen님 덕택에 이번 강의는 이렇게 해결(?)이 되는군요. ^^

오늘은 짧게 여기까지…

정리 — 시간표 만들기 코드 핵심

자주 묻는 질문 (FAQ)

마치며

Find와 FindNext를 활용하면 같은 값이 여러 곳에 있는 경우에도 빠짐없이 찾아 처리할 수 있습니다. 도우미님의 코드 덕분에 이번 강좌가 이렇게 해결되었습니다.