-
-
0如题,如何在sheet中插入列表控件,并让其显示在指定单元格下方,这个早前接触过能实现的,但是时间有点久我整忘了,大佬怎么写啊
-
8以下是代码 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 求各位大佬帮助
-
6
-
25首先chuhuori设成了公共变量,数据类型是date,前面的代码都能跑完,也能给chuhuori赋值2024/4/16这个日期,然后在下面这一行提示类型不匹配 if chuhuori <> '''' then 于是乎我不理解了。 在之前这个宏是能跑完不报错的,包括上面出错的if那一条,后面为了追加计数功能又加了几行,然后把chuhuori变成了公共变量,就报错了,但是不管怎么说,只是用if判断为不为空也不至于类型不匹配啊,如果是chuhuori类型有问题,那它也跑不出2024/4/16这个日期,应该在
-
9线上答疑,英语要好,985/211本科大三以上,研究生更好
-
6
-
2
-
39A列 D列 F列 00031 华为 仓储 00031 华为 运输 00031 华为 物流 00031 华为 仓供应 00031 华为 物管理 00032 小米 仓储 00032 小米 运输 00032 小米 仓供应 数组1=仓储,运输,物流 数组2=仓供应,物管理 请问如何用vba写规则: 先根据a列编号找出所有同编号的数据行,找出之后,如果同一个编号F列数据中包含数组1与数组2则,标红数组1 A列 D列 F列单元格
-
7Sub 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 运行能运行出来,就是只是一个筛选功能也太久了吧
-
2求助,在corelvba控件中用qrmaker.ocx生成二维码后需要再粘贴到文档,CellPitch调大也没用,生成的间隔始终太小,效率也麻烦,想用createoleobject QRmakerCtrl.1直接创建,生成后发现没有Input输入口,不能更改,求大神们好心教教
-
9
-
5求一个vBAv日期控件,或双击自动添加日期也行
-
11
-
6
-
7Sub 按钮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
-
2
-
10
-
1Columns("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列,目前只有单个单元格,有没有
-
6
-
1
-
20为啥同样代码copy在Excel2010里运行0.几秒的在office365里就要20多秒,老是提示粘贴板问题。
-
4Sub 九九乘法表() 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时必须每个执行语句都是单独成行吗?
-
33
-
14
-
14
-
1对于插入到excel中的图形,如何获取图形右键的菜单栏对象
-
1Private Sub CommandButton1_Click() Dim exePath As String exePath = 网页链接 & "\abc.exe" Shell (exePath) DoEvents End Sub 2024年3月23日之前运行一直没有问题 2024年3月23日 运行时错误5 无效的过程调用或参数 今天开始出现这样 office运行正常
-
2孩子想在wps的word里面用mathtype,但是显示需要vba插件才能用
-
0批量读取数据源文件 按内容拆分不同文件,分发在保存不同路径下 对处理完成的数据源进行归档 ------------------------------------------------------------------------ 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 &
-
7明明是空单元格,但是用special cell(xltypeblanks).select却选不中。用 special cell(xltypecontant,textvalues).select,就可以选中。选之前改了单元格格式也没用。用clearcontant再用special cell(xltypeblanks).select也选不中。但是鼠标双击这个格子,再special cell(xltypeblanks).select就能选中了,太神奇了。求大佬解惑。代码记得不熟,大概是这么拼写
-
13在其他电脑上运行正常,但是在某台电脑上,只有第一次打开时可用,后面再执行就没有对话框了,有大佬知道原因么。代码如下 With Excel.Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\" If .Show Then ph = .SelectedItems(1) Else Exit Sub End With
-
4
-
1
-
5
-
15
-
5
-
4求助大佬
-
3
-
26各位大佬好啊,又是我没错,先前学习mysql语句,掌握初步语法后,对接listview控件实现进出库操作(该主体代码来自“窗体Listview控件实现可编辑功能的完美解决方法-Excel VBA程序开发-ExcelHome技术论坛 ” ivccav大佬),为记录每一步操作,库存管理表分两张:1.libware_stk(库存表)用于窗体显示及修改;2.libware_det(详情表)用于记录窗体修改libware_stk每一步操作;两张表格结构完全一样,但libware_det较libware_stk多了一列id_stk,listview控件显示libware_stk内容
-
60
-
21Private 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 以上代码本意是想从尾行逐行删除至第二行 但结果怎么是删除偶数行 自学小白,烦请大侠多指教
-
4Sub 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
-
0背景: 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
-
5
-
7
-
43表1有10000条数据 表2有20000条数据 然后用表1的每一条数据,去表2中查找是否出现,要如何优化,才能快速,计算,如果用循环的,话,要计算上亿次,实在是太慢了