☰

如何让表格根据月份填写到不同的工作表中？

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2003
如何让表格根据月份填写到不同的工作表中？

我有一份每隔一天填写一次的锻炼和饮食日志，我想将数据移至另一张工作表。工作表 1 看起来像工作表，我想将其移动（我认为最好的方法是使用按钮）至工作表 2。

但我希望在新月的第一天开始填写新表格。所以我知道如何使用

Sub Macro1()

    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmmm")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub

MakeSheet:

    Dim Importsheet As Worksheet 'Imports worksheet from a closed workbook
    If Day(Date) = 1 Then Sheets.Add Type:= _
    "C:\Users\Valerie\Documents\Template.xls"

    If Day(Date) = 1 Then ActiveSheet.Name = szTodayDate

End Sub

因此，当宏在每月的第一天运行时，它会创建一个新工作表，但我不确定如何将正确的日期发送到正确工作表上的正确行，然后当在每月的第一天创建新工作表时，我不确定如何让表单开始进入新工作表。

第 1 页

每日锻炼和饮食日志          
瓦莱丽·温迪
锻炼A

总跑步英里数 平板支撑时间（分钟）
6 5

仰卧起坐 深蹲
30 30

俯卧撑         
20

第 2 页

日期 锻炼里程 平板支撑 仰卧起坐 深蹲 俯卧撑

相关内容