怎样使代码能够忽略数据源里的文本类数字格式，显示正确结果？

WYS67

各位老师：下面的代码---当数据源为数值类数字时，能够显示正确结果；但是当数据源为文本类数字时，则全部显示为空白！

   怎样修改，才能使代码能够忽略数据源的数字格式，无论数值类还是文本类数字，都能显示正确的结果？
1.gif (671.7 KB, 下载次数: 0)



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


附：代码


Function SQUYU(rng As Range, a, b)
    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 ar(i, 1) > a - 1 And ar(i, 1) < b + 1 Then _
        ar(i, 1) = Int((ar(i, 1) - a) * 3 / (b + 1 - a)) & ar(i, 1) Mod 3 Else ar(i, 1) = ""
    Next
    SQUYU = ar
End Function

lsc900707

ar(1, 1) = rng.value Else ar = rng.value

WYS67

朱荣兴 发表于 2019-6-15 09:40
代码中嵌套val函数即可

版主老师：我也想到了嵌套value函数，只是不知道加在哪里合适？恳请版主老师帮忙！

WYS67

lsc900707 发表于 2019-6-15 09:55
ar(1, 1) = rng.value Else ar = rng.value

版主老师：应该把 ar(1, 1) = rng.value Else ar = rng.value  加在能够地方最合适？

WYS67

lsc900707 发表于 2019-6-15 09:55
ar(1, 1) = rng.value Else ar = rng.value

无论加在 Dim ar, i  之前，还是加在 Dim ar, i  之后，都会发生错误。