现在exel里已经有一个答题系统的成品了，需要追加一个倒计时的功能。 一次答题有30道选择题，每道题限时5s，5s没答记为错误然后自动切换下一题。 关键在于这里倒计时的同时允许在用户窗体上进行作答要怎么弄

找了很多办法都试过了，没有用…… 特来请教…… 报错截图如下：

为啥我的这个代码一直显示 mismatch呀 range(“c2“)=application.worksheetfunction.filter(range(”wf!w:x”),range(”wf!w:w”)=”b2”,false) filter函数在表内直接输入返回的一个三行二列的数组 公司电脑 不方便使用贴吧 只能拍屏。还望见谅。

这个簿有4个表。 一个商品档案，里面编码字段是唯一的。 一个入库详情表是一个流水表有大量重复的。 一个出库详情表同入库详情表一个性质。 一个库存表，字段的商品编码是唯一的，是从档案表的编码去重得来的，其他字段都是匹配求和得到的。 表状态；现在表公式太多，卡住了，无法运行。 需要把入库详情表的入库数量字段通过依照商品编码求和➖出库详情表出库数量后的结果放在库存表的库存字段。 难点；需要在库存表的库存字段旁增加

Option Compare Database Sub a() Set 路径 = CurrentDb.OpenRecordset("字根路径", 2) 路径.Edit Set 图 = 路径!图示.Value For oi = 1 To 路径.RecordCount If 路径![no-] Mod 1000 <> 0 Then 图.AddNew 图.Fields("FileData").LoadFromFile "D:\时时乱码\AssetsOf醚芪\" & 路径![地址] 路径.Update 路径.Close End If 路径.MoveNext Next End Sub 在图.AddNew 报对象无效。3420 求解！

有没vba代码，自动登陆sap,下载文件并合并到excel文档内的，求大佬

求助，有什么办法把数量排一起，金额排一起？

请教一下，这个怎样解决，谢谢๑•́₃•̀๑

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

如题

Sub 打印28天报告1() Sheets("导入").Select a = Sheet1.Range("V12") b = Sheet1.Range("V13") Application.Workbooks.Open a Sheets("28天").Activate 'ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印水泥28天报告 ActiveWorkbook.Save ActiveWindow.Close End Sub

表格中插入形状指定宏，运行没有反应，程序没有问题，百度上的方法试了没用，咋设置啊

点进去是这个样子 一开始是好的 可能是我误操作点到哪里了 要怎么恢复

软件不给力，数组函数用了总出问题，能否用程序实现？

求助各位大神帮忙看看vba可以实现这个分列吗？如图所示A列是要分列数据，C2:F16是分列好想要的数据。要求是把A列数据分列时单元格里包含有"AG"这样两个相连的字符就忽略掉，只分列不含"AG"字样的数据。

求大神指教以下情况vba怎么写

程序里想判断是否纯英文字符，此处输出检查与实际不符，用msgbox检查结果如下 MsgBox ("***" & LenB(b(j)) & "***" & Len(b(j)) & "***" & b(j)) 表格内用此函数又是对的，说明不是全角半角问题

想用VBA调用API函数，然后获取一张图片每个像素点的RGB值

先随意用wps打开一个表，然后再用office打开这个xlsm文件执行宏。就会卡住报错，并且wps会打开一个只读的一模一样的文件。但是先用office打开xlsm文件，后开wps就没事。单位里大部分同事都用的wps，想wps开着的情况下，来执行offiec文件的宏。求大佬指点

想这样的excel数据表，想在里面提取归纳一些数据，他有些不是很规范，可以用vba实现吗？比如我需要将井段号，层号，压裂数据这些提取出来有办法实现吗

在一个共同题库中，随机抽取5道题，然后分别在5个label上显示，要求5次题目不能重复。下一个人再随机抽取五道题，也是要求不能重复，同时上一个人抽取过的题不能再次出现。一共有10个人 这个情况的话，到底是用抽取过的题移除还是给题库加一个标识符，抽过的标0，没抽过的标1。那种容易实现？又怎么实现啊？ 求大佬指导！

我想写个vba代码 实现日期的计算、B14的日期手动输入、通过识别I7单元格的条件 自动计算 一个日期 我的问题 ：1️⃣我想给B14单元格的日期赋值给一个date变量、但输出的是一个时间 、要怎么写呢 2️⃣关于I7单元格的条件、有些条件比较简单比如+30天、但有一些是 月末+30天（下月末）、这种情况要怎么写呢 感谢大佬们指导

用dir提取文件夹只有名称没有大小，像word excel这些单个文件都有大小，请问怎么回事该怎么写？

代码如下： Sub 显示成交() Dim t As Date Dim txtBox As Shape Dim txtbox1 As Shape Do t = Time ' 获取时间 ' 添加文本框 Set txtBox = ActiveSheet.Shapes.AddTextbox( _ msoTextOrientationHorizontal, _ Left:=1, Top:=1, Width:=370, Height:=170) ' 设置文本框的字体大小 txtBox.TextFrame2.TextRange.Font.Size = 48 ' 设置文本框背景颜色 txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160) txtBox.Fill.Visible = msoTrue ' 设置文本框字体加粗 txtBox.TextFrame2.TextRange.Font.Bold = msoTrue For i = 1 To Range("A1").End(xlDown).Row If Range(&quo

想做一个倒计时显示，点击按钮在text上显示倒计时数字，功能是实现了，但是只能点一次，下一次点击就不动作了。求教！（PPT中的vba）

这个lastr在2万左右。 主要是在第6列第3行单元格，插了个vlookup公式。 然后运行后就猛转圈，转了好久，有时候把表格卡无响应了。是不是写的有问题。

Microsoft Visual Basic 运行时错误'424’

Excel文件中有两个工作表：来料明细和生产需求，要求用VBA判断来料明细中的物料到厂日期和数量能否满足生产需求，并在相应的列中回复，具体要求如下： 1.通过生产需求工作表中的缺料料号在来料明细工作表中进行查找相应的来料日期、来料数量。 2.将上一步中搜索的结果在生产需求工作表中进行判断并反馈：E列输入到厂日期、F列可分配数量、若F列数量能满足生产则在G列输入“”OK“”，否则输入“”NO“” 小白求大佬帮忙写个VBA，谢谢~

请问各位大佬，在Excel和其它软件里运用vba语句“application.ontime”，然后一直报错无法运行宏，但是宏安全性里以及设置了“启用所有宏”，这是什么问题，需要怎么解决？谢谢了

excel 中power query，可以连接外部数据。 现在用vba可以实现自动刷新所有查询连接。 希望：用vba更新某一组中的查询连接 AI给了个方案，无法实现，哪位大侠指点一下，能实现吗，谢谢啦

请问一下各位大神，我在Factorytalk View里用VBA语句编程，然后发现class里有两个application语句：一个member of Excel，功能全；一个member of displayclient，功能少。我应该怎么在编程中运用Excel的那个application啊？

问题：一段代码运行后，d列呈现选中状态 目的：希望定位到a列非空单元格的下一行。 例如A列有数据100行，定位到A101这个空单元格，实现取消d列选中状态的目的 ------------------------------------------------------------------------ 用 Range("A1").Select可以运行，能实现需求 希望把[“A1”]替换为变量 Set nextRowCell = ws.Range("A" & lastRow + 1) 这个代码如何修改 --------------------------------------------------------------------------- AI提示【nextRowCell.Activate】【nextRowCell.Sele

怎么将a列的重复值数量填写到b列，没有重复的b列就写1，重复的就在b列累加求和，并删除重复行

请帮忙看下，都到这里了还报错，想不明白了

自己学了下 写出的代码 有问题 （显示对象的属性方法不对啥的）求大佬帮助、提醒下、或者帮忙修改下！谢谢

下面是一段代码，复制工作表中最后一行公式，在下面粘贴5行。 引发 一个小问题，d列设置了条件格式，d1：d1000（1000是最后一行）。 复制粘贴了5行后，这5行单独应用了同一个范围d1001：d1005.前面的d1：d1000没有变。相当于两个独立的条件格式。 现在希望用vba达到效果：复制粘贴5行后，修改条件格式应用范围，将d列已经设定的（1-1000）和新复制的（1001-10005）统一为d1：d列最后一行 哪位大侠帮帮忙，谢谢 AI给出的代码，提示对象不支持该属性或方法

这是物流运单，需要将第二个表中的内容引用到第一个相对应的位置里，求高手给棒棒忙，这个用vba怎么怎么做，谢谢了

有没有大佬帮忙修改一个程序，加一个密码解锁的功能，模块已经弄好，有偿帮忙，谢谢

怎么解决才行？可能是他们用了wps

求注释以下代码，前面的看懂了，就是把数据放入字典，后面的是啥意思啊？只会简单的匹配小白。能解释通俗点。谢谢大神 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim arr Dim i Dim d As Object Dim Rng1 As Range arr = Worksheets("咖啡因数据源").Range("D1").CurrentRegion Set d = CreateObject("scripting.dictionary") For i = 2 To UBound(arr) d(arr(i, 2)) = arr(i, 3) Next i For Each Rng1 In Target If 网页链接 = 12 Then If d.exists(Rng1.Value) Then Rng1.Offset(0, 1).Value = d(Rng1.Value) El

如图：在以后每年的6月27日和7月27日【提前2天】开始弹出窗体提醒生日，超过29日则停止弹窗。谢谢！

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