一個(gè)簡(jiǎn)單的教程，實(shí)現(xiàn)VBA自定義函數(shù)。
新建模塊
復(fù)制后面的代碼放進(jìn)來(lái)
函數(shù)的入口參數(shù)不定義，則認(rèn)為是一塊區(qū)域；
反之，如FindChar1 As String，則認(rèn)為是輸入的單值。
循環(huán)和分支如下例子，VB比較接近自然語(yǔ)言，英語(yǔ)有功底的話，寫(xiě)起來(lái)還是比較舒服的。
Function xiu_xi(FindArea)
Dim flag As String
flag = " "
Dim N2 As Integer
N2 = 0
For i = 2 To FindArea.Columns.Count
If Trim(FindArea.Cells(1, i)) = "" And Trim(FindArea.Cells(1, i - 1)) = "" Then
N2 = N2 + 1
If N2 >= 6 Then
flag = "X"
Exit For
End If
Else
N2 = 0
End If
Next i
xiu_xi = flag
End Function
以下實(shí)現(xiàn)的是一個(gè)雙條件的查找，用VLOOKUP則需要先連接起來(lái)
Function TQ_MultiVLookup(FindChar1 As String, FindChar2 As String, FindArea)
Dim n As Integer
n = FindArea.Columns.Count
For i = 1 To FindArea.Rows.Count
If FindChar1 = FindArea.Cells(i, 1) And FindChar2 = FindArea.Cells(i, 2) Then
TQ_MultiVLookup = FindArea.Cells(i, n)
Exit For
End If
Next i
End Function
回到Excel的頁(yè)面，使用函數(shù)時(shí)，會(huì)有剛才自己加的函數(shù)。
文章來(lái)源：http://www.zghlxwxcb.cn/news/detail-684473.html
注意:要保存到自定義函數(shù)，需要使用.xlsm格式文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-684473.html
到了這里，關(guān)于VBA Excel自定義函數(shù)的使用 簡(jiǎn)單的語(yǔ)法的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
