|
Function Mylookup2(s1, s2, s3, ByVal CL As Range)
上述自定义公式中,CL如果表示为公式所处单元格,应该怎么写?即在应用公式时,不必在输入单元格,只需输入查找内容。
现在应用公式:=Mylookup2("优",“良”, “差”, A1)
预期应用公式:=Mylookup2("优",“良”, “差”)
即不用输入单元格A1,
Function Mylookup2(s1, s2, s3, ByVal CL As Range)
Dim i, j, z As Long
i = 0
j = 0
z = 0
C = CL.Column
For r = 6 To Cells(65536, C).End(xlUp).Row
Select Case Cells(r, C) ' 判断 Number 的值。
Case s1
i = i + 1
Case s2
j = j + 1
Case s3
z = z + 1
End Select
Next r
Mylookup2 = i & "-" & j & "-" & z
End Function
Function Mylookup3(CL As Range)
Dim x As Range, i&, j&, k&
For Each x In CL
Select Case x
Case "优"
i = i + 1
Case "良"
j = j + 1
Case "差"
k = k + 1
End Select
Next
Mylookup3 = i & "-" & j & "-" & k
End Function
优良差统计2.rar
(10.47 KB, 下载次数: 2)
|
|