拜托高手了~本人小白 就是想实现EXCEL一旦有数据变动就执行一次保存~坐等大虾 有点急 肯定热心人的帮助~
非常感谢您 其实 我想共享一个EXCEL 就是让两个人同时使用,所以想两台电脑的画面尽可能同步(自带最小都要5Min),只有保存,才能使得画面保持一致,所以我想只要一旦有数据改动,就自动执行保存,这样就可以两边基本同步。所以关闭前自动保存是没多大意义~
但是我刚试了下您的下面那个宏 ,我测验了 输入新数据后直接退出来依然询问是否保存啊,难道是没有执行吗?感觉宏没有发挥作用~这方面真的比较薄弱,恳请大虾的指导
打开宏编辑器,选择左边的ThisWorkbook,注意一定要把代码放在这个模块,如果放在sheet模块或者公有模块里都不行的,还有添加代码后要记得保存。
如何通过宏代码,使得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