AI结合VBA提升EXCEL办公效率尝试

文章目录

前言

EXCEL右击菜单添加一个选项,点击执行自己逻辑的功能。

然后让DeepSeek帮我把我的想法生成VBA代码

一、开始VBA编程

我的excel主菜单没有'开发工具' 选项,

文件 ->选项,打开一下

当然ALT+F11也能打开,就是等会添加"EXCEL加载项"的时候也要使用

然后插入模块

二、主要代码

这里编写测试的是:给选中单元格,添加一个图标和路径,并带连接跳转。的一个功能

2.1、模块1:

vbnet 复制代码
' 在标准模块中定义全局变量
Public MyMenuID As String

' 自定义菜单点击事件
Sub MyCustomAction()
    'MsgBox "执行自定义逻辑"
    '插入文字
    'Range("A1").Value = "C:\Desktop\pdf.gif"
    Dim rng As Range
    On Error Resume Next
    Set rng = Selection
    'rng.Value = "C:\Desktop\AAA.pdf"
    
    '插入图片
    Dim imgPath As String
    imgPath = "C:\Desktop\pdf.gif"
    
   ActiveSheet.Shapes.AddPicture _
        filename:=imgPath, _
        LinkToFile:=False, _
        SaveWithDocument:=True, _
        Left:=rng.Left, _
        Top:=rng.Top + 5, _
        Width:=16, _
        Height:=16
        
  '插入超链接
  ActiveSheet.Hyperlinks.Add _
        Anchor:=rng, _
        Address:="C:\Desktop\AAA.pdf", _
        TextToDisplay:="C:\Desktop\AAA.pdf"
 
 '缩进
  rng.IndentLevel = 2
 '高度
  rng.RowHeight = 25
  rng.ColumnWidth = 40
 '垂直居中
  rng.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
End Sub
'添加菜单
Sub AddRightClickMenu()
    On Error Resume Next
    Dim cmdBar As CommandBar
    Dim ctrl As CommandBarControl
    
    MyMenuID = "PDF快捷插入"
    Set cmdBar = Application.CommandBars("Cell")
    ' 先删除已有菜单项防止重复
    cmdBar.Controls(MyMenuID).Delete
    
    ' 添加新菜单项
    Set ctrl = cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With ctrl
        .Caption = MyMenuID
        .OnAction = "MyCustomAction"
        .FaceId = 1001 ' 自定义图标编号
    End With
End Sub
'移除菜单
Sub RemoveRightClickMenu()
    On Error Resume Next
    Application.CommandBars("Cell").Controls(MyMenuID).Delete
End Sub

2.2、ThisWorkbook

vbnet 复制代码
Private Sub Workbook_Open()
    AddRightClickMenu
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    RemoveRightClickMenu
End Sub

三、添加到所有EXCEL

3.1、保存提示需要启用宏安全设置(建议设为"禁用所有宏,并发出通知")

3.2、好把,搞了半天我保存错了地方。要使每个EXCEL生效就得保存为 .xlam

3.3、再新建一个EXCEL ,把我们写的 添加到加载里

四、运行效果

改好重新打开EXCEL就有了。

要改逻辑,只改我们的.xlam文件就好了。不需要再设置其他了。

更新应该覆盖xlam就行。

嗯,顺便把这图标给一下。找半天没找到,P了一下

五、AI扩展

使用CSDN的AI试试

vbnet 复制代码
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True  ' 可选显示界面
Set objWorkbook = objExcel.Workbooks.Open("C:\YourExcel.xlsx")  ' 替换为实际路径
Set objSheet = objWorkbook.Sheets(1)

Set fso = CreateObject("Scripting.FileSystemObject")
pdfPath = "D:\MyPDF\"  ' PDF存储路径

lastRow = objSheet.Cells(objSheet.Rows.Count, "B").End(-4162).Row  ' 获取B列最后行号

For i = 2 To lastRow
    cellValue = Trim(objSheet.Cells(i, "B").Value)
    If cellValue <> "" Then
        fullPath = pdfPath & cellValue & ".pdf"
        If fso.FileExists(fullPath) Then
            Set targetCell = objSheet.Cells(i, "F")
            objSheet.Hyperlinks.Add targetCell, fullPath, , , "打开文档"
        End If
    End If
Next

objWorkbook.Save
objWorkbook.Close
objExcel.Quit
MsgBox "超链接生成完成!"

看起来还是蛮靠谱的。回头稍微改改,丢到MyCustomAction里试试。

相关推荐
chaofan9804 小时前
如何用 Claude Code 搭建安全、可测、可自动化的 GitHub CI 流程?
运维·人工智能·ci/cd·ai·自动化·github·claude
bcgbsh6 小时前
关于处理大批量数据下载和查询时,怎么进行限流和熔断处理(AI)
ai
Elastic 中国社区官方博客8 小时前
如何在 vscode 里配置 MCP 并连接到 Elasticsearch
大数据·人工智能·vscode·elasticsearch·搜索引擎·ai·mcp
啦啦9117149 小时前
Print Conductor打印软件安装教程!一款非常好用的批量打印软件!支持PDF、Word、Excel、图片等
pdf·excel
专注VB编程开发20年10 小时前
VBA ADO使用EXCEL 8.0驱动读取 .xlsx 格式表格数据-有限支持
excel·vba·ado·excel 8.0·ace.oledb
清霁。11 小时前
实用Excel学习资料包(含操作+函数+图表教程)
excel
CDA数据分析师干货分享11 小时前
【CDA干货】Excel 的 16类常用函数之计算统计类函数
大数据·数据挖掘·数据分析·excel·cda证书·cda数据分析师
Cosmoshhhyyy11 小时前
MCP:cursor、claude code接入chrome-devtools-mcp。
ai·mcp
猪猪侠|ZZXia12 小时前
# vim中给变量添加双引号
编辑器·vim·excel
笨蛋不要掉眼泪20 小时前
SpringBoot项目Excel成绩录入功能详解:从文件上传到数据入库的全流程解析
java·vue.js·spring boot·后端·spring·excel