Private Sub Workbook_Open() Dim New_Sheet_Name As String New_Sheet_Name = Format(Now(), "dd-mm-yy") Worksheets.Add().Name = New_Sheet_Name End Sub Workbook ...
確定! 回上一頁