作者：乔山办公网日期：
返回目录：excel表格制作
最简单的抄方法是同时打开这两个表袭格，当然百，不打开也可以更新的操度作步骤如下知：
https://zhidao.baidu.com/question/535864525.html
但是是没有道提醒的。
打开EXCEL,新建空白工作薄。ALT+F11或者依次点击视图→宏→查看宏→输入宏名ml→创建
粘贴以下代码到右侧代码窗口
Sub ml()
On Error Resume Next
zzml = "请选择要制作目录的文件夹"
Set mlzz = CreateObject("shell.Application").BrowseForFolder(0, zzml, &H1)
lj = mlzz.Self.Path
Cells(1, 1) = "序号"
Cells(1, 2) = "文件名称"
Cells(1, 3) = "文件类型"
Dim wj As String
wj = Dir(lj & "*.*")
Do
Cells(([A65536].End(xlUp).Row + 1), 1) = [A65536].End(xlUp).Row
Cells(([C65536].End(xlUp).Row + 1), 3).FormulaR1C1 = "=MID(RC[-1],FIND(""."",RC[-1])+1,LEN(RC[-1]) - FIND(""."",RC[-1]))"
Cells(([B65536].End(xlUp).Row + 1), 2).SelectActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wj, TextToDisplay:=wj
wj = Dir
Loop Until Len(wj) = 0
Columns("A:C").Select
Columns("A:C").EntireColumn.AutoFit
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Cells(1, 1).Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=lj & "" & mlzz.Self.Name & "目录.xls"
ActiveWindow.Close
Application.DisplayAlerts = True
Workbooks.Add
End Sub
关闭宏窗口，回到工作薄。ALT+F8或者依次点击视图→宏→查看宏→ml→执行e799bee5baa6e59b9ee7ad94361
选择所需要制作目录的文件夹
在所选文件夹下就会生成一个目录
以Excel2007为例：
1、打开百Excel,在要插入时间的单元格，输入公式：“=TIME(HOUR(NOW()),MINUTE(NOW()),SECOND(NOW()))”，如下图：
2、度过一会，按“F9”重新计算，会发现时间已经更新，保存后，每次重新打开Excel文档也会更新。如下图：
3、"Time"函数可以返回时间，三个参数分别是小时，分钟和秒数，因要返版回的是自动更新的，所以要调用“NOW（）”函数，“HOUR（）”，权“MINUTER（）”和“SECOND()”函数结合“NOW（）”函数分别提取现在的小时数，分钟数和秒数
http://jingyan.baidu.com/article/ed15cb1b0f9a0b1be2698144.html