- 博客(9)
- 收藏
- 关注
原创 Raspberrypi 源使用帮助
https://mirrors.ustc.edu.cn/help/raspberrypi.htmlhttps://mirrors.ustc.edu.cn/help/raspbian.html
2021-10-05 16:41:41
110
原创 常用VBA
实用的VBAicon代码,For Each: 1、批量删除有错误引用的名称; 2、批量删除自定义样式; 3、批量删除批注; 4、刷新透视表; 5、刷新power query数据连接; 6、用箭头显示工作表中公式所引用的单元格; 7、拆分工作表为单独文件。。。感谢@李解Excel 老师分享:'批量删除有错误引用的名称Sub DeleteErrNames()Dim n As NameFor Each n In ActiveWorkbook.NamesIf InStr(UCase(n.RefersT
2021-05-14 08:40:33
443
原创 自定义函数Function
Function使用插入-过程,选择“函数”,就插入一个[Public|Private] [Static] Function [函数名]([参数列表]) [As 数据类型] '|As可以定义函数返回值的数据类型 <语句块> <函数名=过程结果> '函数名必须是最后输出结果 [Exit Function] [语句块] [函数名=过程结果
2021-05-11 21:11:55
324
原创 Sub过程
Sub过程的基本语句[Private|Public] [Static] Sub 过程名 ([参数列表]) [语句块][Exit Sub] [语句块】End Sub Private(私有的)或 Pubilc(公共的) 用来声明过程中的作用域,同时只能使用一个,可以省略,默认使用Public Static静态 过程执行结束后,VBA会继续保存过程中变量的值 Option Private Module 将模块定义为私有模块,所有的过程都是私有过程 Opt.
2021-05-11 20:44:46
659
原创 Excel VBA中的If,Select循环语句
IF Then Else end ifIf 条件表达式 Then 条件为真执行的操作Else 条件为假执行的操作End If'else可以省略,条件为假时,直接执行end if结束。Select Case 表达式 Case Is 条件1 操作1 Case Is 条件2 操作2 Case Is 条件3 操作3 ...... Case Else 操作End Selec
2021-05-08 21:26:22
2709
原创 Join函数、Transpos函数引用、数组变量使用。
Join函数、Transpos函数引用、数组变量使用。Sub jointxt() Dim arr As Variant, str As String arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) str = Join(arr, "@") MsgBox str End SubSub torang() Dim arr As Variant arr = Array(1, 2, 3, 4, 5) R
2021-05-08 21:13:39
368
原创 For Next 循环2
For Next 循环2声明一个arr变量,并且测量arr的长和宽。Sub 宏1()'声明一个数组变量arr,并为其赋值 Dim arr(1 To 3, 1 To 5, 1 To 10) As Integer Dim g%, H%, j%, K% For g = 1 To 3 For H = 1 To 5 For j = 1 To 10 K = K + 1 arr(g, H, j)
2021-05-08 21:11:15
219
原创 VBA代码学习for循环
Option ExplicitSub 输入奇数() Dim i As Byte, a As Byte For i = 1 To 100 Step 2 a = a + 1 Range("I" & a).Value = i Next iEnd SubApplication.CellsSub 输入3的倍数() Dim i As Byte, xrow As Byte For i = 3 To 100 Step ..
2021-05-08 20:57:55
2444
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人