学校要求做一个可以修改论文格式的，但是我做了好久也达不到要求，目录和标题排序一直有问题

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

怎么解决才行？可能是他们用了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日则停止弹窗。谢谢！

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

大佬们，用excel的VBA群发邮件，能实现邮件正文的颜色，和在单元格中输入的字体颜色一致吗？（比如第二句是红色，其他都是黑色）。

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

一个VBA程序：在EXCEL工作表“作业令填报”中将B列至S列单元格中的数据以文本的格式依次填入A列文件名的word文档中的[B]、[C]、[D]、[E]、[F]、[G]、[H]、[I]、[J]、[K]、[L]、[M]、[N]、[O]、[P]、[Q]、[R]、[S]书签处，发现一处填写一处，依次填写完成所有文件；EXCEL文件和word文档在同一个文件夹内。 以下是代码： Sub FillWordBookmarksFromExcel() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("作业令填报") Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row &#

用同一个workbook中sheet1的A列7行开始以下所有的vendor code在sheet2的内容中搜索 如果没有这个code 就pass 如果有 继续判断该code的h列内容是否为JQ 、不是的话pass。是的话 要提示（比如整列标红）、完全没思路呀 大佬们

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

最近招聘网站有个南昌的VBA开发工作，我前几天坐五个小时的高铁去面试了，面试地点是个居民楼，面试官连VBA是做什么的都不知道。后来刷了下当地的论坛，发现那栋楼是专门骗人去面试的，遇到看起来好骗的就让人交培训费和服装费

背景：2个工作簿、把一个工作簿的datasheet中一些列的数据、copy到qc表的固定列（不是连续列）、data表中的数据有前期加工所以是有筛选的状态。 目的：拿r列举例 我想的是因为想要copy的range地址不固定所以要找到R1下面单元格是首个数据单元格、最后列数据是最后行的单元格（因为有多列数据要粘贴过去所以我想找的是最大行的地址、比如最大行是100、我copy的时候直接就r100、别的列的就A100这种） 我不知道是不是想的不对、刚刚接触vba理解太浅、请

问下大哥们，这个获取两个文件的最大行数怎么失败了

用for循环语句，赋值变量从1 to 10 如果输入错误，则提示对话框"输入错误"， 再弹出一个输入对话框重新输入 现在的问题是: 这个错误信息不知道放哪了。 向我下面这样输入的话，当n=2，我在input里面输入cell(3,1)的值，他也会跳到else，提示输入错误，求大佬帮忙 If StrPtr(m) <> 0 Then For n = 2 To t If Cells(n, 1) = m Then yw = Cells(n, 4) sx = Cells(n, 6) yy = Cells(n, 8) zf = Cells(n, 9) pm = Cells(n, 10) xm = Cells(n, 2) i = xm & " 你好" & vbCrLf & "你的排名: &

代码： Function 客户分类(s) Dim score, level, s score = s If score < 30 Then level = "温柔型" ElseIf score < 60 Then level = "冲动型" ElseIf score < 90 Then level = "暴躁型" Else level = "狂暴型" End If 客户分类 = level End Function 运行结果为“=客户分类(b2)”，没有显示按理说应该是“冲动型”，我确定b2是数字格式，然后客户分类这个自定义函数也是从自定义函数”直接引用的。所以大佬能不能帮忙想想到底是哪里出问题了呢。

Sub 无损检测数量统计表汇总() t = Timer 读取Excel数据 Rows_M = 7 '首页行数 Rows_M_bt = 5 '首页标题行数 Rows_S = 10 '续页行数 Rows_S_bt = 5 '续页标题行数 Rows = UBound(ar1) '数据行数 If Rows < 1 Then MsgBox "没提取到数据,请检查!": Exit Sub Set d1 = CreateObject("Scripting.Dictionary"): d1.CompareMode = vbTextCompare ReDim BR1(1 To Rows, 1 To 20) For i = 1 To UBound(ar1) kw = Trim(ar1(i, 1)) If Not d1.Exists(kw) Then m1 = m1 + 1 d1(kw) = m1 x1 = Split(kw, "-") BR1(m1, 1) = Split(Split(kw, "(&

如图,前3列为表中数据,第4列(红色数据)为想通过函数求和数据. 尝试做的,但不好用! Function Total(Code As String, DatF As Date, Xj As Single, n As Integer) As Double Dim rs As DAO.Recordset Dim Sql As String Dim Total As Double Dim Count As Integer Total = 0 Count = 0 Sql = "SELECT Top " & n + 1 & " Dat,Dm,Xj FROM usysA WHERE Dm= '" & Code & "' ORDER BY Dat DESC" Set rs = CurrentDb.OpenRecordset(Sql) Do While Not rs.EOF Total = Total + rs.Fields(1) Count = Count + 1 rs.MoveNext Loop rs.Close Set rs = Nothing End

本例为楼主的原创代码，功能为： 1. 自动检测Word文档中的英文单词。 2. 在每个英文单词后边自动加上它的英文音标。 无需安装任何软件，第三方库，纯VBA代码，原码奉送给有需要的你。

以固定位置内容搜索到的单元格为坐标、同时复制这个单元格以及它右边2个单元格、粘贴到固定区域 图片是例子 感谢🙏

希望有大佬帮忙解答一下: 需要实现内容如下: 弹出一个input对话框，填写姓名，然后弹出一个对话框，显示该姓名所对应的工资

求助吧里的各位大神，如何用vba实现把sheet1某一列（比如第二列）中非重复项筛选出来，并把结果输出到sheet2（或者自定义工作表名称）的某一列呢。谢谢啦

Sub GetAllValuesFromTbody() Dim http As Object Dim html As Object Dim tableElement As Object Dim rowElements As Object Dim cellElement As Object Dim i As Integer, j As Integer Dim cellText As String ' Create XMLHTTP object Set http = CreateObject("MSXML2.XMLHTTP") ' Send HTTP GET request to the website http.Open "GET", "http://quote.eastmoney.com/SZ000010.html", False http.send ' Create HTMLDocument object Set html = CreateObject("HTMLFILE") ' Load the response text into HTMLDocument object html.body.innerHTML = http.responseText ' Ge

Follow 网上提取汉字首字母的攻略， 为什么我的excel VBA asc返回的汉字ascii和其他人的不一样？ 通过机内码的补码转换成带符号的十进制确实和网上的攻略一样， 但是我的为啥每个汉字都和他们不一样呢？ 直觉告诉我应该是类似输入法设置问题。 来个高手

这里要在Excel里面做一个vba技术的宏起到一个出题的作用，我没学过，但是老师让我做，求求大佬，有偿

宏的安全性运行是打开了的，但人技术有限，没整明白，求佬帮忙改下

用了以下代码只能在office里新建菜单栏，WPS就不行了

这个水印，想不明白怎么让他的日期自动更新，然后就想整运行时删除原有水印，再添加新水印。但是能力有限，写不出来了，求助大神们帮忙

Private Sub CommandButton1_Click() Dim exePath As String exePath = 网页链接 & "\abc.exe" Shell (exePath) DoEvents End Sub 2024年3月23日之前运行一直没有问题 2024年3月23日 运行时错误5 无效的过程调用或参数 今天开始出现这样 office运行正常

我想做一个判断不符合条件，返回comment的Marco。求大佬帮助

这个显示的运行类型错误是什么意思，这会在做一个自动出题的vba宏，求大佬解答

我这个运行的时候是没有任何问题的,但是有一个要求让我犯了难. 因为这种文本框作为水印的形式使用之后是可编辑的,然后就会影响正文内容的编辑,因为我一点就直接进入到他那个水印当中去了.完全没有思路怎么改

这是一个从网上考下来的根据字段不同拆分成不同表格的语句，但存在一个问题，就是拆分出来的表格列宽是自动的，不是根据源表调整的，请问改怎么修改 Sub 拆分表格() 'updateby Extendoffice Dim lr As Long Dim ws As Worksheet Dim vcol, i As Long Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow As Integer Dim xTRg As Range Dim xVRg As Range Dim xWSTRg As Worksheet On Error Resume Next Set xTRg = Application.InputBox("请输入第一行:", "Excel Header", "", Type:=8) If TypeName(xT

哪位大佬能给出这题的VBA代码，在立即窗口中显示成这样倒式的乘法表

求大佬帮看看，怎么把第二个和第四个的计算结果保留小数点后两位呀

global为什么是错误的呀，求大神帮看看！

在开始聊EXCEL 对象操作之前，得先简单聊一下操作这些对象的上帝之手--VBA，它是以一种上帝视角方式在工作。那什么算上帝视角？上帝视角就是非人类的视角，它不须要遵循人类的习惯来运作，打个比方，你在客厅看电视，忽然困意来习想上床睡觉，你得先起身离开客厅，打开卧室房门，才能上床睡觉，这是人类的常规操作。而上帝模式下只需要一步，当你想睡觉时，上帝可以把你从客厅直接扔到卧室的床上，穿越时间空间，这就是上帝视角。你可

答题要求： 进入VBE后，按要求建立用户窗体和相应的模块以满足题目要求的功能。 图1. 学生英语考试成绩

我现在按钮，窗体都搞了，就是“并将统计结果输出显示在一张新建的名为“分段成绩统计表”的工作表上，如图3。最后将不及格人数，不及格率，优秀人数，优秀率统计数据显示在窗体，如图4。”这块不知道应该怎么把这个代码改一改，球大佬帮忙看看，代码在第二个图里，我圈出的部分是多余的

请问如果学会VBA，可否接单挣点外快呀？

VBA用新的SAP账号跑的时候跑出来报表都是空的，SAP账号需要做什么设置。确定VBA代码是没问题的，只是不知道SAP需要做什么设置。

移除是灰色点不了，选中单个表delete也没反应

图二圈出红色部分，这一块代码对应的是“按每10分一个分数段统计每个分数段的人数、百分比，并将统计结果输出显示在一张新建的名为“分段成绩统计表”的工作表上”这一步，我不知道哪里有问题(┯_┯)