笔记是我个人平时工作中积累的，需要有一定编程基础的人看，需要的留邮箱

有没有大佬会的

要求熟练vba宏命令,需要查看枪手大学毕业证或在校学生证

如题有偿

大佬们，谁有办法让vba手机运行，虚拟机或者云电脑可以嘛

各位前辈，我是一位社工，最近遇到了一个很实际的问题。我们之前已经把所有社区困境人群的信息录进一个word文档里了。但是现在政府要求我们更改表格样式，也就是说旧的表格全部都要作废，要用新的表格来登记。但是新旧表格之间有70%是相同的，只是在下面新增了三列而已。我想知道有没有一个程序可以一键操作。。

首先本人excel水平还没到懂vba的地步 有个需求就是，excel工作簿除了第一页以外，其它的sheet都要隐藏，但第一页的超链接要能进去后面的隐藏sheet。隐藏sheet中的超链也要能进去其它隐藏sheet。隐藏sheet回到第一页后要自动隐藏其它sheet。 网上搜了半天只找到这个 Private Sub Worksheet_Activate() For i = 1 To Sheets.Count If Sheets(i).Name <> "文件目录" And Sheets(i).Name <> "Forecast Sum" Then Sheets(i).Visible = 0 Next End Sub Private Sub Worksheet_FollowHyperlink(ByVal Target

线上答疑，英语要好，985/211本科大三以上，研究生更好

Excel自动化： 数据清洗、报表生成、批量操作、自定义函数... 让你告别繁琐手工！ Word自动化： 模板生成、邮件合并、文档排版... 一键搞定，省时省力！ Python脚本： 网页数据抓取、数据分析、自动化办公... 解放双手，效率飙升！ 有需要联系，太简单的建议自己ds

求！公司老板让设计自动化表格，鼠鼠一点都不会啊，有偿

麻烦大家帮忙看看，代码为什么缺少结束语？

这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如7,10,15行的数据都得记录。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row <> 5 Then Exit Sub t = Now() If Target.Comment Is Nothing Then Target.AddComment.Text t & " " & IIf(Target = "", "清空", Target) Else Target.Comment.Text Target.Comment.Text & Chr(10) & t & " " & IIf(Target = "", "清空", Target) End If End Sub

实用的VBA源码技巧，结合了性能优化和开发效率提升的实践： 关闭非必要功能 运行宏前关闭屏幕更新和动画效果： vba Application.ScreenUpdating = False Application.EnableEvents = False 完成后恢复以避免影响后续操作 。 使用 With 语句操作对象 减少重复调用对象属性的开销，例如操作单元格范围时： vba With Range("A1:B10") .Value = "Data" .Font.Bold = True End With 这能提升代码可读性和执行效率 。 强制显式声明变量 在模块顶部添加 Option Explicit，强制声明所有变

Sub db_excel() Dim conn As New ADODB.Connection Dim ConnectionString As String conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES';" conn.Open End Sub 就是一个简单的Excel数据库连接，代码没问题，但是运行到conn.open语句时很慢很慢，怎么也得5-6秒钟，严重影响效率，一开始是正常的啊，不知怎么就变慢了，百思不得其解，请各位大神帮忙解决，快崩溃了，谢谢

VBA 32位代码 如何转为 64位可运行呢？

请问如何用vba程序在一个单元格输入数据后另一个单元格自动累加

'设置地点网页元素的等待，可参考此类代码 sleep 1000'这边设置等待时间 Do Until Not WD.FindElementById("***") Is Nothing DoEvents Loop Do Until WD.FindElementById("***t").Enabled = True DoEvents Loop 尝试过很多种等待方式，上述亲测可用，先判断网页元素是否存在，再判断元素是否可用；前面可再增加等待时间；当然初次之外，针对有些网页，可对特定图标元素乳转圈圈啊，或者鼠标的状态进行判断；然后，对网页状态判断WD.ExecuteScript("return document.readyS

原先可以正常使用，但突然出现以上错误。

多个单独的excel表格，把每个表格4b位置的数提取出来，求一个代码小程序之类的，给大神跪了

申请人：@tmtony 申请感言：我有17年Vba开发的经验，是VBA前吧主，上月因姐摔伤双腿骨折需要照顾，没上贴吧，现重新申请吧主，履行贴吧吧主义务，管理好贴吧，并尽我最大努力给vba贴吧带来新的气象，也会定时给贴吧带来更多vba的教程和自己积累的vba技巧，并回复vba吧友们的问题。希望大家支持及获得贴吧管理员通过。

老哥们看看哪点有问题呀，下标老报错误，求老哥们解惑

Sub CDOSENDEMAIL() Dim CDOMail As Variant On Error Resume Next '出错后继续执行 Application.DisplayAlerts = False '禁用系统提示 'Application.ChangeFileAccess Mode:=xlReadOnly '将工作簿设置为只读模式 报错，所以用了下面那一句 Application.DisplayDocumentInformationPanel = True Set CDOMail = CreateObject("CDO.Message") '创建对象 CDOMail.From = "*****" '设置发信人的邮箱 CDOMail.To = "******" '设置收信人的邮箱; CDOMail.Subject = "" '设定邮件的主题 CDOMail.HtmlBody = &

比如第一个宏，是选择A1-3-5-7这几个单元格，第二个宏是选择A2-4-6-8单元格，第三个宏是B1-3-5-7，我想同时选中第一个宏和第三个宏，或是同时选中第二个和第三个，能实现吗？

为什么这个代码直接放进去跑不了？ Private Sub WorksheetChange(ByVal Target As Range) Dim cell As Range ' 确保只在J列进行操作 If Not Intersect(Target, Me.Range("J:J")) Is Nothing Then 网页链接= False ' 关闭事件以避免无限循环 For Each cell In Intersect(Target, Me.Range("J:J")) If 网页链接= "A" Then ' 将K到P列的单元格设为灰色 Me.Range(cell.Offset(0, 1), cell.Offset(0, 6)).网页链接= RGB(192, 192, 192) ' 灰色 Else ' 将K到P列的单元格清除背景颜色

为什么打开师兄传给我的VB半成品，会显示这个啊，VB又跟CAD有什么关系？

现在VBA的前景如何？ AI会不会替代人工编程？

工作需要，想学excel的vba应用，主要是从多个sheet里，按一定规则，提取符合多个条件的内容，自动生成另一模版的PDF文件。付费，线下，天通苑，周末~

数据区域在表1，命令按纽在表2，当点击按纽后则自动跳转到表1有数据的下面一行，谢谢！

工作需要使用vba，但是不清楚有没有什么问题

如图。 1、请开启宏 2、点击按键后，请选择一个文件夹 3、自动在这个文件夹内新建一个“文件目录”的ECCEL文件 4、在“文件目录”自动新建一个“文件目录”sheet， A列是文件名称，B列是链接（点击可以直接打开文件）C列是文件最后修改日期。 5、有要的留邮箱。

一、递归 '===递归遍历指定文件夹及它所有子文件夹===已知文件名开头几个字母，求文件全路径===================================== Function GetRecurFile(sFolder_Path As String, sKeyword As String) Dim oFSO As Object, oSelFolder As Object, oFile As Object, oSubFolder As Object Dim sA As String, sAA As String Dim arrA As Variant Set oFSO = CreateObject("Scripting.FileSystemObject") sA = "" '--First Time / traverse the Current folder------- For Each oFile In oFSO.GetFolder(sFolder_Path).Files If Left(oFile.Name, Len(sKeyword)) = sKeyword

8. 使用常量代替硬编码值 作用：提高代码可读性和可维护性。 示例： Const SheetName As String = "Sheet1" Const ColumnA As String = "A" Sub UseConstants() Worksheets(SheetName).Range(ColumnA & "1").Value = "Hello" End Sub 好处：避免魔法数字，修改时只需更改常量定义。 9. 模块化代码（分解Sub/Function） 作用：将复杂任务分解为多个小模块，提高代码复用性和可维护性。 示例： Sub MainProcess() Dim data As Variant data = GetData() ProcessData data SaveData data End Sub Funct

实用的VBA源码技巧二 禁用/启用屏幕更新和计算 作用：减少屏幕刷新和自动计算，提升代码执行速度。 示例： Sub OptimizePerformance() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' 执行耗时操作 Dim i As Long For i = 1 To 10000 Cells(i, 1).Value = i Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub 好处：显著提升代码运行速度，尤其是复杂操作。 6. 使用自定义函数（UDF）扩展Excel功能 作用：在Excel中直接使用VBA编写的函数

在表格中输入多种圆直径及对应数量，点击计算后自动求出其最小外切圆

请问看完了 全民一起vba（基础，提高 ，实战）后，还有什么vba教学视频推荐的呢？

各位老师好，这个有什么公式可以解决吗，在一个Excel表格里，举例如果N2-B2＜0，那么B2的单元格填充颜色变成红色，如果N2-B2＞0，那么B2的单元格填充颜色不变，继续计算N2-B2-C2，如果N2-B2-C2＜0，那么C2的单元格颜色变成红色，如示例

经核实吧主tmtony 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 vba吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

经核实吧主tmtony 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 vba吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

我用find找“8:15”这种时间格式的单元格然后返回行号，刚写完第一次没问题，然后批量做测试跑到第遍Excel闪退之后，让另一个人试就死活在find这个地方一直nothing跑不下去，然后我自己试也不能跑了，一直nothing。 把对应单元格格式固定成“8:15”不行，在find之前用“h:mm”刷一遍格式也不行，就是一直nothing，然后Ctrl+f调用查找与替换功能，发现查找的内容变成了“8:15:00 AM”而不是我要的“8:15”，然后尝试把要被find的单元格格式改成“h:mm:ss AM/PM”

因原贴意外走失，现重新分享出来。 Datamatrix（DM) 码是一种高密度，高可靠性的矩阵式二维码，其发展要早于QR码。因其小型，存储信息量大的特点，被广泛应用于生产制造，物流管理和零售商品等方面。 现在公开出来的DM码生成工具，都是需要付费的软件或第三方插件，或者是有数量限制的试用版。 本例原代码分享的是用VBA自动创建DM码，无需安装任何第三方的软件或插件。关注后发下载码 下载链接: 网页链接

Excel文件所有sheet合并在一个汇总表格里，怎么实现

Sub DivideByTenThousand(sourceRange As Range) Application.ScreenUpdating = False ' 禁用屏幕刷新 Application.Calculation = xlCalculationManual ' 禁用自动计算 Dim inputData As Variant Dim outputRange As Range Dim i As Long, j As Long ' 一次性读取原始数据到数组 inputData = sourceRange.Value ' 设置输出区域（源区域右侧一列） Set outputRange = sourceRange.Offset(0, 1) ' 处理数据数组 For i = LBound(inputData, 1) To UBound(inputData, 1) For j = LBound(inputData, 2) To UBound(inputData, 2) If IsNumeric(inputData(i, j)) Then inputData(i, j) = Round(inputData(

本人不太懂代码，这个代码是抄的。挺急的，谁能帮解决？可以悬赏一杯咖啡。小弟经济有限。 情况是这样的，本人有多台电脑组成了局域网，平时需要在不同电脑打开同一个表格同一单元格统计数据，我需要记录单元格以前的历史数据，就抄了一个VBA代码。平时都是把表格共享出去，但是共享的时候，无法同时打开表格。于是我开启了共享工作薄。 但是开启了之后，我在另外一台电脑同一单元记录数据的时候，他会把以前记录的历史数据在重复记

求助各位 把设备明细表中柜号对应的型号规格数量依次批量复制到工作表“明细”行“元件名称”与行“箱体之间的列C列D列E区域的单元格中 这个可能有点难度 谢谢各位了