Office365的Filter公式实现一对多查询真的好用，'F3单元格'一键Enter，自动溢出即可完成多行数据筛选。 但是用VBA怎么写呢？worksheetfunction下有Filter属性。

我做测试，需要通过GPIB连接测试器，另一台电脑上的excel里有一个VISA COM 1.0 library，但是自己的excel里面没有，这个可以手动添加嘛

大佬们这个怎么解决啊

Excel里，J列下拉框选择“A”，则同一行的K～P列就会变成灰色的。百度出来的VBA代码都跑不了

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

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

之前写的代码一直都运行好好的，今天突然运行很慢很慢，不知道是什么原因。期间把文件换了存储位置，其他也没有别的操作。谢谢高手指教

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

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

为什么这个代码直接放进去跑不了？ 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列的单元格清除背景颜色

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

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

求助一个问题 如图 需要一串代码

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

VBA列表框里的数据怎么添加边框

大学生需要做一个这种的系统作业这种怎么做啊

wps2019如何让自己写的代码能在任意一个工作簿的功能区(菜单栏)上运行

为啥我的这个代码一直显示 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事件，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