首页 >>  正文

vba自动保存代码

来源:baiyundou.net   日期:2024-09-20

晁吕沫4850Excel VBA 问题 按添加按钮后,数据自动保存在通讯录表中,代码应该怎么写?? -
吕虞奋18777376889 ______ 这个代码很简单,就是多几个,我给你先一个,剩下的自己补充吧 with Sheets("客户通讯录") 行=.range("A65536").end(3).row.cells(行,"A")=textbox1.text.cells(行,"B")=textbox2.text...end with

晁吕沫4850excel vba 数据移动和自动保存 -
吕虞奋18777376889 ______ 试试,在你的sheet1和sheet2改成workbooks("文件名").sheets("表名").range("D7").value=......比如:Workbooks("1").Sheets("sheet1").Range("a1").Value = Workbooks("2").Sheets("sheet2").Range("a1").Value 关于自动保存:dim t as string t = Range("a1").Value ThisWorkbook.SaveAs (t)

晁吕沫4850vba若要保存但不关闭工作薄有什么方法? -
吕虞奋18777376889 ______ 只需要写一条代码:Sub x() ActiveWorkbook.Save End Sub

晁吕沫4850VBA使公共盘供多人编辑的Excel文件若2分钟内无操作则自动保存关闭,这样可被其他人编辑,VBA可实现否? -
吕虞奋18777376889 ______ 新建一个模块,在模块当中输入以下代码 Public Runtime, Lasttime Sub 计时器() If Now >= Lasttime Then ThisWorkbook.Save If Application.Windows.Count = 1 Then Application.Quit Else ThisWorkbook.Close True End If Exit Sub End If ...

晁吕沫4850EXCEL中能否使用VBA实现自动编辑另一文件并保存? -
吕虞奋18777376889 ______ csv是纯文本格式.了解了这一点就知道,没有必要用vba,用命令行的copy就可以实现.

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

晁吕沫4850excel怎样用代码将每次表格变动时,自动保存. -
吕虞奋18777376889 ______ 在VBA的工作簿对象下的工作表中,录入以下事件处理代码即可:Private Sub Worksheet_Change(ByVal Target As Range) ThisWorkbook.Save End Sub

晁吕沫4850EXCEL vba自动密码保护 -
吕虞奋18777376889 ______ 打开EXCEL alt + f11 调出VBA界面 你看到左侧有个thisworkbook 双击他 然后在右侧空白处复制代码 保存就好了 Private Sub Workbook_BeforeClose(Cancel As Boolean) For a = 1 To Sheets.Count Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123" Next End Sub

晁吕沫4850在Excel中如何用vba实现:每隔一段时间自动将工作簿保存到以当时时间为文件名的文件中
吕虞奋18777376889 ______ 设置一个计时器,然后指定时间,另存到你的指定的文件夹中去 你用手机上也看不到这么长的回答,只给你思路

晁吕沫4850如何用VB使编程的程序自动保存? -
吕虞奋18777376889 ______ timer1的interval设置为60000即1分钟 Private Sub Timer1_Timer() '每隔一分钟自动保存一次,默认路径为d:\text1.txt Dim s$ RText.SelStart = 0 '从文本头开始 RText.SelLength = Len(RText)'一直选到文本末 s = RText.SelText Open "d:\text1.txt"...

(编辑:自媒体)
关于我们 | 客户服务 | 服务条款 | 联系我们 | 免责声明 | 网站地图 @ 白云都 2024