十、个位指定数字对应的自定义函数

WYS67

十、个位指定数字对应.zip (10.37 KB, 下载次数: 4)

2020-1-18 19:47 上传

点击文件名下载附件

选定B5，输入函数公式  =IF($A5="","",(--LEFT($A5)=B$4)+(--RIGHT($A5)=B$4)*2)，右拉下拉，即可得出如B:C列显示的计算结果

当数据量偏大时，函数公式有点吃力，又由于经常用到，敬请老师们编写个自定义函数，谢谢！

yjh_27

1. Function SGWDY(A, B)
   
2. arr = A
   
3. n3 = Application.Caller.Rows.Count
   
4. ReDim scrr(1 To n3, 1 To 1)
   
5. If n3 > UBound(arr) Then i2 = UBound(arr) Else i2 = n3
   
6. For i = 1 To i2
   
7.     If CStr(arr(i, 1)) = B & B Then
   
8.         scrr(i, 1) = 3
   
9.     ElseIf Left(arr(i, 1), 1) = CStr(B) Then
   
10.         scrr(i, 1) = 1
    
11.     ElseIf Right(arr(i, 1), 1) = CStr(B) Then
    
12.         scrr(i, 1) = 2
    
13.     ElseIf arr(i, 1) = "" Then
    
14.         scrr(i, 1) = ""
    
15.     Else
    
16.         scrr(i, 1) = 0
    
17.     End If
    
18. Next
    
19. For ii = i To n3
    
20.     scrr(ii, 1) = ""
    
21. Next
    
22. SGWDY = scrr
    
23. End Function
    
24. 
    

复制代码

WYS67

yjh_27 发表于 2020-1-19 00:16

老师：是不是忘了M27里提到的：2.普通公式输入：选定B5，输入普通公式 =SGWDY(A5【或直接输入"20"】,B$4【或0】) ，即可得出如B5显示的计算结果？  现在选定B5，输入=SGWDY(A5,B$4) ，或 =SGWDY("20",0) ，就会显示#VALUE!错误。

yjh_27

WYS67 发表于 2020-1-19 06:52
老师：是不是忘了M27里提到的：2.普通公式输入：选定B5，输入普通公式 =SGWDY(A5【或直接输入"20"】,B$4 ...

1. Function SGWDY(A, B)
   
2. ar = A
   
3. If Not IsArray(ar) Then
   
4.     ReDim arr(1 To 1, 1 To 1)
   
5.     arr(1, 1) = A
   
6. Else
   
7.     arr = ar
   
8. End If
   
9. n3 = Application.Caller.Rows.Count
   
10. ReDim scrr(1 To n3, 1 To 1)
    
11. If n3 > UBound(arr) Then i2 = UBound(arr) Else i2 = n3
    
12. For i = 1 To i2
    
13.     If CStr(arr(i, 1)) = B & B Then
    
14.         scrr(i, 1) = 3
    
15.     ElseIf Left(arr(i, 1), 1) = CStr(B) Then
    
16.         scrr(i, 1) = 1
    
17.     ElseIf Right(arr(i, 1), 1) = CStr(B) Then
    
18.         scrr(i, 1) = 2
    
19.     ElseIf arr(i, 1) = "" Then
    
20.         scrr(i, 1) = ""
    
21.     Else
    
22.         scrr(i, 1) = 0
    
23.     End If
    
24. Next
    
25. For ii = i To n3
    
26.     scrr(ii, 1) = ""
    
27. Next
    
28. SGWDY = scrr
    
29. End Function
    
30. 
    

复制代码

WYS67

yjh_27 发表于 2020-1-19 09:42

老师：已测试，完全正确！

   感谢一直以来您的热心帮忙，祝老师春节快乐！