创建一位数转换两位数的自定义函数

玉阳山人

lss001 发表于 2018-11-30 13:57
→_→→_→

老师写的代码运行快捷，显示结果正确，非常圆满地解决了问题！谢谢老师！

玉阳山人

yjh_27 发表于 2018-11-30 14:21
=SHUZHEN(E5:E100000,E2,E3)
或者不用数组gs
G5

对不起，扩展区域后，忘了修改E41为E100000，修改后显示的计算结果正确！

或者不用数组公式
G5
=SHUZHEN(E5,E$2,E&3)
下拉

在H5输入=SHUZHEN(E5,E$2,E&3)，下拉后发生#VALUE!错误

yjh_27

玉阳山人 发表于 2018-11-30 14:36
对不起，扩展区域后，忘了修改E41为E100000，修改后显示的计算结果正确！

或者不用数组公式

=SHUZHEN(E5,E$2,E$3)
重新下载7L附件

lsdongjh

1. '可以数组，可以单应用
   
2. Function GetTwoNum(rgSource As Range, rgMin As Range, rgMax As Range) As Variant
   
3.     Dim arr As Variant, lngRow As Long, strTemp As String
   
4.     Dim lngInterval As Long, strResult As String
   
5.     Dim lngSource As Long, lngMin As Long, lngMax As Long
   
6.     If rgSource.Count = 1 Then
   
7.         ReDim arr(1 To 1, 1 To 1)
   
8.         arr(1, 1) = rgSource.Value
   
9.     Else
   
10.         arr = rgSource
    
11.     End If
    
12.     lngMin = rgMin.Value
    
13.     lngMax = rgMax.Value
    
14.    
    
15.     For lngRow = LBound(arr) To UBound(arr)
    
16.         strTemp = arr(lngRow, 1)
    
17.         If Trim(strTemp) = "" Then
    
18.             arr(lngRow, 1) = ""
    
19.         Else
    
20.             lngSource = Val(strTemp)
    
21.             lngInterval = (lngMax - lngMin + 1) \ 3
    
22.             strResult = (lngSource - lngMin) \ lngInterval
    
23.             strResult = strResult & (lngSource Mod 3)
    
24.             arr(lngRow, 1) = strResult
    
25.         End If
    
26.     Next
    
27. 
    
28.     GetTwoNum = arr
    
29. End Function

复制代码

玉阳山人

yjh_27 发表于 2018-11-30 15:00
=SHUZHEN(E5,E$2,E$3)
重新下载7L附件

这次测试后完全正确！谢谢老师！

玉阳山人

lsdongjh 发表于 2018-11-30 15:38

谢谢老师：您写的代码完全遵循了{ =SHUZHEN(数据区域，最小值，最大值)   语法规则--即第二参数为最小值，第三参数为最大值！
感谢老师的热心帮忙！

lsdongjh

玉阳山人 发表于 2018-11-30 15:57
谢谢老师：您写的代码完全遵循了{ =SHUZHEN(数据区域，最小值，最大值)   语法规则--即第二参数为最小值 ...

刚才看了一下，前面的兄弟给的答案，有个BUG，可以试着将最小值改为>=2再试试

WYS67

yjh_27 发表于 2018-11-30 15:00
=SHUZHEN(E5,E$2,E$3)
重新下载7L附件

老师：按函数语法规则是： {  =SHUZHEN(数据区域，最小值，最大值)，第二三参数可以是指定数值，也可以是单元格引用

    第二参数是最小值，第三参数是最大值。而您写的代码指定第二参数是最大值，第三参数是最小值；由于自定义函数没有函数参数说明，导致在输入公式时很容易出错【我其它自定义函数都是升序排列，最小值在前，最大值在后】，麻烦您修改代码{  =SHUZHEN(数据区域，最大值，最小值)为{  =SHUZHEN(数据区域，最小值，最大值)

yjh_27

WYS67 发表于 2018-11-30 16:12
老师：按函数语法规则是： {  =SHUZHEN(数据区域，最小值，最大值)，第二三参数可以是指定数值，也可以是 ...

Function SHUZHEN(a, smin, smax)

你自己调一下就可以了

玉阳山人

lsdongjh 发表于 2018-11-30 16:02
刚才看了一下，前面的兄弟给的答案，有个BUG，可以试着将最小值改为>=2再试试

老师：最小值限定为0或者1，不存在>1的情况，所以就不需要测试最小值改为>=2了吧？