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

WYS67

跪求老师们帮忙写出--如果数据源为空时，则显示空白的代码！

WYS67

希望有老师帮忙在代码中加入--当数据源为空白时，对应的结果也必须显示为空白 --的语句。

YZC51

WYS67 发表于 2019-6-27 19:47
跪求老师们帮忙写出--如果数据源为空时，则显示空白的代码！

是这样吗？
Function NQUYU(rng As Range, a, b, Optional n = 3)
    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) = Int((CLng(ar(i, 1)) - CLng(a)) * n / (CLng(b) + 1 - CLng(a))) & CLng(ar(i, 1)) Mod n Else ar(i, 1) = ""
        If ar(i, 1) = 0 Then ar(i, 1) = ""
    Next
    NQUYU = ar
End Function

WYS67

WYS67 发表于 2019-6-28 10:12
希望有老师帮忙在代码中加入--当数据源为空白时，对应的结果也必须显示为空白 --的语句。

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

2019-6-28 10:48 上传

点击文件名下载附件

老师：您的代码，虽然M7:V7，显示了空白；但If ar(i, 1) = 0 Then ar(i, 1) = ""   但是把M5:V13里粉红色填充处的正确结果00也屏蔽成了空白；

而我需要的是：在For i = 1 To UBound(ar)下边，添加--仅当If ar(i, 1) = "" Then   对应结果显示空白！苦于不会编写If ar(i, 1) = "" Then  显示为空的代码。
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) = Int((CLng(ar(i, 1)) - CLng(a)) * n / (CLng(b) + 1 - CLng(a))) & CLng(ar(i, 1)) Mod n Else ar(i, 1) = ""
    Next

也就是：当数据源A7为空时，相应的M7:V7也应该显示空白；当A42以下没有数据时，相应的M42:V42以下也必须显示为空白！

WYS67

跪求老师按14楼的要求，在代码中加入--当数据源为空白时，对应的结果也必须显示为空白 --的判断语句。

WYS67

跪求老师按14楼的要求，在代码中加入--当数据源某些行没有数据【为空】存在时，输出列的返回结果也必须显示为空白 --的判断语句。

YZC51

Function NQUYU(rng As Range, a, b, Optional n = 3)
    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") Else ar(i, 1) = ""
end if
    Next
    NQUYU = ar
End Function

WYS67

YZC51 发表于 2019-6-28 13:47
Function NQUYU(rng As Range, a, b, Optional n = 3)
    Dim ar, i: ar = rng
    If Not IsArray(ar)  ...

老师：17楼的代码，遇到数据源A列为空时，计算结果还是显示“0”，仍然无法实现：当数据区域的某行为空白时，结果输出列的对应行也应显示为空白的目的。

WYS67

YZC51 发表于 2019-6-28 13:47
Function NQUYU(rng As Range, a, b, Optional n = 3)
    Dim ar, i: ar = rng
    If Not IsArray(ar)  ...

老师：我需要的结果是：如果数据源A列的所有行都有数据，则显示1楼原代码计算结果；倘若像如4楼所示，A7和A42以下没有数据【即为空】，则对应的结果输出列M7:V7和M42:V42以下也必须显示空白。

YZC51

WYS67 发表于 2019-6-28 14:12
老师：我需要的结果是：如果数据源A列的所有行都有数据，则显示1楼原代码计算结果；倘若像如4楼所示，A7 ...

哦，这样试试
Function NQUYU(rng As Range, a, b, Optional n = 3)
    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")
            Else
                ar(i, 1) = ""
            End If
        Else
            ar(i, 1) = ""
        End If
    Next
    NQUYU = ar
End Function