求一个vba(<em>excel</em>)命令，请按功能标注以下注释哈！-excel time

内个抄，我和你一样是考生，我是这样写的，我先稍微自我介绍了一下，然后说一些小学的事，然后说自己的袭爱好和日常习惯，有什么特殊经历你也可以写上去，就像出国之类的，然后说一些知对现在生活的感受，然后是说一些些一些些未来的事道情，最好少点。然后说我希望能成为你的朋友。
呵呵，希望能得奖哟！

Private Sub CommandButton1_Click()
Dim OldSheet As Worksheet
Dim NewSheet As Worksheet
Set OldSheet = ActiveSheet

Dim N As String
Do While True
N = InputBox("请输入一个日636f7079e799bee5baa6e79fa5e98193365期")
If IsDate(N) = False Then
MsgBox "日期格式不合法", vbCritical
Else
Exit Do
End If
Loop

Dim TimeLine As Date
TimeLine = DateAdd("m", -1, CDate(N))
'''''''''''''''''''''''''''''''''''(5)
ActiveSheet.Columns(1).ColumnWidth = 9
ActiveSheet.Columns(2).ColumnWidth = 8.13
ActiveSheet.Columns(3).ColumnWidth = 10.5
ActiveSheet.Columns(4).ColumnWidth = 6.5
ActiveSheet.Columns(5).ColumnWidth = 6.75
ActiveSheet.Columns(6).ColumnWidth = 8.85

''''''''''''''''''''''''''''''''''(4)
Dim OldNewName As String
OldNewName = Year(TimeLine) & "年" & Month(TimeLine) & "月" & "文本2"

Dim i As Long
For i = 1 To Worksheets.Count
If Worksheets(i).Name = OldNewName Then
MsgBox "命名失败，使用默认名称", vbCritical
Exit For
End If
Next i
If i > Worksheets.Count Then
OldSheet.Name = OldNewName
End If
OldSheet.Range("A1") = OldNewName
OldSheet.Range("A1").Font.Bold = True
OldSheet.Range("A1").HorizontalAlignment = xlCenter
''''''''''''''''''''''''''''''''''''(1)
Dim ColNames As String
Dim ColArr() As String
Dim DataLines As Long, DataCols As Long, SortRg As Range
ColNames = "A,B,C" '列名，用逗号分隔，最多3列
ColArr = Split(ColNames, ",")
DataLines = [A65535].End(xlUp).Row
DataCols = [IV3].End(xlToLeft).Column
Set SortRg = Range(Cells(3, 1), Cells(DataLines, DataCols))
SortRg.Select
Select Case UBound(ColArr)
Case 0
SortRg.Sort key1:=Range(ColArr(0) & "2")
Case 1
SortRg.Sort key1:=Range(ColArr(0) & "2"), key2:=Range(ColArr(1) & "2")
Case 2
SortRg.Sort key1:=Range(ColArr(0) & "2"), key2:=Range(ColArr(1) & "2"), key3:=Range(ColArr(2) & "2")
End Select

'''''''''''''''''''''''''''''''(2)
Set NewSheet = Worksheets.Add
NewSheet.Move After:=OldSheet
Dim NewName As String
NewName = Year(CDate(N)) & "年" & Month(CDate(N)) & "月"
NewName = NewName & "文本1" '根据自己需要修改

For i = 1 To Worksheets.Count
If Worksheets(i).Name = NewName Then
MsgBox "命名失败，使用默认名称", vbCritical
Exit For
End If
Next i
If i > Worksheets.Count Then
NewSheet.Name = NewName
End If

'''''''''''''''''''''''''(3)

OldSheet.Range("A1", OldSheet.Cells(2, DataCols)).Copy NewSheet.Range("A1", NewSheet.Cells(2, DataCols))
NewSheet.Range("A1") = NewName
Dim k As Long
k = 3
i = 3
While i <= DataLines
If CDate(OldSheet.Cells(i, 1)) > TimeLine Then '日期判断条件
OldSheet.Range("A" & i, OldSheet.Cells(i, DataCols)).Copy NewSheet.Range("A" & k, NewSheet.Cells(k, DataCols))
OldSheet.Range("A" & i, OldSheet.Cells(i, DataCols)).Delete xlShiftUp
i = i - 1
DataLines = DataLines - 1
k = k + 1
End If
i = i + 1
Wend
ActiveSheet.Columns(1).ColumnWidth = 9
ActiveSheet.Columns(2).ColumnWidth = 8.13
ActiveSheet.Columns(3).ColumnWidth = 10.5
ActiveSheet.Columns(4).ColumnWidth = 6.5
ActiveSheet.Columns(5).ColumnWidth = 6.75
ActiveSheet.Columns(6).ColumnWidth = 8.85
End Sub
1、首先尝试修改注册表：运行-输入regedit, 到HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options，在右侧找到NoRereg，双击或右键打开修改，将值从0改为1，保存退出。如果没有找到NoRereg注册表，那就右键-新建一个DWORD（32位）值，十六进制，命名为NoRereg，然后将数值数据改为1即可。但是尝试这步后情况还是一样，没有解决。2、打开运行-在运行对话框中输入以下命令，然后点确定即可：reg add HKCU\Software\Microsoft\Office\15.0\Word\Options /v NoReReg /t REG_DWORD /d 1。但是这一步对于我的问题也没解决，e69da5e6ba907a64332情况还是一样。3、控制面板-程序卸载-点office2013-点卸载旁边到更改-修复-修复后重启。但是我的问题还是依旧。
4、最后是通过这一步解决到：可以使用将安装目录里的Excel.exe改名，再从菜单打开Excel，会出现配置进度，安装目录下也会出现一个新的Excel.exe，删除改名的EXCEL，再打开应该就可以了。而且修改了这个之后，其它到也全部好了。
操作步骤：Program Files>Microsoft Office>Office15>Exel.exe(可以通过顶部到菜单：查看-文件扩展名来显示和修改文件扩展名)

timeline其实就是时间进度表，制作方法如下：

首先制作如下图的基本表格

抄查看大图" class="ikqb_img_alink">

为表设置样式。点击【套用表格格式】，选择一款自己喜欢的表格。这时候会确认作用范围，点确认无误后，点击【确定】。

接着选中第一行，点击右键，点击【设置单元格格式】。

在分类中选中“百分比”，设置小数位为0，点击【确定】。

选中刚才的zd单元格，点击【条件格式】，选择“数据条”，选择一种喜欢的样式。

最后一步啦，就是填写比例，填写后，各单元格会根据知项情况显示进度条。