论坛网站建设软件,车载嵌入式软件开发,长沙值得去的互联网公司,网站内容页怎么做一个简单的教程#xff0c;实现VBA自定义函数。
新建模块 复制后面的代码放进来 函数的入口参数不定义#xff0c;则认为是一块区域#xff1b; 反之#xff0c;如FindChar1 As String#xff0c;则认为是输入的单值。
循环和分支如下例子#xff0c;VB比较接近自然语…一个简单的教程实现VBA自定义函数。
新建模块 复制后面的代码放进来 函数的入口参数不定义则认为是一块区域 反之如FindChar1 As String则认为是输入的单值。
循环和分支如下例子VB比较接近自然语言英语有功底的话写起来还是比较舒服的。
Function xiu_xi(FindArea)Dim flag As Stringflag Dim N2 As IntegerN2 0For i 2 To FindArea.Columns.CountIf Trim(FindArea.Cells(1, i)) And Trim(FindArea.Cells(1, i - 1)) ThenN2 N2 1If N2 6 Thenflag XExit ForEnd IfElseN2 0End IfNext ixiu_xi flag
End Function
以下实现的是一个双条件的查找用VLOOKUP则需要先连接起来
Function TQ_MultiVLookup(FindChar1 As String, FindChar2 As String, FindArea)Dim n As Integern FindArea.Columns.CountFor i 1 To FindArea.Rows.CountIf FindChar1 FindArea.Cells(i, 1) And FindChar2 FindArea.Cells(i, 2) ThenTQ_MultiVLookup FindArea.Cells(i, n)Exit ForEnd IfNext i
End Function回到Excel的页面使用函数时会有刚才自己加的函数。
