随笔分类 -  VBA

摘要：Private Sub UserForm_Initialize()Dim iDim itm As ListItemDim liMe.ListView1.ColumnHeaders.Add 1, "Q", "QQ号", Me.ListView1.Width / 3 '添加第一列Me.ListView1 阅读全文

摘要：Private Sub ComboBox1_Change()If Me.ComboBox1.ListIndex <> -1 Then Me.TextBox1.Value = Me.ComboBox1.Value '(BoundColumn ) Me.TextBox2.Value = Me.Combo 阅读全文

摘要：Option Explicit'() '可以让括号内作为一个整体 Sub t29() Dim regx As New RegExp Dim sr sr = "A3A3QA3A37BDFEA387A8" With regx .Global = True .Pattern = "(A3){2}" '相当 阅读全文

摘要：Option Explicit'^符号：限制的字符在最前面,如^\d表示以数字开头 Sub T34() Dim regex As New RegExp Dim sr, mat, m sr = "d234我345d43" With regex .Global = True .Pattern = "^\ 阅读全文

摘要：'正则表达式的核心是设置对比的规则，也就是设置Pattern属性，而组成这些规则除了字符本身以外，是具有特定含义的符号。 '下面介绍的是正规表达式中常用符号的第一部分。 '\号 '1.放在不便书写的字符前面,如换行符(\r),回车符(\n),制表符(\t),\自身(\\) '2.放在有特殊意义字符的 阅读全文

摘要：'一 正则表达式 '正则表达式是处理字符串的外部工具，它可以根据设置的字符串对比规则，进行字符串的对比、替换等操作。 '正则表达式的作用： '1、完成复杂的字符串判断 '2、在字符串判断时，可以最大限度的避开循环，从而达到提高运行效率的目的。'二 使用方法 '1、引用法 '点击VBE编辑器菜单：工具 阅读全文

摘要：CommandButton 常用属性+方法记录： Me.CommandButton1.ControlTipText = "" '按钮的提示，就是鼠标移过去，会显示 提示 Me.CommandButton1.Picture '按钮的图片 Me.CommandButton1.PicturePositio 阅读全文

摘要：`Option Explicit Sub 合并() Dim arr Dim i, n As Integer 'i 循环打开的工作薄里的工作表，n 计数用 Dim allwb As String '存放弹出工作薄的名称 Dim wb As Workbook '当前打开的工作薄 Dim x As Int 阅读全文

摘要：Sub 双条件判断() Dim arr Dim t As Date t = #3/15/2021# 't = DateSerial(2021, 3, 15) '也可用这种标准写法 arr = Range("a2:b5") For i = 1 To UBound(arr) If arr(i, 2) = 阅读全文

摘要：Sub 对应插入批注图片() Dim x As Integer On Error Resume Next '错误跳过 For i = 1 To 2 Cells(i, 1).Comment.Delete '删除批注 Range("A" & i).AddComment Range("a" & i).Va 阅读全文