随笔分类 - 技术目录十二[vba]
vba有时用到也是挺好的
摘要:本文是讲match函数的踩坑点,大家注意避坑。 1、MATCH函数只在一维数组或者二维一列数组中才有效。如图: A2为二维数组,A3为一维数组, A4为二维一列数组。B运算结果为Error 2042,C运算结果为1,D运算结果为1。 需要注意的是A0是一维数组,A2是二维数组。 如果不借助单元格,要
阅读全文
摘要:Dim rngFound As Range Dim strFirst As String Set rngFound = DataMatchSht.Columns("B").Find("CNH MXI", Cells(Rows.Count, "B"), xlValues, xlWhole) If No
阅读全文
摘要:https://blog.csdn.net/Ares5kong/article/details/126015004
阅读全文
摘要:基础设置:https://jingyan.baidu.com/article/2fb0ba4089721441f3ec5f50.html 关键的地方:1.发送服务器也要设置:控制面板-》用户和账号-》发送服务器
阅读全文
摘要: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
阅读全文
摘要:https://blog.csdn.net/sxzlc/article/details/104057637
阅读全文
摘要:定义一个type,这个可以用来传递参数 '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '* '* 自定义学生对象 '* 做成时间:2020/01/20 '* 做成者: sun '* 跟新日: '* 更新者: '* '* *
阅读全文
摘要:一,用途 让代码可读性更强 调用excel对象的一些事件,如程序级事件,内嵌图表事件,菜单命令事件(后续会学)等 封装API,让代码更简捷易懂(后续会学) 创建控件数组 团队协作时,编写完整模块后可以方便队友调用,减少开发时间 property let 作用:生成对象的可写入属性。 Property
阅读全文
摘要:Private Sub UserForm_Initialize() Dim arr, brr arr = Array("t_Name") brr = Array("张三") For i = 0 To UBound(arr) Debug.Print arr(i) Me.Controls(arr(i))
阅读全文
摘要:'选择文件导入 Private Sub SelectFile_Click() Dim sheet As Excel.Worksheet Dim fieldNameArr(), columnNumArr() Dim sql As String '变量赋值 fieldNameArr = Array("H
阅读全文
摘要:'打开文件返回SheetPublic Function GetSheetByOpenFile() As Worksheet ifilename = Application.GetOpenFilename("Excel(*.xlsx), *.xlsx, Excel(*.xls), *.xls", Fa
阅读全文