不知道是代码问题还是电脑计算过程中四舍五入的问题，我运行的结果和答案不太一样。请问应该如何修改？（图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区域的单元格中 这个可能有点难度 谢谢各位了

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

网友们，我需要用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

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

各位大佬啊，没想到啊我也有这一天啊，来来来，吧里之前应该有人求过的，当时我也讨论了，但没有好的解决办法，现在轮到我自己索要啦，麻烦大佬提供点思路哈，无外乎遍历.xlsm文件，然后进行删代码操作

下面代码中，K值从0到6，即总共7行。此代码生成的7行，第3行和第2行中间隔了30磅。 是我想要的效果。反之，如果把-换成+，下面5行会向上移动30磅。 我的问题是它为什么不是+而是-呢，也就是符号为什么是相反的？ Controls(i).Top = 10* (k + 1 - 3 * (k > 1))

VBA打开状态，光标选定程序某处，按F8想逐行调试代码 但此时却弹出WIn11任务栏中的“推荐”和“快速搜索” 使用VBE调试工具栏，用鼠标点“逐语句”可以逐行调试 但我想恢复按F8可以逐行调试的功能，怎么办，请教大佬了，万分感谢！

有没有一种可能，你需要批量修改照片的大小？ 有没有一种可能，你需要批量修改所有子子子文件夹内所有图片的大小？ 有没有一种可能，你需要在保持长宽比的前提下，按百分比批量修改图片的大小？ 有没有一种可能，你需要把现有图片批量修改到统一的长宽像素大小？ 上述所有可能已实现，无需借助任何第三软件，纯VBA代码实现。 原创原码分享，点赞过10，即公开下载链接 #批量修改图片大小#

在VBA工程的ThisWorkbook对象中写入了一段关闭前执行事件： （1.工作簿和其中的工作表都有密码保护了，所以要先解密然后再修改然后重新加密；2.为了方便找出哪部分运行异常，所以用弹出信息框的方式隔开了；3.代码前面的“√”代表能被正常执行的，“×”代表无法正常执行的。） Private Sub Workbook_BeforeClose(Cancel As Boolean) √ MsgBox "A" ×ThisWorkbook.Worksheets("Sheet1").Unprotect Password:="ABC123" √ThisWorkbook.Worksheets("Sheet1").Range("A2&

用了以下VBA代码 但运行无反应： Sub FillColumnBWithUniqueRedFontCell() Dim ws As Worksheet Dim cell As Range Dim currentRow As Long Dim lastRow As Long Dim redFontColor As Long Set ws = ThisWorkbook.Sheets("sheet1") redFontColor = RGB(255, 0, 0) lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).row For currentRow = 2 To lastRow For Each cell In ws.Range(ws.Cells(currentRow, "E"), ws.Cells(currentRow, "J")) If cell.Font.Color = redFontColor Then ws.Cells(currentRow, "B").Value = cell.Value Exit For End If Next cell Next currentRow En

VBA写代码NumberFormatLocal=“hh:mm:ss”为什么yyyy-mm-dd hh:mm:ss能识别yyyy-mm-dd_hh:mm:ss就不能了

如图，C74填写（D2:D51）中 ≥ D54数据的个数 C75填写（L2:L51） 中 ≥ D54数据的个数 C76填写（T2:T51） 中 ≥ D54数据的个数 C77填写（AB2:AB51） 中 ≥ D54数据的个数 C78填写（AJ2:AJ51） 中 ≥ D54数据的个数 C79填写（AR2:AR51） 中 ≥ D54数据的个数 然后：C85填写（E2:E51）中 ≥ E54数据的个数 C86填写（M2:M51）中 ≥ E54数据的个数 C87填写（O2:O51）中 ≥ E54数据的个数 C88填写（AC2:AC51）中 ≥ E54数据的个数 C89填写（AK2:AK51）中 ≥ E54数据的个数 C90填写（AS2:AS51）中 ≥ E54数

如何点击一个点就获得坐标呢 我尝试添加事件但是怎么都实现不了

如图所示

同一个表，未做任何改动，在WPS中的VBA中运行没有问题，正常运行，正常输出结果，可用MS的VBA就出现了下图的这个异常，请问这是为什么，什么原理啊。

我又有五子棋可以玩了 嘿嘿 不会用excel干什么运营

https://www.cmzj.net/mediaArena/home 类似上面这种网页，右键“查看页面源代码”，看不到页面实际显示的内容，盼高手给支支招！

之前用函数设置但是求和的单元格太多了，导致整个表格反应很慢。 设置检查sheet"数据"b3：b不为空值时，求和以下的列。 q=BA+BQ-AS-BI-BY+CG R=BB+BR-AT-BJ-BZ+CH S=BC+BS-AU-BK-CA+CI T=BD+BT-AV-BL-CB+CJ U=BE+BU-AW-BM-CC+CK V=BF+BV-AX-BN-CD+CL W=BG+BW-AY-BO-CE+CM X=P:W Y=,J*X

ws.Cells(currentRow, currentCol).Value = "=="语句执行失败 提示方法value作用于对象range时失败 ws.Cells(currentRow, currentCol).Value = "="语句执行成功 请大神解答一下。。

Sub宏1() 宏1 参数设置 Dim r，m，u，v m = Val(InputBox("你要生成多少行题目：（输入数字）", , 20)) u = Val(InputBox("你要生成几以内的运算题：（输入数字）", , 100)) v = Val(InputBox("只需要加减法请输入2；加减乘除都需要请输入4：（输入数字）", , 4)) Range(Cells(2, 1), Cells(m, 10)).Select Selection.ClearContents '清除选区内容 r = 2 循环体 Do 'doloop语句表示执行返回直到情况为止 Cells(r, 1) = WorksheetFunction.RandBetween(1, u) Cells(r, 3) = WorksheetFunction.RandBetween(

如图，一运行就提示没有for ，可我明明就有。

图片中arr 就是代码下面附图的部分内容。怎么实现注释中for循环的内容。我自己试了一下。不得行。双引号中怎么显示变量的值哦，看下大佬们又啥办法没。

set xlWorksheet = xlApp.Workbooks("Tool").Sheets(1) 这段提示“阵列索引超出范围” 请问是什么原因？ 确定excel工作簿已经打开且工作簿和工作表名称都没问题。

有无大手子拉一把

我有一个工作簿，内有100多个sheet，如何实现一个sheet一个数组？ sheet后面可能还会增加。希望将数组的名字使用sheet的名字。 有办法的朋友还请帮帮忙，谢谢

向各位大神求助提取公式，比如A1=2,23,0,1,-2,40,-10,9,-15,-6,20要从A1里提取2＜25的数值到B1里也就是B1=23,9,20有没有公式可以实现

不知道怎么描述，顺序处理少量文件，其中有个变量不会丢失；但若处理多个文件，如10个，那这个变量就会丢失（空值），这是为什么啊？因为单个文件或者少量文件并不会丢失这个变量，所以无法排除

工作簿c中的数据赋给工作b上，数据都是相同大小的区域 c和b都是带扩展名的Excel表名称。 Dim b As Variant Dim c As Variant Workbooks(b).Sheets("表一").Range("B11:D15").Value = Workbooks(c).Sheets("工程总表(表一)_01").Range("B11:D15").Value 可以运行！ 但是Workbooks(b).Sheets("表一").Range(Cells(11, 2), Cells(15, 4)).Value = Workbooks(c).Sheets("工程总表(表一)_01").Range(Cells(11, 2), Cells(15, 4)).Value就显示"应用程序定义或对象定义错误"无法运行了 我就