作者：乔山办公网日期：
返回目录：excel表格制作
以下代码运行后，会在当e799bee5baa6e4b893e5b19e333前目录下创建一个 Backup 的文件夹，然后每五分钟以当前日期时间为文件名备份工作簿到这个目录中，运行下面的 Timerstop 可停止定时。
Dim Flag As Boolean
Sub Backup()
Dim Path As String, OldPath As String
On Error Resume Next
If Flag Then Flag = False: Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Dir(ThisWorkbook.Path & "\Backup\", vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\Backup\"
Path = ThisWorkbook.Path & "\Backup\"
ThisWorkbook.SaveCopyAs Path & Replace(Now, ":", "：") & ".xls"
Application.OnTime Now() + TimeValue("00:05:00"), "Backup" '五分钟运行一次Backup函数
VBA.DoEvents
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Sub Timerstop()
Flag = True
End Sub
呵呵，这小白需求，无语。
实现起来zhidao倒是很容易：
每个工作表版下面写这个：
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Save
End Sub
只要有单元格被改就自动保存。
总体感觉这需求毫无权意义也没有必要用VBA实现。
概要百
使用for .. next 循环读取度所有行，并设置问 step 2 来隔行读取
代码
Dim i As Integer
Dim cell As Range
For i = 0 To 100 Step 2 '从第答0行到第100行，step为2时i每次加2，所以是专隔行
dim result as string
resut=cell(i, 1) '得到单元格的内容属
Next
1、首先在电脑上鼠标右键单击任意Excel表格，在右键菜单中选择打开命令。
2、进去Excel界面之后，选择Excel菜单栏中的文件按钮。抄
3、然后选择新zd页面中的选项按钮。
4、然后在Excel选项窗口左侧选择保存按钮，接着勾选图示自动保存设置。
5、最后设置自动保存路径，然后单击下方的确定选项即可。