如何通过宏代码,使得EXCEL只要一旦改动后就自动保存一次,就是只要录入新的数据,就会执行保存在线等,很

拜托高手了~本人小白 就是想实现EXCEL一旦有数据变动就执行一次保存~坐等大虾 有点急 肯定热心人的帮助~

如果你每改动一次就自动保存,那样会很慢的,如果你的EXCEL文档很大或者电脑配置很差,那会是件很痛苦的事情哦。建议你在关闭时设置自动保存就行了,方法如下:
打开宏编辑器,选择左边的ThisWorkbook,在里面输入下面代码就会在关闭前自动保存:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
如果你实在想每次修改就保存,那么就输入下面的代码:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.Save
End Sub追问

非常感谢您 其实 我想共享一个EXCEL 就是让两个人同时使用,所以想两台电脑的画面尽可能同步(自带最小都要5Min),只有保存,才能使得画面保持一致,所以我想只要一旦有数据改动,就自动执行保存,这样就可以两边基本同步。所以关闭前自动保存是没多大意义~
但是我刚试了下您的下面那个宏 ,我测验了 输入新数据后直接退出来依然询问是否保存啊,难道是没有执行吗?感觉宏没有发挥作用~这方面真的比较薄弱,恳请大虾的指导

追答

打开宏编辑器,选择左边的ThisWorkbook,注意一定要把代码放在这个模块,如果放在sheet模块或者公有模块里都不行的,还有添加代码后要记得保存。

温馨提示:内容为网友见解,仅供参考
第1个回答  2011-04-12
你需要在每一个工作表标签上点鼠标右键,然后粘贴下面代码.
工作簿中有几个工作表,就需要粘贴几次,因为每个工作表都对应一个事件.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Save
End Sub
其实你的这个想法可以考虑用共享工作簿的方法来实现.
因为当两个人同时打开这个工作簿时,如果其中一个人执行保存,可能提示错误.
而共享工作簿,可显示每个人的修订结果.
第2个回答  2011-04-12
1、先进入到Excel宏(Ctrl+F11)
2、进去后会看到左边有:VBAProject(你当前工作表的名称),它下面有Sheet1、Sheet2、Sheet3等工作表,再下面有一个“ThisWorkBook”。
3、双击“ThisWorkBook”,在右边弹出的窗口中,将这些代码粘贴进去,就OK了。

如何通过宏代码,使得EXCEL只要一旦改动后就自动保存一次,就是只要录入...
打开宏编辑器,选择左边的ThisWorkbook,在里面输入下面代码就会在关闭前自动保存:Private Sub Workbook_BeforeClose(Cancel As Boolean)ThisWorkbook.Save End Sub 如果你实在想每次修改就保存,那么就输入下面的代码:Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)ThisWorkboo...

excel如何用宏自动录入数据excel如何用宏自动录入数据库
首先第一步就是启动excel,依次选择“开发工具”->“代码”->“录制宏”命令。2\/4 在弹出的对话框中可以分别设置宏的名称、保存位置。3\/4 在“开发工具”的菜单中,勾选需要的“自动录入数据”。4\/4 最后点击“自动录入”,即可完成excel用宏自动录入数据。仅参考 excel使用宏自动录入数据,操作如下...

...一个问题,就是我想通过宏来实现EXCEL表一旦有数据变动,就会执行一次...
1、先进入到Excel宏(Ctrl+F11)2、进去后会看到左边有:VBAProject(你当前工作表的名称),它下面有Sheet1、Sheet2、Sheet3等工作表,再下面有一个“ThisWorkBook”。3、双击“ThisWorkBook”,在右边弹出的窗口中,将这些代码粘贴进去,就OK了。

EXCEL 加入自动更新数据的宏,如何编辑
在excel选项中选择信任中心 接着选择信任中心设置 进入后找到宏设置并点击 在出来的设置中选择启用所有宏 设置完成后确定即可

excel 2003 自动保存的宏命令 我套打表格后 数据需要自动保存。
是想在打印之后,自动保存工作簿吗?用下面代码就可以:sub 打印 ActiveSheet.PrintOut '打印当前表 ActiveWorkbook.Save '保存当前工作簿文档 end sub

excel怎样实现只要编辑就自动保存?
ALT+F11打开VBAProject,在你要保护的表里写入如下代码 Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.Save End Sub 保存,关闭,记得允许宏运行

在excel2003中,怎么将编辑的vba宏保存才能使以后打开的每一张表格都能...
在excel里操作。【工具】-【宏】-【录制新宏】在弹出的对话框里,为你的宏取个名字,设置一个快捷键,并选择保存位置为【个人宏工作薄】(这个是关键),确定后,立即结束录制。然后编辑你刚才录制的这个宏,把代码全部删除,把你需要保存的代码复制过来,保存就可以了。以后,不管你在哪个EXCEL表里,...

excel 如何添加保存按钮,就是VBA的代码怎么写
打开Excel后按Alt+F11打开VBAProject,在需要保护的表里写入如下代码:Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.Save End Sub 保存,关闭,设置允许宏运行,这样保护的工作表只要一进行编辑就会自动保存。如果只是保存,在宏代码里,只写ThisWorkbook.Save就可以了 ...

如何编制一个宏代码,使EXCEL在关闭前自动保存不再提示是否保存
在下面的代码放到vba编辑界面的thisworkbook 即可 Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True End Sub

Excel录制宏时,怎样做到在录制宏后。如果还增加数据,录制的宏对新增加...
ActiveSheet.Range("$A$3:$CK$1060").AutoFilter 改成:ActiveSheet.Range("$A$3:$CK$"&ActiveSheet.Range("A65535").End(xlUp).Row).AutoFilter

相似回答