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

以下是代码 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

如图，如果我要在1工作簿中vlookup 2工作簿的内容，VBA中的引用应该怎么写啊

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

Columns("C:C").Select Application.CutCopyMode = False Selection.FormatConditions.Add Type:=xlTextString, String:="=$O$1", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub 这个包含高亮怎么循环到整个O:O列，目前只有单个单元格，有没有

各位好，请教照片中if后面括号中And vbHidden的意思。我尝试删掉And vbHidden在运行，发现会提示错误，看不懂And vbHidden的意思，谢谢指导

分享贴子

为啥同样代码copy在Excel2010里运行0.几秒的在office365里就要20多秒，老是提示粘贴板问题。

Sub 九九乘法表() Dim a%, b% For a = 1 To 9 For b = 1 To 9 If a > b Then Cells(a, b) = "" Else Cells(a, b) = a & "x" & b End If Next b Next a End Sub 运行的时候显示“else没有if” 修改后 Sub 九九乘法表() Dim a%, b% For a = 1 To 9 For b = 1 To 9 If a > b Then Cells(a, b) = "" Else Cells(a, b) = a & "x" & b End If Next b Next a End Sub 这样就可以运行了。使用else时必须每个执行语句都是单独成行吗？

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

各位大哥帮忙看看怎么回事

这样报错是怎么回事，我研究了半天也没找到问题在哪里

大神们

对于插入到excel中的图形，如何获取图形右键的菜单栏对象

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

孩子想在wps的word里面用mathtype，但是显示需要vba插件才能用

批量读取数据源文件 按内容拆分不同文件，分发在保存不同路径下 对处理完成的数据源进行归档 ------------------------------------------------------------------------ Global fso Sub DistributeBillings() 'get source files' folder path sfp = Sheet2.Cells(1, 2) If Len(sfp) = 0 Then sfp = ThisWorkbook.Path If Right(sfp, 1) <> "\" Then sfp = sfp & "\" 'get archive folder path Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.folderexists(sfp & "Archive") Then fso.CreateFolder (sfp &amp

明明是空单元格，但是用special cell（xltypeblanks）.select却选不中。用 special cell（xltypecontant,textvalues）.select，就可以选中。选之前改了单元格格式也没用。用clearcontant再用special cell（xltypeblanks）.select也选不中。但是鼠标双击这个格子，再special cell（xltypeblanks）.select就能选中了，太神奇了。求大佬解惑。代码记得不熟，大概是这么拼写

在其他电脑上运行正常，但是在某台电脑上，只有第一次打开时可用，后面再执行就没有对话框了，有大佬知道原因么。代码如下 With Excel.Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\" If .Show Then ph = .SelectedItems(1) Else Exit Sub End With

为什么这么写一直匹配不了

请大侠们帮忙确认一下，为什么MAC 版的excel→visual basic→插入→没有用户窗体选项？

苹果系统的Excel 怎么无插入用户窗体的选项呢？求指点迷津

运行这句时出错，网上查了一下，不能给二维数组使用redim preserve增加行数，大神有解决办法吗

一直显示缺少End Sub，是为什么，谢谢各位大哥

求助大佬

一键自动创建三窗体，五大功能（增删改查导入导出）的系统平台！需要的可以留邮箱！

各位大佬好啊，又是我没错，先前学习mysql语句，掌握初步语法后，对接listview控件实现进出库操作（该主体代码来自“窗体Listview控件实现可编辑功能的完美解决方法-Excel VBA程序开发-ExcelHome技术论坛 ” ivccav大佬），为记录每一步操作，库存管理表分两张：1.libware_stk（库存表）用于窗体显示及修改；2.libware_det（详情表）用于记录窗体修改libware_stk每一步操作；两张表格结构完全一样，但libware_det较libware_stk多了一列id_stk，listview控件显示libware_stk内容

当使用for循环调用range数组进行复制粘贴时，会随机地在循环进行到3或4次的时候报错。 注1：这样的错误不一定每次运行都发生。 注2：逐语句运行F8目前没有出现报错的情况。 求教错误发生的原因和解决办法！感谢！

Private Sub CommandButton13_Click() Dim k As Integer For k = 2 To Range("A65536").End(xlUp).Row Sheet4.Range("a" & k). entire row.Next End Sub 以上代码本意是想从尾行逐行删除至第二行 但结果怎么是删除偶数行 自学小白，烦请大侠多指教

Sub Hong6() Dim i As Integer For i = 1 To 20 ActiveCell.Formula2R1C1 = "=FILTER(Sheet1!C:C[lbk]8[rbk],Sheet1!C=OFFSET(Sheet1!R[lbk]-2[rbk]C[lbk]10[rbk],i, 0))" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("A4").Select Selection.ClearContents Next i End Sub

背景： 1. 被汇总的数据源Excel文件，分布在不同层级的子文件夹当中 2. 每个数据源Excel文件叫不同的名字，每个文件含有不同的工作表名字 3. 需要被汇总的工作表，有相同的格式 Public fso Sub ListFiles() ' 汇总 Set fso = CreateObject("Scripting.FileSystemObject") Sheet1.Range("A2").Resize(10000, 14).ClearContents GetAllFiles (ThisWorkbook.Path) '对Excel文件及子目录中的文件，进行列表 r = 2 For i = 2 To Sheet1.[A100000].End(xlUp).Row '循环打开每个列表上的Excel文件 Set wb = Wor

RT，但是发现网上找的方法只能针对单一单元格起作用，有没有什么办法解决按住ctrl同时选中多个区域的时候都有效果。ps公司电脑不能上网，不能用usb，不能安装软件。

有没有一种可能，你需要批量修改照片的大小？ 有没有一种可能，你需要批量修改所有子子子文件夹内所有图片的大小？ 有没有一种可能，你需要在保持长宽比的前提下，按百分比批量修改图片的大小？ 有没有一种可能，你需要把现有图片批量修改到统一的长宽像素大小？ 上述所有可能已实现，无需借助任何第三软件，纯VBA代码实现。 原创原码分享，点赞过10，即公开下载链接 #批量修改图片大小#

表1有10000条数据 表2有20000条数据 然后用表1的每一条数据，去表2中查找是否出现，要如何优化，才能快速，计算，如果用循环的，话，要计算上亿次，实在是太慢了

VBA怎么把excel一个工作薄里面的多张透视表数值格式改成带千分位符号