图1 图2 这个用函数实现的多条件求和，但是函数太多了就有点卡，如何用vba实现这个功能

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

第一题是完成对黄色输入内容进行验证，b2格必填，b4格只能填男或女必填，b5格要求1到100并且必填，点击按钮进行验证，如果通过验证弹出输入内容，如果没有通过验证弹出不合规的条件 第二题是完成输入各科成绩，点击按钮计算每一列总和，和平均数并且弹出成绩最好的人名字跟成绩 第三题是复制区域形状粘贴到下面位置四块，第一块为正常复制，第二块水平粘贴，第三块垂直粘贴，第四块水平垂直粘贴。 第四题是点击第一个按钮选中一个csv文

设计多个表格的整合以及计算公式，要设置几个筛选条件，根据筛选条件确定计算逻辑，计算逻辑都不一致。 好复杂，问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程序，我在其中一个文件中编写好了程序，除了给每个文件重新复制粘贴这个程序外，有什么办法可以直接应用吗？文件太多了

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

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

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

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

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

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

[url]http://看了excel工具-》选项-》编辑器格式确实没有配置上。但是选宋体之后不生效。[/url]

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

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

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

大佬们这个怎么解决啊

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

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

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

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

有没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函数在表内直接输入返回的一个三行二列的数组 公司电脑 不方便使用贴吧 只能拍屏。还望见谅。

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实现吗？比如我需要将井段号，层号，压裂数据这些提取出来有办法实现吗