[英]Excel VBA UDF Count Ifs with data conversion
我正在嘗試使用Countifs編寫UDF。 我希望用戶能夠選擇條件1(保持為X1)和月份(保持為month_X)。 查找表中的月份為數字,因此我希望函數將月份名稱轉換為月份號。
這可行-但是有更好的方法轉換數據嗎? 即更少的代碼行?
Function CountIF_Custom(X1 As String, Month_X As String)
Dim MonthArray(1 To 12, 1 To 2) As Variant
MonthArray(1, 1) = "January"
MonthArray(2, 1) = "February"
MonthArray(3, 1) = "March"
MonthArray(4, 1) = "Apr"
MonthArray(5, 1) = "May"
MonthArray(6, 1) = "June"
MonthArray(7, 1) = "July"
MonthArray(8, 1) = "August"
MonthArray(9, 1) = "September"
MonthArray(10, 1) = "October"
MonthArray(11, 1) = "November"
MonthArray(12, 1) = "December"
MonthArray(1, 2) = "1"
MonthArray(2, 2) = "2"
MonthArray(3, 2) = "3"
MonthArray(4, 2) = "4"
MonthArray(5, 2) = "5"
MonthArray(6, 2) = "6"
MonthArray(7, 2) = "7"
MonthArray(8, 2) = "8"
MonthArray(9, 2) = "9"
MonthArray(10, 2) = "10"
MonthArray(11, 2) = "11"
MonthArray(12, 2) = "12"
For x = 1 To 12
If Month_X = MonthArray(x, 1) Then
Month_X = MonthArray(x, 2)
End If
Next x
CountIF_Custom = Application.CountIfs(Sheets("SomeSheet").Range("SomeRange"), X1, Sheets("SomeSheet").Range("SomeRange"), Month_X)
End Function
不需要數組,可以將MonthName函數與for循環一起使用:
Function CountIF_Custom(X1 As String, Month_X As String)
Dim x As Integer
For x = 1 To 12
If Month_X = MonthName(x) Then
Month_X = CStr(x)
Exit For
End If
Next x
CountIF_Custom = Application.CountIfs(Sheets("SomeSheet").Range("SomeRange"), X1, Sheets("SomeSheet").Range("SomeRange"), Month_X)
End Function
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.