나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     예제파일(8)_Ans.xlsm (31.5KB) 조회:  2080
제목:   [RE]자동 매칭 서식 만들기
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>

첨부된 파일처럼 서식을 만들고 싶습니다.
힘드시겠지만 고수님들의 도움바랍니다...
==============[카스님 글에 대한 답변입니다]==============

첨부파일을 참고하세요.


Sub CreateSheet()
    Dim sht As Worksheet, shtForm As Worksheet, shtX As Worksheet
    Dim rTable As Range, rRow As Range
    Dim rFind As Range
    Dim datEnd As Date
    
    Set sht = Worksheets("신청")
    Set rTable = sht.[A5].CurrentRegion
    Set rTable = rTable.Offset(2).Resize(rTable.Rows.Count - 2)
    
    For Each rRow In rTable.Rows
        Set shtX = getSheet(rRow.Cells(1, 1))
        datEnd = DateSerial(Mid(rRow.Cells(1, 4), 1, 4), Mid(rRow.Cells(1, 4), 5, 2), Mid(rRow.Cells(1, 4), 7, 2))
        If datEnd <= Date Then  ' 종료된 자료만 Update 함
            Set rFind = shtX.UsedRange.Find(rRow.Cells(1, 2).Value, LookAt:=xlWhole)
            If Not rFind Is Nothing Then
                If rFind.Cells(1, 2) <= rRow.Cells(1, 3) Or rFind.Cells(1, 3) <= rRow.Cells(1, 4) Then
                    rFind.Cells(1, 2).Resize(1, 3) = rRow.Cells(1, 3).Resize(1, 3).Value
                Else
                    rFind.Cells(1, 4) = "신청일자를 확인하세요."
                End If
            Else
                rRow.Cells(1, rRow.Columns.Count + 3) = "Err : 자료확인요망"
            End If
        Else
            rRow.Cells(1, rRow.Columns.Count + 3) = "Pass : 종료됨"
        End If
    Next
End Sub

Function getSheet(sName As String)
    Dim shtX As Worksheet
    
    Set shtX = ActiveSheet
    On Error Resume Next
    Set getSheet = Worksheets(sName)
    If Err.Number <> 0 Then
        Form.Visible = xlSheetVisible
        Form.Copy Before:=Form
        Set getSheet = ActiveSheet
        getSheet.Name = sName
        getSheet.[A1] = sName
        Form.Visible = xlSheetVeryHidden
    End If
    On Error GoTo 0
    shtX.Activate
End Function

 
[불량 게시물 신고]  
        
  

작성일 : 2019-09-02(18:45)
최종수정일 : 2019-09-02(18:45)
 


 ◎ 관련글

  제 목   작성자   날짜
자동 매칭 서식 만들기 카스 2019-09-02
[RE]자동 매칭 서식 만들기 dew 2019-09-02
[RE]자동 매칭 서식 만들기 카스 2019-09-03
[RE]자동 매칭 서식 만들기 dew 2019-09-03
[RE]자동 매칭 서식 만들기 카스 2019-09-03
[RE]자동 매칭 서식 만들기 카스 2019-09-04
[RE]자동 매칭 서식 만들기 dew 2019-09-04