用了以下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

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

如图，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数

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

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

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

如图所示

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

同一个表，未做任何改动，在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就显示"应用程序定义或对象定义错误"无法运行了 我就

麻烦熟悉的大佬给看看。用api函数给frame控件背景弄成透明的，frame控件里的label控件上的字会跟着变透明吗？

各位大佬，想问下，就是我有很多文件需要用到同一个VBA程序，我在其中一个文件中编写好了程序，除了给每个文件重新复制粘贴这个程序外，有什么办法可以直接应用吗？文件太多了

有一个表格模版每一次需要将上个月表格移动到历史文件夹中再将模版复制到当月文件夹中且表格名称为模版yyyy-mm用vba这么做 作了两天没有搞明白

带有VBA的excel表格，在wps的协作模式下出问题，求大神解决！就是最近出的问题，只要在协作模式下编辑任意内容，保存后再正常打开，所有命令按钮就变灰了，也点不了了，找了wps客服，他们都说是wps在协作模式下不认“”对象“，但之前一年的时间也没这个问题呀。

根据前原始数据表在排班表中进行匹配的流程，整了后一直报错

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

随时欢迎找我咨询数据处理及vba相关问题和程序，本人从事相关工作很多年

求助

代码中也设定了边界。不存在死循环。第二张图是运行后 也得出结果了。但就是要卡住了。是我处理的数据太多了？

想将目的单元格内的文本计算成数值，一直显示#VALUE!,咋整

第一张图是BS模型的代码，要放在后面的文件里进行期权定价，寻找套利机会，之前没接触过编程，求大佬们解惑#求助##VBA##Excel##期权定价模型#

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

哪位大佬可以帮忙写一下或者接单的呀，自己录制的总是出错，而且总会有没用的代码出现

家人们，我想通过编程把word里的表格转化成excel ，这个代码为啥老是显示application.Clean编译错误捏，改成application.WorksheetFunction.Clean也没用

word文档如何利用选择非标题、非表格、非图片的内容

整了个扫雷 红旗整不出来 chrw(&H1F6A9直接暴毙) 先用五角星代替了

设计多个表格的整合以及计算公式，要设置几个筛选条件，根据筛选条件确定计算逻辑，计算逻辑都不一致。 好复杂，问ai都问不出来，我才疏学浅，讲都讲不清楚，有没有大佬帮忙。 跪谢🙇

求大佬看看什么情况

请问一下，如何把thisworkbook中事件程序封装到xlam的加载项中？在别的表格中可以运行加载项的thisworkbook事件程序？

就像这么复制都要运行好一会，之前都还好好的 Sub fz() n = 1 For i = 1 To 20 Set ra = Range("c" & i) ra.Copy Range("e" & n) n = n + 1 Next End Sub

根据单价，自动在备注列生成带特定文本的编号，这种效果怎么用VBA实现？

我想要批量替换word中的章节序号，例如：把第一章替换为第001章……，在网上搜索到这个代码，但是在运行时出现错误，请问各位大神要怎么改呢？

改成18或者24点击确定后又自动变成16了，变小可以，变大就锁定在16了

原代码是用窗格列出匹配项，手动选择自动填充的，我现在想要修改下。 求助大佬修改下代码，不胜感激！ 如果没有选择候选窗格的内容，就清空输入值。 如果选择了候选窗格的内容，就把该内容填充到D列最后一个有内容的单元格的下一格位置，并且把该内容最后两个字的拼音首字母填充到E列对应位置。 填充内容后，检查D列的数值是否有超过6个字符相同，就弹出窗口列出有多少数值是超过6字符相同的。 网盘上有附件，里面有详细说明。求大佬