技术目录十二[vba] - 随笔分类(第3页) - vba是最好的语言

vba-match和错误处理

摘要：本文是讲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)

vba-在某列上查找数据放回所有的列和行

摘要：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)

vba-日期时间处理

摘要：https://blog.csdn.net/Ares5kong/article/details/126015004 阅读全文

posted @ 2022-12-20 16:19 vba是最好的语言阅读(80) 评论(0) 推荐(0)

outlook连接qq邮箱

摘要：基础设置：https://jingyan.baidu.com/article/2fb0ba4089721441f3ec5f50.html 关键的地方：1.发送服务器也要设置：控制面板-》用户和账号-》发送服务器阅读全文

posted @ 2022-12-20 13:37 vba是最好的语言阅读(246) 评论(0) 推荐(0)

vba-instr

摘要：Sub 文本查询()Range("A1") = VBA.Strings.InStr(Range("A2"), "@")End Sub 阅读全文

posted @ 2022-12-20 09:37 vba是最好的语言阅读(247) 评论(0) 推荐(0)

如何在vba中用ADOX.Catalog获取excel文件的工作表名称？

摘要：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)

vba-控制形状控件

摘要：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)

vba-光标移开文本框触发的事件

摘要：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)

VBA-Excel边框加颜色

摘要：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)

用vba把excel文件发布转化为pdf格式文件

摘要：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)

vba-窗体间传值

摘要：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)

vba-命名规范

摘要：给用户窗体和控件起一个具有描述性且分类清楚的名字，是一个习惯。最好在每类控件名前加一个前缀来代表该控件的类型，例如，frm代表用户窗体，opt代表选项按钮，等等。这样，将会使代码更易阅读，并且也方便应用一些使代码更为简洁的技巧。 txtFirstName.Text = Range("A1").Val 阅读全文

posted @ 2022-12-07 21:05 vba是最好的语言阅读(155) 评论(0) 推荐(0)

VBA学习笔记3-数据结构类型SortedList

摘要：在VBA中，虽然没有内置的SortedList数据类型，但可以通过使用Collection对象或自定义类来实现类似的功能。SortedList通常用于按键值对排序和检索数据。以下是一个示例，演示如何使用Collection对象来模拟SortedList的功能： Sub SortedListExamp 阅读全文

posted @ 2022-12-07 20:49 vba是最好的语言阅读(223) 评论(0) 推荐(0)

VBA-语法-Type结构体

摘要：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)

VBA中各种数据类型的使用（自定义数据类型Type，数组，数据字典）、读写文件

摘要：https://blog.csdn.net/sxzlc/article/details/104057637 阅读全文

posted @ 2022-12-06 21:42 vba是最好的语言阅读(150) 评论(0) 推荐(0)

vba-type

摘要：定义一个type，这个可以用来传递参数 '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '* '* 自定义学生对象 '* 做成时间:2020/01/20 '* 做成者: sun '* 跟新日: '* 更新者: '* '* * 阅读全文

posted @ 2022-12-06 21:34 vba是最好的语言阅读(228) 评论(0) 推荐(0)

vba-类持续更新

摘要：一，用途让代码可读性更强调用excel对象的一些事件，如程序级事件，内嵌图表事件，菜单命令事件（后续会学）等封装API，让代码更简捷易懂（后续会学）创建控件数组团队协作时，编写完整模块后可以方便队友调用，减少开发时间 property let 作用：生成对象的可写入属性。 Property 阅读全文

posted @ 2022-12-06 21:15 vba是最好的语言阅读(293) 评论(0) 推荐(0)

vba-利用me给控件赋值

摘要：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)

vba-选择文件根据设置导入数据库

摘要：'选择文件导入 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)

vba-函数返回sheet

摘要：'打开文件返回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)

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

公告