提供大良营销网站建设,淘宝的前100个关键词排名,镜像wordpress博客,网站开发技术总监面试题今天跟大家分享下我们如何将DeepSeek生成的VBA代码#xff0c;做成按钮#xff0c;将其永久保存在我们的Excel表格中#xff0c;下次遇到类似的问题#xff0c;直接在Excel中点击按钮#xff0c;就能10秒搞定#xff0c;操作也非常的简单. 一、代码准备
代码可以直接询问…今天跟大家分享下我们如何将DeepSeek生成的VBA代码做成按钮将其永久保存在我们的Excel表格中下次遇到类似的问题直接在Excel中点击按钮就能10秒搞定操作也非常的简单. 一、代码准备
代码可以直接询问DeepSeek我们就以新建目录为例跟大家简单的演示下首先需要复制下方的代码。
Sub 目录生成()
Dim ws As Worksheet
Dim indexSheet As Worksheet
Dim i As Integer
Dim shp As Shape
Dim hyperlinkAddr As String
On Error Resume Next
Set indexSheet ActiveWorkbook.Worksheets(目录)
If indexSheet Is Nothing Then
Set indexSheet ActiveWorkbook.Sheets.Add(Before:ActiveWorkbook.Sheets(1))
indexSheet.Name 目录
End If
On Error GoTo 0
indexSheet.Cells.ClearContents
indexSheet.Cells(1, 1).Value 工作表目录
i 2
For Each ws In ActiveWorkbook.Worksheets
If ws.Name indexSheet.Name Then在目录页创建超链接
indexSheet.Hyperlinks.Add _
Anchor:indexSheet.Cells(i, 1), _
Address:, _
SubAddress: ws.Name !A1, _
TextToDisplay:ws.Name在工作表添加返回按钮
Set shp ws.Shapes.AddShape(msoShapeRectangle, 10, 10, 80, 20)
shp.TextFrame.Characters.Text 返回目录
hyperlinkAddr indexSheet.Name !A1为按钮添加超链接
ws.Hyperlinks.Add _
Anchor:shp, _
Address:, _
SubAddress:hyperlinkAddr
i i 1
End If
Next ws
End Sub二、新建xlam模板
我们需要创建一个xlam模板用于储存上面的VBA代码。
Xlam格式的文件他就加载宏的文件将其放在对应的位置以后就能在这台电脑中的所有Excel文件中调用这个代码了。
只需找到新建的Excel文件右上角点击文件然后找到另存为然后点击更多选项在跳出的窗口中找到【保存类型】将类型设置为【xlam】然后点击保存
文件就会默认的保存在【C:\Users\yh\AppData\Roaming\Microsoft\AddIns】这个路径中
电脑不一样路径一般也不会完全一样的大家只需搜索下这个路径一般都能是能找到的
【AppData\Roaming\Microsoft\AddIns】 三、粘贴代码
找到刚才创建的xlam文件然后双击打开它点击【开发工具】找到【visiual basic】然后点击鼠标右键找到【插入】创建【模块】找到新建的模块将刚才复制的代码直接粘贴到对应的位置点击下保存 四、设置按钮
首选需要点击【文件】然后在最下方找到【选项】来调出【Excel选项】
之后需要在右侧的选项卡中选择【新建选项卡】然后点击【重命名】将名字定义为【小工具】
最后点击【新建组】也是点击重命名将名称设置为【自动化】
最后在左上角的区域中选择【宏】找到【目录生成】点击【添加】然后再点击【确定】
这样的话就可以将按钮永远的放在Excel表格中下次想要创建目录直接点击生成即可 至此就设置完毕了还是比较方便的大家可以试着做一下
