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

玉阳山人

yjh_27 发表于 2018-11-30 16:23
Function SHUZHEN(a, smin, smax)

你自己调一下就可以了

还真是会者不难难者不会啊！非常感谢老师的悉心指导！

lsdongjh

玉阳山人 发表于 2018-11-30 16:36
老师：最小值限定为0或者1，不存在>1的情况，所以就不需要测试最小值改为>=2了吧？

抽象，抽象，抽象！！！
算法是抽象的！！！

玉阳山人

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

老师：函数语法是： {  =SHUZHEN(数据区域，最小值，最大值)，第二、三参数可以是指定数值，也可以是单元格引用。
而您写的代码则是：=SHUZHEN(数据区域，最大值，最小值)，怎样修改下面代码，才能使输入公式=SHUZHEN(数据区域，最小值，最大值)后，得出正确的计算结果？

   把代码第一行Function SHUZHEN(rng As Range, x, y)，改成Function SHUZHEN(rng As Range, y, x)行不行？

Function SHUZHEN(rng As Range, x, y)
Dim ar, b, i
ar = rng: b = (x - y + 1) / 3
For i = 1 To UBound(ar)
    If ar(i, 1) <> "" Then
        If y = 0 Then ar(i, 1) = ar(i, 1) \ b & ar(i, 1) Mod 3
        If y > 0 Then ar(i, 1) = (ar(i, 1) - 1) \ b & ar(i, 1) Mod 3
    Else
        ar(i, 1) = ""
    End If
Next
SHUZHEN = ar
End Function

玉阳山人

lsdongjh 发表于 2018-11-30 16:45
抽象，抽象，抽象！！！
算法是抽象的！！！

指定最小值只有0或者1这两种情况发生，绝对没有第三者情况出现的可能。

lss001

把第一行代码→x，y位置调换完全可以！
其实是书写习惯问题！

WYS67

lss001 发表于 2018-11-30 17:05
把第一行代码→x，y位置调换完全可以！
其实是书写习惯问题！

由于自定义函数输入时没有参数说明，为了防止弄混，同类参数我一般都是采取升序输入--最小值-中位值-最大值的。

谢谢老师！

lss001

'使用时特别注意→第2参数<小>与第3参数<大>
Function SHUZHEN(rng As Range, y, x)
    Dim ar, b, i
    ar = rng: b = Int((x - y + 1) / 3)
    If Not IsArray(ar) Then
        ReDim ar(1 To 1,1 To 1): ar(1, 1) = rng
    Else: ar = rng
    EndIf
    For i = 1 To UBound(ar)
        If ar(i, 1) <> "" Then
            If y = 0 Then ar(i, 1) = Int(ar(i, 1) / b) & ar(i, 1) Mod 3
            If y = 1 Then ar(i, 1) = Int((ar(i, 1) - 1) / b) & ar(i, 1) Mod 3
        Else: ar(i, 1) = ""
        End If
    Next
    SHUZHEN = ar
End Function

WYS67

lss001 发表于 2018-11-30 17:43
综合您以及楼上各位意见代码完善一下
把最小值与最大值位置互换！
当最小值大于1或小于0时将给出提示！

经测试后显示的计算结果完全正确！再次感谢老师！

WYS67

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

老师：VBA抓取指定网页内容，能不能抓取到下拉框里隐藏的内容？
  http://club.excelhome.net/thread-1449108-1-1.html

lss001

WYS67 发表于 2018-12-1 12:32
老师：VBA抓取指定网页内容，能不能抓取到下拉框里隐藏的内容？
  http://club.excelhome.net/thread-14 ...

很少写网抓代码！