怎样用VAB编程，实现按键保存功能

软件 2023-02-09

excel如何制作一个vba按钮，点一下之后让sheet1里面的部份数据，自动保存到sheet2里面？

如果菜单栏没有“开发工具”选项卡，右击上方菜单栏空白处——自定义功能区，选中“开发工具”
请点击输入图片描述
开发工具里面，插入——ActiveX控件，选中按钮，在Excel上拖拽2个按钮
请点击输入图片描述
右击按钮，查看代码，可以打开VBE界面（右击按钮，选择属性，里面可以改按钮的显示内容，Caption属性）

Private Sub CommandButton1_Click()

Sheet2.Range("A1").Value = Sheet1.Range("A10").Value '将表1中的某个值保存到表2的示例

End Sub

Private Sub CommandButton2_Click()

Sheet2.Range("A1").Value = "" '清空Sheet1指定单元格的示例

End Sub

根据示例修改代码

VBA请问如何在窗体当中设计一个保存按钮或者是在我点击使用后自动保存

Sub SaveMyBook() Set b = ActiveWorkbook b.save End Sub

如何使用EXCEL VBA实现自动保存

呵呵，这小白需求，无语。

实现起来倒是很容易：

每个工作表下面写这个：

PrivateSubWorksheet_Change(ByValTargetAsRange)
ThisWorkbook.Save
EndSub

只要有单元格被改就自动保存。

总体感觉这需求毫无意义也没有必要用VBA实现。

求教下，如何通过VBA的按钮实现保存excel单元格中函数的值

Sub GetValue() Dim sInput As String sInput = InputBox("请输入函数公式：", "函数输入", "") If Len(Trim(sInput)) > 0 Then With ActiveCell If .HasFormula = True Then MsgBox "单元格已存在公式" Else .Formula = sInput: .Value = .Value '最后一语句是将公式转换为数值 End With End If End Sub

VBA如何用命令按钮另存文件并自动命名

VBA用命令按钮另存文件并自动命名的方法： 1、每次保存一个新的文件，可以在文件名上加个编号。如： Static Index as Integer Index = Index+1 ThisWorkbook.SaveAs "E:\DC\WQ" & Index & ".xls" 或产生一个随机名： Dim fso Set fso = CreateObject("Scripting.Filesystemobject") dim Name as string Name = fso.GetTempName ThisWorkbook.SaveAs "E:\DC\" & Name & ".xls" 2、程

标签：信息技术 MicrosoftExcel MicrosoftOffice excel vba