VBA代码宝（列表框）20220402

今天又把界面优化了一下，界面还是挺好看的

本代码宝是用Listbox列表框做的，其中用到数组，模块代码插入、复制选中文本、导入数据，模糊搜索，双击事件显示数据，新增、保存、删除数据等功能，内含400多例子VBA代码，喜欢数据收藏的同样可以使用该窗体储存数据，在这分享给大家

sub VBA大表格()

    sheet1.range("K1").value="作者"
    msgbox sheet1.range("K1")
    sheet1.range("K1")="VX：Chen1198061299"
    msgbox sheet1.range("K1").value

end sub

Select方法

Range对象的Select方法表示选择某个单元格或某单元格区域。例如，下面的代码：

Range("A2").Select

使单元格A2为当前单元格。

下面的代码：

Range("C2:C5").Select

选取单元格区域C2:C5。

下图显示了上述代码运行后的结果：



同样地，下面的代码：

Range("C5").Select

Cells(5,3).Select

[C5].Select

Cells(65539).Select

Cells(5,"C").Select

均选取单元格C5为当前单元格。


下面的代码：

Range("C2:C5").Select

Range("C2","C5").Select

[C2:C5].Select

Range(Range("C2"), Range("C5")).Select

Range(Cells(2, 2), Cells(5, 2)).Select

均选取单元格区域C2:C5。


下面的代码：

Columns(2).Select

Columns("B").Select

均选取B列。


下面的代码：

Columns("B:C").Select

选取B列和C列。


下面的代码：

Rows(2).Select

Rows("2:2").Select

均选取第2行。

Sub 单元格地址()
    
    'Address(行是否绝对引用TRUE，列是否绝对引用,单元格表示样式，地址是否包含工作簿工作表名)
    '样式参数ReferenceStyle设置返回的地址的引用样式，可以设置为xlA1（A1样式）或xlR1C1（R1C1样式）。默认值为xlA1
   MsgBox ActiveCell.Address             '当前单元格地址
   MsgBox Selection.Address(0, 0)             '选中区域的地址
   MsgBox Range("A1").CurrentRegion.Address(0,0,,1)     'A1连续区域的地址
   MsgBox ActiveSheet.UsedRange.Address          '使用过单元格的地址
    
End Sub

Private Sub 正则提取长宽高_Click()
    
    '百度搜索正则捕获分组
   [c:z] = ""
    Range("C1").Resize(1, 3) = Array("结果1", "结果2", "结果3")
    
    Dim reg
    Set reg = CreateObject("vbscript.regexp")
    
    lastrow = Range("a65535").End(xlUp).Row
    arr = Range("a2:a" & lastrow)
    
    For i = 1 To UBound(arr)
        With reg
            .Global = True '匹配多次
            .IgnoreCase = False '区分大小写
            .Pattern = "(长|宽|高)[0-9]+"                   '正则表达式,提取任意多数值  （）是分组  |是或的意思
            '.Pattern = "(长[0-9]+)|(宽[0-9]+)|(高[0-9]+)"  '正则表达式,提取任意多数值(一样的效果)
            Set 集合 = reg.Execute(arr(i, 1))
            For Each 子集 In 集合
                Range("C" & i + 1).Offset(0, k) = Replace(Replace(Replace(子集, "长", ""), "宽", ""), "高", "")
                k = k + 1
            Next
            k = 0
        End With
    Next
    
    
End Sub