站长工具ip地址环球网广东疫情最新消息

一个简单的教程，实现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 = "X"Exit 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的页面，使用函数时，会有刚才自己加的函数。