随笔分类 -  技术目录十二[vba]

vba有时用到也是挺好的
摘要:本文是讲match函数的踩坑点,大家注意避坑。 1、MATCH函数只在一维数组或者二维一列数组中才有效。如图: A2为二维数组,A3为一维数组, A4为二维一列数组。B运算结果为Error 2042,C运算结果为1,D运算结果为1。 需要注意的是A0是一维数组,A2是二维数组。 如果不借助单元格,要 阅读全文
posted @ 2022-12-29 09:35 vba是最好的语言 阅读(1600) 评论(0) 推荐(0)
摘要:Dim rngFound As Range Dim strFirst As String Set rngFound = DataMatchSht.Columns("B").Find("CNH MXI", Cells(Rows.Count, "B"), xlValues, xlWhole) If No 阅读全文
posted @ 2022-12-21 13:46 vba是最好的语言 阅读(493) 评论(0) 推荐(0)
摘要:https://blog.csdn.net/Ares5kong/article/details/126015004 阅读全文
posted @ 2022-12-20 16:19 vba是最好的语言 阅读(80) 评论(0) 推荐(0)
摘要:基础设置:https://jingyan.baidu.com/article/2fb0ba4089721441f3ec5f50.html 关键的地方:1.发送服务器也要设置:控制面板-》用户和账号-》发送服务器 阅读全文
posted @ 2022-12-20 13:37 vba是最好的语言 阅读(246) 评论(0) 推荐(0)
摘要:Sub 文本查询()Range("A1") = VBA.Strings.InStr(Range("A2"), "@")End Sub 阅读全文
posted @ 2022-12-20 09:37 vba是最好的语言 阅读(247) 评论(0) 推荐(0)
摘要:Sub QQ1722187970() Dim sFN As String sFN = Excel.Application.GetOpenFilename() If Len(sFN) Then Dim arrName() Dim objCatalog Set objCatalog = VBA.Crea 阅读全文
posted @ 2022-12-14 17:40 vba是最好的语言 阅读(483) 评论(0) 推荐(0)
摘要: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个形状名称依次为:" 阅读全文
posted @ 2022-12-13 10:37 vba是最好的语言 阅读(159) 评论(0) 推荐(0)
摘要:Private Sub TextBox1_AfterUpdate() TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/m/d") End Sub Private Sub TextBox1_AfterUpdate() On Error GoTo I 阅读全文
posted @ 2022-12-08 19:06 vba是最好的语言 阅读(669) 评论(0) 推荐(0)
摘要:Sub font_sty(Rng As Range) Rng.Select Selection.Font.Bold = True With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeCol 阅读全文
posted @ 2022-12-08 13:48 vba是最好的语言 阅读(1077) 评论(0) 推荐(0)
摘要:Sub PDF() Dim asy As Worksheet Dim spath As String spath = Excel.ThisWorkbook.Path For Each asy In Excel.ThisWorkbook.Worksheets sName = spath & "\" & 阅读全文
posted @ 2022-12-07 22:06 vba是最好的语言 阅读(1076) 评论(0) 推荐(0)
摘要:1,模块加 Public xOBj As New MSForms.DataObject 2,第一个窗体 Private Sub CommandButton1_Click() If Me.TextBox1.Value = "" Then Exit Sub With xOBj .SetText Me.T 阅读全文
posted @ 2022-12-07 21:24 vba是最好的语言 阅读(697) 评论(0) 推荐(0)
摘要:给用户窗体和控件起一个具有描述性且分类清楚的名字,是一个习惯。最好在每类控件名前加一个前缀来代表该控件的类型,例如,frm代表用户窗体,opt代表选项按钮,等等。这样,将会使代码更易阅读,并且也方便应用一些使代码更为简洁的技巧。 txtFirstName.Text = Range("A1").Val 阅读全文
posted @ 2022-12-07 21:05 vba是最好的语言 阅读(155) 评论(0) 推荐(0)
摘要:在VBA中,虽然没有内置的SortedList数据类型,但可以通过使用Collection对象或自定义类来实现类似的功能。SortedList通常用于按键值对排序和检索数据。以下是一个示例,演示如何使用Collection对象来模拟SortedList的功能: Sub SortedListExamp 阅读全文
posted @ 2022-12-07 20:49 vba是最好的语言 阅读(223) 评论(0) 推荐(0)
摘要:VBA中结构体不能定义在函数或者过程中,要定义在模块中,否则会提示无效内部过程,或者类型未定义 定义: Type Person pName As String pAge As Byte End Type 使用: Dim udtPerson As Person With udtPerson .pNam 阅读全文
posted @ 2022-12-07 20:26 vba是最好的语言 阅读(414) 评论(0) 推荐(0)
摘要:https://blog.csdn.net/sxzlc/article/details/104057637 阅读全文
posted @ 2022-12-06 21:42 vba是最好的语言 阅读(150) 评论(0) 推荐(0)
摘要:定义一个type,这个可以用来传递参数 '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '* '* 自定义学生对象 '* 做成时间:2020/01/20 '* 做成者: sun '* 跟新日: '* 更新者: '* '* * 阅读全文
posted @ 2022-12-06 21:34 vba是最好的语言 阅读(228) 评论(0) 推荐(0)
摘要:一,用途 让代码可读性更强 调用excel对象的一些事件,如程序级事件,内嵌图表事件,菜单命令事件(后续会学)等 封装API,让代码更简捷易懂(后续会学) 创建控件数组 团队协作时,编写完整模块后可以方便队友调用,减少开发时间 property let 作用:生成对象的可写入属性。 Property 阅读全文
posted @ 2022-12-06 21:15 vba是最好的语言 阅读(292) 评论(0) 推荐(0)
摘要: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)) 阅读全文
posted @ 2022-12-06 20:49 vba是最好的语言 阅读(230) 评论(0) 推荐(0)
摘要:'选择文件导入 Private Sub SelectFile_Click() Dim sheet As Excel.Worksheet Dim fieldNameArr(), columnNumArr() Dim sql As String '变量赋值 fieldNameArr = Array("H 阅读全文
posted @ 2022-12-06 17:16 vba是最好的语言 阅读(320) 评论(0) 推荐(0)
摘要:'打开文件返回SheetPublic Function GetSheetByOpenFile() As Worksheet ifilename = Application.GetOpenFilename("Excel(*.xlsx), *.xlsx, Excel(*.xls), *.xls", Fa 阅读全文
posted @ 2022-12-06 11:20 vba是最好的语言 阅读(275) 评论(0) 推荐(0)