各位学长 大佬好 我工作上遇到了困难 自己才疏学浅 利用ai写vba代码的方式实在是过不去了 我要行无数行不规则的文本中 提取地名出来 文本中的文字不包括省 市 区 县等字样 最多就是北京 南京 上海 厦门这样的 为此 我到国家相关部门吧所有省市区县

Sub DrawCirclesOnBoundary() Dim boundary As AcadLWPolyline Dim vertices() As Double Dim minX As Double, maxX As Double

Result = ThisDrawing.Plot.PlotToFile(plotFileName) ，打印第一张没有问题，后面就出现错误了：方法'PlotToFile"作用于对象'lAcadPlot'时失败

做了功能，网每页文档里插入一张图片，并设定位置和尺寸。执行的时候，第一次执行正常，重复执行以下位置和尺寸就不管用了。代码如下 Dim objFileDialog As FileDialog Dim i As Integer Set o

各位老大 大家好。 我想把EXCEL单元格里的图片批量导出来，并且以人名来命名，写完的代码哪里有问题，拜托大家指导一下。 感谢。 Sub Rename() Application.ScreenUpdating = False On Error Res

Sub CopyDataFromClosedWorkbookToAnother() Dim sourceWorkbookPath As String Dim sourceWorkbook As Workbook Dim targetWor

想实现的功能是：在文档中查找到类似“同比增加XXX万/亿”的表述都自动标红，目前这段代码只能实现“同比增加XXX”标红，无法将单位“万/亿”一起标红，问了ai一直解决不了，求大佬指教！ 示例文本： 同比增加2222万，同比增加11万，同比增加111万

因工作需要，想通过selenium vba来网爬一些数据，模拟点击网页按钮的时候，显示按钮不可见，然后通过driver.ExecuteScript "arguments[0].click();"这个语句来进行点击，能成功点击，页面也能正常加载，但是V

1. Java ThreadLocal原理和用法 2. Java volatile关键字剖析 3. Java内存模型-清晰剖析

1. 人工智能 1.1 将【深度学习】和【Spring Boot】集成：使用 DL4J 的综合指南 2. 深度学习 2.1 将【深度学习】和【Spring Boot】集成：使用 DL4J 的综合指南 3. 深度学习 3.1 将【深度学习】和【Spr

1. Rocketmq-5.3.0和对应dashboard的最新版本Docker镜像，本人亲自制作，部署十分方便，奉献给大家

1. 人工智能 1.1 将【深度学习】和【Spring Boot】集成：使用 DL4J 的综合指南 1.2 【人工智能】九种神经网络模型 1.3 【科技前沿】ChatGPT-3 与 ChatGPT-4 对比 1.4 【科技前沿】协方差与相关性：有什

1. 设计模式六大原则之：单一职责原则 2. 设计模式六大原则之：依赖倒置原则 3. 设计模式六大原则之：开闭原则 4. 设计模式六大原则之：‌里氏替换原则 5. 设计模式六大原则之：接口隔离原则 6. 设计模式六大原则之：迪米特法则

1. Java结构型设计模式-外观模式 2. Java结构型设计模式-装饰器模式 3. Java行为型设计模式-观察者模式 4. Java行为型设计模式-责任链模式 5. Java行为型设计模式-模板方法模式 6. Java行为型设计模式-策略模式

1. 将【深度学习】和【Spring Boot】集成：使用 DL4J 的综合指南 2. 简单灵活的spring配置工具类ConfigFactory 3. 如何在 Spring Boot 的配置文件中使用环境变量？ 4. Spring Boot 多种

1. Nacos-2.4.0最新版本docker镜像，兼容postgresql最新版本17和16，同时支持深色主题切换，本人亲自制作，部署十分方便，奉献给大家了

1. 【科技前沿】ChatGPT-3 与 ChatGPT-4 对比 2. 【科技前沿】协方差与相关性：有什么区别？ 3. 【科技前沿】什么是 A* 搜索算法？ 4. 物联网职业机会：2024 年终极指南 5. 【科技前沿】什么是岭回归？ 6. 【科

设置vba事件，e4:e15是原价，f4:f15是折扣，g4:g15是折后价 判断1、检查g4:f15发生变化是手动更改，还是因为判断2引起的更改，如果是因为判断2引起的那么此次变化不处理，如果是手动更改的那么g4:g15=e4:e15*f4:f15

Private Sub CommandButton3_Click() Sheets("sheet1").WindowsMediaPlayer1.url = "https://hanyu.baidu.com/s?wd=" & Me.TextBox3.