添加代码--当数据源为空格时，对应的结果也必须显示为空白

玉阳山人

YZC51 发表于 2019-6-28 15:18
哦，这样试试
Function NQUYU(rng As Range, a, b, Optional n = 3)
    Dim ar, i: ar = rng

        Else
            ar(i, 1) = ""
        End If

  老师：为什么要用两个上面的语句？

WYS67

YZC51 发表于 2019-6-28 15:18
哦，这样试试
Function NQUYU(rng As Range, a, b, Optional n = 3)
    Dim ar, i: ar = rng

这次修改的代码，计算结果完全正确！只是不明白，为什么要重复下面的语句？

        Else
            ar(i, 1) = ""
        End If

YZC51

WYS67 发表于 2019-6-28 15:43
这次修改的代码，计算结果完全正确！只是不明白，为什么要重复下面的语句？

        Else

这个判断是
  ar(i, 1) = ""
A 列当前行等于空时的输出结果

WYS67

YZC51 发表于 2019-6-28 16:07
这个判断是
  ar(i, 1) = ""
A 列当前行等于空时的输出结果

非常感谢老师的耐心帮忙！祝老师永远快乐，好人一生平安！

YZC51

WYS67 发表于 2019-6-28 16:23
非常感谢老师的耐心帮忙！祝老师永远快乐，好人一生平安！

祝您天天向上，永远快乐，好人一生平安！

WYS67

YZC51 发表于 2019-6-28 15:18
哦，这样试试
Function NQUYU(rng As Range, a, b, Optional n = 3)
    Dim ar, i: ar = rng

指定范围数字转换成n区余YZC51.zip (22.87 KB, 下载次数: 1)

2019-9-25 08:07 上传

点击文件名下载附件

老师：您20楼写的代码很好！在这几个月的实际应用中，发现有时需要只显示B:K列的十位数【就如M5:V41那样】；而有时却需要只显示B:K列的个位数【就如X5:AG41那样】。

  最好的方法是给20楼的代码，增加第五参数【就如截图里的B4:AG4】，使公式变成： =NQUYU(数据区域，最小值，最大值,区余基数,显示选择)，这样：


当第五参数显示选择如B4:K4指定为0【可省略】时，仍旧全部执行20楼代码的计算结果【两位数显示】；


当第五参数显示选择如M4:V4指定为1时，则只显示20楼代码的计算结果中的十位数，就如M5:V41显示的那样；


当第五参数显示选择如X4:AG4指定为2时，则只显示20楼代码的计算结果中的个位数，就如X5:AG41显示的那样。

恳请老师据此修改20楼的代码。

YZC51

请参考
Function NQUYU(rng As Range, a, b, Optional n = 3, Optional m = 0)
    Dim ar, i: ar = rng
    If Not IsArray(ar) Then ReDim ar(1 To 1, 1 To 1): ar(1, 1) = rng Else ar = rng
    For i = 1 To UBound(ar)
        If ar(i, 1) <> "" Then
            If CLng(ar(i, 1)) > CLng(a) - 1 And CLng(ar(i, 1)) < CLng(b) + 1 Then
                ar(i, 1) = Format(Int((CLng(ar(i, 1)) - CLng(a)) * n / (CLng(b) + 1 - _
                CLng(a))) & CLng(ar(i, 1)) Mod n, "00")
    If m = 1 Then ar(i, 1) = Left(ar(i, 1), 1)
    If m = 2 Then ar(i, 1) = Right(ar(i, 1), 1)
            Else
                ar(i, 1) = ""
            End If
        Else
            ar(i, 1) = ""
        End If
    Next
    NQUYU = ar
End Function

WYS67

YZC51 发表于 2019-9-25 08:55
请参考
Function NQUYU(rng As Range, a, b, Optional n = 3, Optional m = 0)
    Dim ar, i: ar = rng
...

    If m = 1 Then ar(i, 1) = Left(ar(i, 1), 1)
    If m = 2 Then ar(i, 1) = Right(ar(i, 1), 1)

原来是需要这么写，和函数公式基本相同啊！

谢谢老师，祝老师国庆节快乐！！！

YZC51

WYS67 发表于 2019-9-25 09:12
If m = 1 Then ar(i, 1) = Left(ar(i, 1), 1)
    If m = 2 Then ar(i, 1) = Right(ar(i, 1), 1)

...

不客气！能用就好！

YZC51

祝您国庆节快乐！！！