摘要：
Sub 文本查询()Range("A1") = VBA.Strings.InStr(Range("A2"), "@")End Sub 阅读全文
摘要：
Sub QQ1722187970() Dim sFN As String sFN = Excel.Application.GetOpenFilename() If Len(sFN) Then Dim arrName() Dim objCatalog Set objCatalog = VBA.Crea 阅读全文
摘要：
Sub testShape() Dim shp As Shape Dim str As String For Each shp In ActiveSheet.Shapes str = str & shp.Name & vbCrLf Next shp MsgBox "工作表中的3个形状名称依次为:" 阅读全文
摘要：
Private Sub TextBox1_AfterUpdate() TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/m/d") End Sub Private Sub TextBox1_AfterUpdate() On Error GoTo I 阅读全文
摘要：
Sub font_sty(Rng As Range) Rng.Select Selection.Font.Bold = True With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeCol 阅读全文
摘要：
Sub PDF() Dim asy As Worksheet Dim spath As String spath = Excel.ThisWorkbook.Path For Each asy In Excel.ThisWorkbook.Worksheets sName = spath & "\" & 阅读全文
摘要：
1，模块加 Public xOBj As New MSForms.DataObject 2，第一个窗体 Private Sub CommandButton1_Click() If Me.TextBox1.Value = "" Then Exit Sub With xOBj .SetText Me.T 阅读全文
摘要：
给用户窗体和控件起一个具有描述性且分类清楚的名字，是一个习惯。最好在每类控件名前加一个前缀来代表该控件的类型，例如，frm代表用户窗体，opt代表选项按钮，等等。这样，将会使代码更易阅读，并且也方便应用一些使代码更为简洁的技巧。 txtFirstName.Text = Range("A1").Val 阅读全文
摘要：
在VBA中，虽然没有内置的SortedList数据类型，但可以通过使用Collection对象或自定义类来实现类似的功能。SortedList通常用于按键值对排序和检索数据。以下是一个示例，演示如何使用Collection对象来模拟SortedList的功能： Sub SortedListExamp 阅读全文
摘要：
VBA中结构体不能定义在函数或者过程中，要定义在模块中，否则会提示无效内部过程，或者类型未定义 定义： Type Person pName As String pAge As Byte End Type 使用： Dim udtPerson As Person With udtPerson .pNam 阅读全文