날짜로 정의 된 시트 선택

Question

날짜가 여러 시트 인 MM2D 형식의 통합 문서가 있습니다. 이 매크로는 모든 날짜 시트 (01OCT, 02OCT, .... 30OCT와 같은)를 선택하여 범위를 선택하고 새 시트로 복사해야합니다.

세포를 선택하고 복사하면 실제로 문제가되지 않으며 완벽하게 작동합니다. 그러나 시트 이름을 정의하는 데 문제가 있습니다. 나는 처음에 InputBox를 사용하여 달과 달의 일 수를 정의하는 사용자를 원합니다.

그래서 사용자가 month = "FEB"및 DaysMonth = 28을 선택하면 01FEB, 02FEB, 03FEB, ... 28FEB라는 트로프 시트가 반복됩니다.

Sub Merge_whole_month() 

    Application.ScreenUpdating = False 

     Dim month As String 

      month = InputBox(Prompt:="Please enter month in format MMM", _ 
        Title:="Month") 

     Dim DaysMonth As Long 

      DaysMonth = InputBox(Prompt:="Please enter number of days in month", _ 
        Title:="Days") 

    'create new sheet for results 
     Sheets.Add.Name = "Merge" 

    'loop 
    For i = 1 To DaysMonth 
     i = Format(i, "##") 

     Sheets(i & month).Activate 'here is the problem 

    'select cell G3, then all "non-empty" cells to the right and down and COPY 

     Range(Range("G3", Range("G3").End(xlToRight)), Range("G3", Range("G3").End(xlToRight)).End(xlDown)).Select 
     Selection.Copy 

     Sheets("Merge").Activate 'activate sheet where cells needs to be copied 

    'find last cell in 2nd row in sheet 
     lastCol = Cells(2, Columns.Count).End(xlToLeft).Column 
     lastCol = lastCol + 1 

      Cells(1, lastCol) = i & month 'log date and month in cell above 

       Cells(2, lastCol).Select 
       ActiveSheet.Paste    'Paste 

    Next i 

    Application.ScreenUpdating = True 

    End Sub 

사전 도움을 주셔서 감사합니다.

Answer 1

문제는 10 내가 이런 짓을 했을까이 문제를 해결하려면 등 01로 표시보다 i 덜하지 않는 사실상 그 i = Format(i, "##")에있다 : Sheets(i & month).Activate 전에 대한 루프 내에서

Dim sDate As String 
sDate = CStr(i) 
If Len(sDate) < 2 Then 
    sDate = "0" & sDate 
End If 

장소 코드 및 i = Format(i, "##")을 삭제하십시오.

편집 :

또한 나를 Format(i, "0#")를 사용하여 당신이 찾고 있던 문자열을주는 것 같다. 그러나 이것을 여전히 String 변수에 할당하거나 Sheets(i & month).Activate을 Sheets(Format(i, "0#") & month).Activate으로 변경해야합니다.

Here은 Format() 기능에 대한 설명서입니다. 나는 그것을 읽는 것이 좋습니다.