Excel otomatik sütun kopyası ve bugünün tarihi ile yeni sayfa

"Günlük" olacak bir VBA rutini yazmak istiyorum

• yeni bir sayfa oluştur
• bu yeni sayfaya , bugünün tarihine göre (örneğin, ) DD.MM.YY biçiminde bir ad verin (örneğin baştaki sıfırlarla 25.07.18)
• sayfamın A ve B sütunlarındaki değerleri DataInputyeni sayfaya kopyalayın .

"Günlük" ile ne demek istiyorum? Geçerli saat = veya> günün belirli bir saati ise, sayfayı oluşturun, yoksa yoksayın.

Yönetimi zor değil. Bazı formülleri bir araya getirmek için bir araya getirmeye çalıştım ama onlar bana her zaman hata yaptılar.

Bir şey düşünüyordum

Option Explicit
Sub ReportSheet_Today()
    Dim szTodayDate As String

    szTodayDate = Format(Date, "dd.mm.yy")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    If Time < TimeValue("9:00:00") Then
        'MakeSheet:
        Sheets.Add , Worksheets(Worksheets.Count)
        ActiveSheet.Name = szTodayDate
        Sheets("DataInput").Select
        Range("A:A").Copy
        Sheets("szTodayDate").Select
        Range("A:A").Select
        ActiveSheet.Paste
    End IF
End Sub

Hata burada:

Sheets("szTodayDate").Select

szTodayDatesayfanın adı değil; o sayfanın adını temsil eden bir dize içeren bir yerel değişken var ... ama bir olarak kullanıyorlar dize , VBA oluyor bir yaprak nesnesine KQUEUE çalışıyor böylece anlamıyla "szTodayDate" adlı ... ve o zamandan beri o olamaz bul, bom, çalışma zamanı hatası 9.

Çift tırnak işaretini kaldırın:

Sheets(szTodayDate).Select

Şimdi , dizge değişkeninin değerinden sonra adlandırılmış bir sayfa nesnesini kaldırıyor olacaksınız;szTodayDate

Sonraki adımlar...

Sayfa oluşturma mantığını kendi ayrı yordamına çekin; Bir şeyi yapan ve iyi yapan küçük, özel prosedürler yazmak, hayatınızı çok daha kolaylaştıracak.

İşlevlerin return değerlerini kaldırabilir: Worksheets.Addoluşturulan çalışma sayfası nesnesine bir başvuru döndürür - bu başvuruyu yerel bir nesne değişkenine alarak, Selectona olan ihtiyacı ortadan kaldırır ve sonra çalışabilirsiniz ActiveSheet.

Ayrıca , select-copy-select-paste işleminin tamamını bir astar olarak yaparak hedef parametre de sağlayabilirsiniz .Range.Copy

Public Function CreateReportSheet(ByVal reportDate As Date) As Worksheet

    Dim reportSheet As Worksheet
    Set reportSheet = AddNamedWorksheet(ThisWorkbook, Format$(reportDate, "dd.mm.yy"))

    'only needed if the sheet doesn't exist at compile-time.
    'if it *does* exist at compile-time, just set the sheet's (Name) property to "inputSheet".
    'that identifier will then be globally available anywhere in the project.
    'Dim inputSheet As Worksheet
    'Set inputSheet = ThisWorkbook.Worksheets("DataInput")

    inputSheet.Range("A:A").Copy reportSheet.Range("A:A")
    Set CreateReportSheet = reportSheet

End Function

Public Function AddNamedWorksheet(ByVal wb As Workbook, ByVal sheetName As String) As Worksheet
    Dim sheet As Worksheet
    Set sheet = wb.Worksheets.Add
    On Error Resume Next ' naming the sheet will throw if name already exists
        sheet.Name = sheetName
    On Error GoTo 0 ' restore error handling
    Set AddNamedWorksheet = sheet
End Function