作者:乔山办公网日期:
返回目录:excel表格制作
1、打开Excel 2003或2007或2010或2013完整版版本。
2、进入“开发工具”一栏。
3、点选“Visual Basic”选zhidao项卡中的“编辑器”。
4、双击“ThisWorkBook”或“工作表专1”。
5、在空白区域填写代码:Sub 保存所有已打开的工作簿(),Dim i As Workbook,For Each i In Workbooks, If i.Path <> "" Then,i.Save, End If,Next ,End Sub。
6、点击“运行”。
7、点击“运行子过程属/UserForm”就可以了。
截图看下,什么样的?
可以选中某个单元格,这样,焦点不是移到表格里了吗?
可以在sub下加度一行语句问
On Error Resume Next
例如这段语句
sub test()
if cells(1,1)="" then cells(1,1) =1/0
cells(2,1)=2
end sub
这个除数答为0 肯定要报错专的
如果改成
Sub test()
On Error Resume Next
If Cells(1, 1) = "" Then Cells(1, 1) = 1 / 0
Cells(2, 1) = 2
End Sub
就不会报错,遇错则继续属向下执行了。
VBA在执行关闭前再执行一条
Cells(4, 5).Select