大佬们，自己检查没发现问题，一直提示这段代码有问题，错在哪呢？

代码如下<input type="radio" name="radio" value="1" >男<input type="radio" name="radio" value="2" >女。如何用excel vba选择网页的二选一按钮

不同的两个宏想通过一个按钮执行

运行到Wb.Close False 这行代码关闭Wb工作簿时会把代码工作簿一起关了。第二次循环到该句前一句时就报错，请问各位是哪里的问题。 Option Explicit Sub test() Dim n%, m%, Folder$, File$, Wb As Workbook, Time!, Time1!, Time2! With Application.FileDialog(msoFileDialogFolderPicker) .Show '打开文件夹 Folder = .SelectedItems(1) & "\" '文件夹路径赋值 End With Time1 = Timer '提取当前时间 'Application.ScreenUpdating = False '冻结屏幕 File = Dir(Folder & "*.xlsx") '遍历XLSX文件 Do Whi

EXCEL表格中有A.B.C三个数据，通过VBA实现一键更改WORD中A.B.C三个数据并生成新的word 求求求

谷歌浏览器打开总是显示这个界面，请问是什么原因

在一个网页，输入要搜索的文字后，需要点击一个搜索按钮，然后才会搜索，检查源代码，如下<button type="submit" name="operate" value="query" class=" waves-effect">查询</button>。如果在vba里面，要怎么让它自动点击这个按钮，已经实现了让它自动在搜索框填写内容。

我就是想操作剪切板，但是死活是找不到Microsoft Forms 2.0 Object Library, 我专门运行管理员把Forms2.0注册了，显示成功，但依旧找不到，有人有类似情况吗？

大神们帮忙看看呗，是哪里写的不对，谢谢了！

来个大佬分享一下呗

VBA代码，添加了二维三级联动后，就没有办法运行了，老是提示，图片里有详情，希望大佬帮忙看看，太感谢了！

问题描述如下，请大神帮忙解惑 Sheets("深南 L").Activate bbb = Sheets("深南 L").Range("A1048576").End(xlUp).Row For aaa = 3 To bbb Step 1 mm = Sheets("深南 L").Range("B" & aaa).Value nn = Sheets("深南").Range("B:B").Find(mm).Row------问题点：如果找不到，不会清除上次的行号值，抓取数据是会沿用上一次的行号 With Sheets("深南 L") .Range("AR" & aaa) = Sheets("深南").Range("AS" & nn) .Range("AS" & aaa) = Shee

这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如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

上班电脑不知道安装了什么版本的WPS能无损打开我写的宏，但是当我把表格拿回家以后就算安装了VBA，WPS也不让我用宏了……

用Excel vba的Active sheet.pictures.insert("图片路径"）·select可以插入具体的某一个图片，但是怎么让它自动插入图片文件夹下的图片，从第一个开始，在不给它具体图片具体名字的情况下

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

各位大神们帮忙看看有没有什么公式可以实现图中效果。如图所示，I2:N6每一行单元格对应B2:G20区域内每一行单元格。如果有相同的在O列显示A列的数值，没有相同就不显示,有多个相同就用逗号隔开显示出来。比如I2:N2在B2:G2中有B2和I2，D2和K2相同，E2和L2相同，G2和N2相同所以O2显示A2数值。

求高手排一个值班表，各部门值各部门的班。

各位大佬求助，现在需要在左边表格中，根据类别那一列，找中间边表格中的关键词，中间表格B列有对应的关键词，就出来C列的目标词， 现在的做法是最蠢的，把东西全部放上去，一个一个的找，这样子导致，我漏的东西，再增加关键词和目标词，就要重新编写一遍公式，这还是数据少的部分，还有关键词对应目标词上百个的，求大佬帮忙想个公式解决 1.查找出关键词，写入对应的目标词 2.根据写的分类，提取需要的参数1到5 3.提取出的目标词，按

在家里电脑用的好好的，到办公室电脑(2016专业版)点几次就报错，请大神给看看

CPxilie = Application.Sum(1 / Application.CountIfs("B2:B21", "B2:B21")) CPxilie为整形变量，结果， 获取不同内容单元格数量给怎么做啊？

现在有一些文本，如：湿面筋含量(14%湿基)为29.2%，希望匹配到目标文本后第一个不在括号内的数字，即29.2，利用如下表达式：面筋[^\d]*(\d+(\.\d+)?)(?![^\(]{0,10}[^\(])，无法匹配到数字，这是为什么。

我需要在C列，根据B列的名字在文件夹里找文件，并创建超链接，但是我的文件名有些是范围登记的情况，有没有大佬帮忙指导一下写个代码，档案号的格式都是(字母--编号)，拜托各位大神，用Ai怎么都描述不出我的需求。

大佬们我有个word打开Excel，使用excel内容的vba，之前运行良好，但最近在没有任何改动的前提下报错找不到vba6.dll，一顿操作修改好后运行createobject("shell.application")后崩溃，请问是啥原因？试过引用excel.exe和shell32.dll了，提示与已有模块或对象冲突

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

如下图，，公司电脑，vba用不了。。

怎样用VBA在CDR中插入二维码？有没有大佬给写一段代码！！！跪求！！！

A列共9行数据都是900，第一步从9行数据中随机抽取4个减去1000输出到B列（未被抽取的等于A列对应的值）， 第二步从大于0的数据随机抽取4个减去1000输出到C列（未被抽取的等于B列对应的值）

这段收到这个提示 是咋回事呢

不知道是代码问题还是电脑计算过程中四舍五入的问题，我运行的结果和答案不太一样。请问应该如何修改？（图1是答案，图2是我计算出来的）

Sub SendEmailWithAttachment() Dim OutlookApp As Object Dim OutlookMail As Object Dim AttachmentPath As String On Error GoTo ErrorHandler Set OutlookApp = CreateObject("Outlook.Application") With OutlookMail .To = "19609057@qq.com" .Subject = "hi" .Body = "t" .Attachments.Add "C:\Users\wangshuyuan\Desktop\load\t.txt" .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing Exit Sub ErrorHandler: Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

这段vba的问题出在哪里？代码上面的部分我是做了一个合集，因为需要把一个总表的数据，按照对应的港口名称分别打开不同的表格进行数据更新。经过测试，在原数据表中找到正确数据是可以做到的，但就是没有办法在目标数据表中找到对应的位置进行填入。这个function的问题在哪？目标表格的格式还是固定的，拼写也没有问题。求解答，有意向的留言或者私信我需要更多信息的话

通过百度网盘分享的文件：1_娱票儿票房分… 链接:https://pan.baidu.com/s/17cKAK4pNFb9p8DB5Nz4tvg?pwd=vt8v 提取码:vt8v 复制这段内容打开「百度网盘APP 即可获取」

发附件，附件中或回帖中说明需求。附件可以上传至自己的网盘或其他办法，然后链接发给我

sql语句中有中文就乱码，插入数据时有中文就是一堆问号，将vba中的字符串直接复制运行却没问题，通过Execute运行就乱码。求大佬赐教

---------------------------------------- 要求：使用VAB，自动生成上面的图形， 注一：单元格，里面是一个小圆圈 注二：小圆圈要一秒钟画一个，最后全部画出来，会构成 [四边形+对角线] 注三：不能使用其它的延时函数，只能使用 Application.OnTime 来控制每秒时间 --------------------------------------- 新手来学习下，老手也看过来哈

本例为楼主的原创代码，功能为： 1. 自动检测Word文档中的英文单词。 2. 在每个英文单词后边自动加上它的英文音标。 无需安装任何软件，第三方库，纯VBA代码，原码奉送给有需要的你。

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

网友们，我需要用vba打开指定路径的工作簿，但是因为一些原因出现报错，希望求得解决，缺少的信息问我我就补齐他

vba 真的不能jianting 全局键盘吗？ 用vba 做了一个窗体，在某种情况下隐藏了，焦点转移到其他地方，之后想用快捷键恢复 找了半天资料，好像只有用hook处理，但是写了一段代码，根本拦截不到按键？ 只有一条路：用VC 写这些代码然后封装成 dll ，再用vb调用？

背景：版本为excel2019，目标操作一组超级表，鼠标已定位在超级表中单元格中。求以下需求的VBA代码：1、点击“数据”选项卡下的“自表格/区域”，进入power query界面；2、选中power query页面下的全部数据，将所有内容数据类型设置为“文本”；3、选中前18列，进行“逆透视其他列”操作；4、关闭并上载至新工作表。

请问用公式怎么将左边的表格转换成右边的表格，根据柜体名称前面的数字是否相同进行归类，如若不同，下一行补空行，并且空行下一行最左边的序号重置为1开始计数，同时需要检测到下面没有内容时自动停止输出。

“zan 彩色图像打印机”是虚拟打印机，我的使用是将excel文件虚拟打印成jpg格式。打印输出后的文件名称可有序号，但每次需重新修改初始文件号，同时后续仍需重命名，较为繁琐。 其宏最下选项有“正则表达式文档名”，可提取被打印文件名部分字符（可与序号联用）或者提取被打印文件内部内容字符作为输出文件名，因没有学习过正则表达式，只能通过该打印机查看帮组摸索使用。 1.保存项下，选择正则表达式文档名选项； 2.设置项下，点击文

Sub OutputWithAllFontsInWord() Dim doc As Document Dim para As Paragraph Dim targetText As String Dim fontNames() As String Dim i As Long Set doc = ActiveDocument targetText = "示例文字" '设置要应用字体并输出的目标文本，可按需修改 fontNames = Application.fontNames '获取Word应用程序中的所有字体名称列表 '在文档开头添加一个段落用于输出 Set para = doc.Paragraphs.Add para.Range.Text = targetText & vbCrLf '先写入目标文本并换行 For i = LBound(fontNames) To UBound(fontNames) para.Range.Font.Name = fontNames

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

各位高手 想让选项乱序，用了vba 由于Application.WorksheetFunction.RandBetween 在vba 2003里不能用 所以写了函数代替 运行后报错rng.Cells.Count = intb （函数过程）编译错误 错误的参数号或无效的属性赋值 请问如何修改 Function RANDBETWEEN(ByVal inta As Integer, ByVal intb As Integer) Dim rng As Range Dim i, j As Integer i = inta rng.Cells.Count = intb RANDBETWEEN = Int((intb * Rnd) + inta) RANDBETWEEN = j End Function Sub RandomSortRange() Dim rng As Range Dim i As Integer Dim j As Integer Dim temp As Variant Set rng = Sheet2.Range("C2