随笔分类 - 技术目录十二[vba]
vba有时用到也是挺好的
摘要：Sub 启动定时任务() Application.OnTime TimeValue("17:16:00"), "定时递归运行" End Sub Sub 定时递归运行() ' 这是要运行的代码 MsgBox "宏已运行！" ' 设置下一次运行的时间，例如，每隔一天运行一次 Dim NextRunTim
阅读全文
摘要：1.基本使用 ' 长方体的类Cuboid Private are Private hig Property Get area() area = are End Property Property Get high() high = hig End Property Function volume()
阅读全文
摘要：一些代码优化： 1.Range("B5:C6").Copy Destination:=Range("B8") 2.使用mid$函数而不是mid 3.把整个sheet保护，需要操作时，后台先关闭保护。 4.Excel中自带的Sum函数是将整个区域转换为数组，在内存中进行求和，速度快多了。 Dim re
阅读全文
摘要：https://blog.csdn.net/soga235/article/details/106416669
阅读全文
摘要：解决方法： 1.，点击电脑左下角的“运行”，或者利用快捷键“win+R”，调出运行窗口，输入“regedit”，回车； 2.在打开的注册表中，依次点击“HKEY_CURRENT_USER—Software—Classes—.html找到.html文件”， 3.在“.html”文件上，点击鼠标右键 ，
阅读全文
摘要：Sub excel去除所有公式() Dim sheet As Worksheet For Each sheet In Sheets sheet.UsedRange = sheet.UsedRange.Value Next End Sub
阅读全文
摘要：Sub zz() ar = Range("A1").CurrentRegion m = 1 For i = 2 To UBound(ar) If ar(i, 1) <> "B" Then m = m + 1 For j = 1 To 2 ar(m, j) = ar(i, j) Next End If
阅读全文
摘要：将 字典d 放到 A:B 列: [a1].Resize(d.Count) = Application.Transpose(d.keys) [b1].Resize(d.Count) = Application.Transpose(d.items) d.keys 是一个数组， d.items是一个数组
阅读全文
摘要：Sub 宏1() ' ' 宏1 修改链接的数据源地址 ' ' Application.Left = 437.5 Application.Top = 171 ActiveWorkbook.ChangeLink Name:="C:\Users\Administrator\Desktop\测试\数据源.x
阅读全文
摘要：Sub accTrans() Dim Conn As New ADODB.Connection 'Conn.Open ".......连接你的Acc数据库.........." On Error GoTo ErrHndl: Conn.BeginTrans '事务开始 Sql = "update a
阅读全文
摘要：Sub 将sheet1中没有sheet2也有的加标记A() Dim i As Integer, j As Integer For i = 1 To 2880 'Worksheets("Sheet1").Cells(行,列) 和 Sheet1.Cells(行,列)等效 For j = 1 To 42
阅读全文
摘要：Sub test() Dim arr()Dim i, j As Integerj = Range("A65536").End(xlUp).Row - 1ReDim arr(1 To j)For i = 1 To jarr(i) = Range("D"&i+1)+Range("E"&i+1)+Rang
阅读全文
摘要：Sub test() '先在VBA的"工具(T)"->"引用(R)"中添加引用：Microsoft Word 14.0 Object Library Dim objApp As New Word.Application, Path, FileNamePath, i, j, arr, brr, str
阅读全文
摘要：DOevents的含义是转让控制权，以便让操作系统处理其它事件。
阅读全文
摘要：Dim fso As FileSystemObject Set fso = New FileSystemObject If Not fso.FileExists(sPath & sFile) Then If bRetry Then Beep If MsgBox("File, " + sPath +
阅读全文
摘要：vba Collection可以存入一个类。 VBA学习笔记1-VBA集合Collection_vba 集合_lyfegf的博客-CSDN博客
阅读全文
摘要：(1条消息) VBA -[知识点]: 字典_vba 字典_Rambo.Fan的博客-CSDN博客
阅读全文
摘要：Dim v_Data() as variant Dim range_to_Load as range Dim y as long, x as long 'set a range or better still use a list object set range_to_Load = thiswor
阅读全文
摘要：一 比较三种数据类型enum 枚举型，数值类型 eNumarray 数组dictionary 字典 二 枚举型1.1 枚举型 enum 需要先用户自定义放在过程外，模块最前面只能用public private 声明，不能用 dim Public Enum w1week1week2week3week4
阅读全文
摘要：一、如果是同一台机器上，可以使用如下两种方式访问另一个MDB： (1)其中表名是在db2中的表名SELECT * from 表名 in 'C:\db2.mdb ' (2)其中表名是在db2中的表名select * from [;database=C:\db2.mdb].表名 追加到本机的另一个MDB
阅读全文
