Sub 数码打印计价() Dim x For x = 150 To 155 If Cells(x, 3) = "生产" Then End If Next For x = 150 To 155 If Cells(x, 15) = "" Then Cells(x, 16) = 0 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then Cells(x, 16) = 10 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then Cells(x, 16) = 18 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) =

禁用了第五列 2到10行的粘贴功能代码，但是实际操作，发现整个第五列都不能粘贴，请大神帮忙 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Then If Target.Row > 1 And Target.Row < 11 Then Application.CutCopyMode = False Else Application.CutCopyMode = True End If End If End Sub

各位大神，请教一下这个该怎么办呀 小白不知道哪错了

本人不懂vba..在网上搜到如下方法 即禁用了第五列 2到10行的粘贴功能，里面的确设定了2到10行的代码，但是实际操作，发现整个第五列都不能粘贴，当然这个不是问题，本来我就希望禁止掉整列的粘贴功能 问题是如果我双击其他单元格，再选中文本复制，然后双击第五列某单元格，再进行粘贴，发现仍然可以粘贴 也就是说下面代码仅禁止了整个单元格的粘贴，但是不能禁止双击进去直接粘贴文本 请大神帮忙 Private Sub Worksheet_SelectionChange(ByVal Target As R

大佬能VBA可以怎么解决这个问题吗？ 有数据表产品型号和相对应的数量两列，然后要根据型号对应的数量进行拼箱制作装箱单，比如型号有ABCD4个型号，数量分别为900，100，50，150，然后箱规要求300，装箱单可以根据数据表进行拼箱，比如型号A在装箱单就会拆分为： 型号：A 装箱数量：300 件数：3 总数量： 900 然后其他型号不满300的要进行合并拼箱，最多不超过360。 型号：B 装箱数量: 100 型号：C 装箱数量：50 型号: D 装箱数量：150这三个型号的件数刚

第一个问题：B列、C列、F列都是数据有效性下拉选择的，但是A列的内容可以 复制粘贴到这些数据有效性的三列从而破坏了这三列的数据有效性； 第二个问题：如下图，拖拽单元格A1右下角的小十字向B1单元格填充 也破坏了B列单元格的有效性； 如何能保护B列、C列、F列这三列的数据有效性不被任意方式所破坏啊？哪位大神能出手解决这些问题啊？

指定区域的数据有效性会被粘贴破坏，也会被左边的单元格拖拽填充坏，哪位大神能帮忙解决啊？

VB 指定单元格替换为含if函数的公式，提示“缺少语句结束”，请老司机指点，谢谢 Set wb = Workbooks.Open(FileName & "\" & f) '构造完整的路径并执行打开操作，下面你可以继续写其他的功能 wb.Worksheets("材料表").Range("F278") = "=IF(F84>0,1,0)" '工作表名为"材料表" wb.Worksheets("材料表").Range("F352") = "=IF(OR(数据表!B4="BBU设备单位工程",数据表!B11="农村"),"",ROUND(人工费*4%,2))" wb.

之前vba设了密码，现在忘了，怎么可以破解啊。

以下是源码，麻烦大神指点一下

ActiveWorkbook.ActiveSheet.UsedRange.Copy ThisWorkbook.ActiveSheet.Range("AP1") ActiveWorkbook.Close SaveChanges:=False

求大神把这个宏，做个vba

如图是一个表中表，是邮件合并自动产生的，求怎么批量删除空行或删除带目标字符的行

哥哥们，这个怎么搞，不让保存啊

具体情况：电脑里有很多文档，其中一些文档内有特殊标记，例如包含某一地名，那我需要将此文档命名为“地名-文件名”的格式。据此，我分别向文心一言和讯飞心火提问如下： “如何批量找出含安徽或者安 徽或者安 徽或者山东或者山 东或者山 东或者陕西或者陕 西或者陕 西的word文档，如果文档内安徽或者安 徽或者安 徽，则将安徽-加到文档名的开头，如果文档内含有山东或者山 东或者山 东，则将山东-加到文档名的开头，，如果文档内含有含

价格低的来联系，后续有单欢迎合作

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

excel vba+ado查询数据作为临时表报错，下图左边的代码可以运行，右边运行到黄色位置就报错了，提示： Microsoft Access 数据库引擎找不到对象“Eps”。请确保该对象存在，并正确拼写其名称和路径名。如果“Eps”不是本地对象，请检查网络连接或与服务器管理员联系。 左边和右边在运行上区别是：左边判断临时表是否存在时会执行删除命令，右边不会，但都是第一次运行为什么有这个区别呢？ 求大神指点！

源文件是详细文字表格 目标文件是制式表格，想实现的功能是:在目标文件里，直接模糊查询表格内一两项，可以将源文件里相应内容直接调用出来。同时打印，我不想用vlookup函数，几千条数据，影响速度。

如题,我先随便发几个,如果有人共享,那就一直更新.没有就算了.....

本文件夹里有若干个excel文件，要把每个文件里面sheet（只有一個sheet）批量改成统一的指定名字

请求大神帮帮忙，VBA将.doc文档的黑色字符设为自动色,其它色的字保持不变。

把条件放数组里

了解些EXCEL操作ACCESS的方法，感觉自学太难，想问有VBA群吗?互相交流学习

用VBA爬取数据发现传递一个object要5s，是什么原因造成的

cnSq = "SELECT 题号, 题目, 答案, 解析 FROM (" & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'A01' AND 状态 = NO ORDER BY Rnd(-Timer()*题号)" & _ "UNION ALL " & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'A02' AND 状态 = NO ORDER BY Rnd(-Timer()*题号)" & _ "UNION ALL " & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'B01' AND 状态 = NO " & _ "UNI

各位大哥，这串代码拆分工作簿的时候只有第一行表头能被拆分进去，其他第二行第三行的内容比如考核什么的在拆好的表格中体现不出来，麻烦帮我看看代码中哪个地方需要更改，感激不尽（纯小白一枚）

如题，如何在sheet中插入列表控件，并让其显示在指定单元格下方，这个早前接触过能实现的，但是时间有点久我整忘了，大佬怎么写啊

代码 汇总表 明细表 错误提示

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

各位大佬求助，想实现一个功能：代码写在个人宏工作簿里，只要当前运行的工作簿有更改，就运行自动保存。 下面这个代码只能实现本工作簿自动保存

以下是代码 Sub 更新物料代码() Dim conn As New 网页链接Dim sj As String With Sheets("物料代码").Range("a2:F" & Sheets("物料代码").Range("a65536").End(xlUp).Row) .ClearContents End With 网页链接"Provider = Microsoft.ACE.OLEDB.12.0;Data Source=E:\360MoveData\Users\Administrator\Desktop\统计单.accdb" sj = "select 物料代码,名称,图纸号,客户 from [lbk]物料代码[rbk]" Sheets("物料代码").Range("a2").CopyFromRecordset conn.Execute(sj) End Sub 求各位大佬帮助

本例是VBA代码，通过LDAP协议提取域内任意用户的信息，如：姓名，职务，部门，公司，电话，邮箱，地址等等。 前提条件：1. 公司的电脑已加域管理，2.人员相关信息已登记在域目录中 名词解释： 域管理 - 企业标准化应用，对在加域计算上登陆的用户作身份检验。 活动目录 - 域能作身份验证的基础，是域控服务器上有用户的数据库，此数据库叫活动目录。 LDAP - 轻量级目录访问协议，通过它可以访问域活动目录中的信息。所有加域的计算机默认支持

首先chuhuori设成了公共变量，数据类型是date，前面的代码都能跑完，也能给chuhuori赋值2024/4/16这个日期，然后在下面这一行提示类型不匹配 if chuhuori <> '''' then 于是乎我不理解了。 在之前这个宏是能跑完不报错的，包括上面出错的if那一条，后面为了追加计数功能又加了几行，然后把chuhuori变成了公共变量，就报错了，但是不管怎么说，只是用if判断为不为空也不至于类型不匹配啊，如果是chuhuori类型有问题，那它也跑不出2024/4/16这个日期，应该在

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

为什么office 启用宏了也不能编辑

如图，第一个表格为汇总表，汇总表第一列为其他几个工作表的表头，第二列为其他工作表里的数据。但现在一个汇总表里边一个空调机房只有一台空调箱。怎么在vba里边添加一个变量实现图3？谢谢大家#VBA#

A列 D列 F列 00031 华为 仓储 00031 华为 运输 00031 华为 物流 00031 华为 仓供应 00031 华为 物管理 00032 小米 仓储 00032 小米 运输 00032 小米 仓供应 数组1=仓储，运输，物流 数组2=仓供应，物管理 请问如何用vba写规则: 先根据a列编号找出所有同编号的数据行，找出之后，如果同一个编号F列数据中包含数组1与数组2则，标红数组1 A列 D列 F列单元格

Sub FilterRows() ' 根据第7列的值来筛选数据，并且筛选条件为当前选定单元格的值 ActiveSheet.Range("A6").AutoFilter Field:=Selection.Column, Criteria1:=Selection.Value ' 将筛选后的结果复制到当前活动的工作表之后 With ActiveSheet .Cells.Select Selection.Copy End With Sheets.Add(After:=ActiveSheet).Paste ActiveSheet.Rows("1:4").ClearContents For Each cell In ActiveSheet.Rows(5).Cells If Not IsDate(cell.Value) Then cell.ClearContents End If Next cell End Sub 运行能运行出来，就是只是一个筛选功能也太久了吧

求助，在corelvba控件中用qrmaker.ocx生成二维码后需要再粘贴到文档，CellPitch调大也没用，生成的间隔始终太小，效率也麻烦，想用createoleobject QRmakerCtrl.1直接创建，生成后发现没有Input输入口，不能更改，求大神们好心教教

向这种调用系统打印机，怎么应用代码里面，为什么我设立公用变量，不起作用

求一个vBAv日期控件，或双击自动添加日期也行

需求 step1.在VBA的文件夹中有多个子文件夹LOT（051/052/053等等）图1 step2.在子文件夹内有5个名字不一样的excel图2 step3.需要将每个子文件夹名字叫DDM3的excel内某列数据复制处理成图3的数据走势图模板。

因为工作需求，要把物料编码对应的PDF图纸用插入对象方式插入到EXCEL中，并且PDF文件位置放在名称或者规格一列，PDF文件图标的高度与行高一致，长度可以与列长度一致或者小一些都可以，没有图纸的，不插入PDF，这个之前都是手动插入，每天要插入几十张图纸，甚至更多，太累了，有大神能帮忙解决下么？十分感谢！

Sub 按钮2_Click() 'On Error Resume Next Dim ironAccessories As Variant ' 铁附件明细 Dim civilEngineering As Variant ' 土建 Dim auxiliaryMaterials As Variant ' 辅材 Dim i As Integer Dim j As Integer Dim k As Integer Dim maxRow As Integer Dim maxRowhz As Integer Dim maxRowjg As Integer Dim strPath As String Dim strSht As String Dim wb As Workbook Dim sht As Worksheet Dim tag As Boolean strPath = Application.ActiveWorkbook.Path '找到当前目录 maxRow = Sheets("填写数字").Range("a" & Rows.Count).End(xlUp).Row Set wb = Nothing maxRowhz