返回目录:excel表格制作
第一步,点击Excel界面左下角的录制宏按钮录制宏。
第二步,在【zhidao宏名】处输入一个有意义的名称,帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。
第三步,马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。
第四步,按Alt+F11打开VBE界面,如下图:
第五步,在代码部分输入或者粘贴执行某项特定功能的代码,本例运行宏后会弹出对话框,提示“个人宏工作簿测试”字样。
第六步,在功能区(Ribbon)上鼠标右键,选择【自内定义快速访问工具栏】。
第七步,如下图选择【宏】,并选择刚才录制的宏名称,点击【添加】按钮。
第八步,点击【修改】按钮选择一个要显示的图标容,并确定。
注意:这里选择的图标可以提示你并帮助记忆某个按钮是完成哪项功能的。
完成上述操作后,在快速访问工具栏就会出现刚才选择的图标按钮。点击一下就可以完成该按钮VBA代码预设的功能了。
注意:这样实现的VBA代码功能在本机所有的打开工作簿中都可以运行,没有限定在某个工作簿中。
添加新工作表步骤:
一、第一步,打开来电脑,在电脑中找到要编辑的表格并双击打开。
二、注意:新建的工作表自都是默认创建三个(如图所示),第一页之后需新百的工作表时,可直接点击“Sheet2”进行编辑第二页。
三、如果三个不够用,需要添加新的工作表,可以点击左下角“插入工作表”按钮,或者用快捷键Shift+F11新建工作表。
四、这时新的工作表就创建完成了,点击“Sheet4”页面即可编辑新的页面了。
五、之后如果需要添加新的工作表只需按上面所述步骤操作,就可以添加更度多的工作表。
用vba打开浏览框选择文件就可以了
Sub abc()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
If .Show = -1 Then
myfile = .SelectedItems(1)
End If
End With
Workbooks.Open myfile
End Sub
打开工作簿后需要如何操作就可以自己发抄挥了。
需要选择工作表zd搞个窗体也是很简单的,注:工作表名称不管如何变化均会自动导入复合框
A1单元格自动创建数据有效性
With Sheets(ActiveSheet.Name) '用 “复.”代替当前工作制表
''''''''''''''''''''''''若“temp”表不存在百则新建一个度''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With
试试看