作者：乔山办公网日期：
返回目录：excel表格制作
1、打百开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；
2、选择搜索框的下拉菜单，选择“worksheet”选项功能；
3、选择BeforeDoubleClick，也就是在本工作度表鼠标双击（知之前），将触道发下面的代码程序；
4、选择完成后，这样会看到下面出现了两条代码；这俩条代码其实是在声明内一个函数；
5、将鼠标放置在这两行代码之间，这时写上执行语句：容Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)；
6、然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值；
7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。
1、首先将Excel文档（默认新建扩展名为xlsx），另存为启用抄宏的工作簿，扩展名为xlsm。
2、按下组合键ALt+F11快速切换到VBA窗口。
3、进入VBA窗口后的界面，如图所示。
4、双击ThisWorkbook后，会弹出一个代码窗口。
5、在代码窗口中zd复制粘贴以下代码：Private Sub Workbook_Open()，MsgBox ("欢迎您使用Excel2013")，End Sub。
6、保存，关闭，重新打开Excel（扩展名为xlsm）文档，效果如图所示。
呵呵，这小白需求，来无语。
实现起来倒是很容易：
每个工作表下面写这个：
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Save
End Sub
只要有自单元格被改就自动保存。
总体感觉这需求毫无意zd义也没有必要用VBA实现。
在Private Sub Workbook_BeforeSave事件来里调自用百aaa过程度
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call aaa
End Sub