修改原代码中的错误

13782671637

老师们：请看截图：A列是用自定义函数代码JINZHI()写的公式，显示的计算结果和格式都很正确。 优化进制转换的代码.zip (21.07 KB, 下载次数: 17)

2018-6-30 01:02 上传

点击文件名下载附件

    可一旦在工作表任意行列里进行剪切、复制、粘贴等操作，那么所有使用JINZHI()函数公式的行列，就会出现#N/A错误，编写关闭、重新打开工作簿，在公式后面点击确定，才能再次显示正确结果。

    这是什么原因?求高手大神们修改有问题的地方。代码如下：

Function JINZHI(i%, Optional d As Variant, Optional e As Variant) As String
Dim temp, k%, j%
If IsMissing(d) Then d = 3
If IsMissing(e) Then e = 3
temp = "": k = i
For j = 1 To e
  temp = (k Mod d) & temp
  k = Int(k / d)
Next j
JINZHI = temp
Application.Volatile
End Function

13782671637

恳请老师们帮忙解决！

vbee

B列公式问题吧

YZC51

请参考
Function JINZHI(k, Optional d = 3, Optional e = 3) As String
    Dim temp, j%
    'If IsMissing(e) Then e = 3
    d = d + 1
    If k + 1 > d ^ e Then INZHI = "": Exit Function
    For j = 1 To e
        temp = (k Mod d) & temp
        k = k \ d
    Next j
    JINZHI = temp
    Application.Volatile
End Function

YZC51

附件如下：
优化进制转换的代码.zip (19.31 KB, 下载次数: 23)

2018-6-30 09:18 上传

点击文件名下载附件

YZC51

十进制转任意进制
Function JINZHI(k, Optional d = 4, Optional e = 3) As String
    Dim temp, j,M
    d = d + 1
    If k + 1 > d ^ e Then INZHI = "": Exit Function
    For j = 1 To e
    M = (k Mod d)
        temp = IIf(M > 9, Chr(M + 55), M) & temp
        k = k \ d
    Next j
    JINZHI = temp
    Application.Volatile
End Function

13782671637

YZC51 发表于 2018-6-30 09:18
附件如下：

老师：您可以在5楼的附件里复制A5，在工作表的任意一处粘贴，JINZHI()计算出的所有结果仍然全部显示了#N/A错误。只有在A5的公式后面点击确定，才能显示结果，下拉后，A5:A260才又重新显示了正确的结果；而F24:F25还是#N/A啊。
   用了6楼的代码后只要有复制粘贴操作，也依然出现#N/A错误。

YZC51

在我这一切正常，可能是版本问题，2007版本正常！

YZC51

试试这个
Function JINZHI(k, Optional d = 4, Optional e = 3) As String
    Dim temp, j%
    Application.Volatile
    'If IsMissing(e) Then e = 3
    On Error Resume Next
    d = d + 1
    If k + 1 > d ^ e Then INZHI = "": Exit Function
    For j = 1 To e
        M = (k Mod d)
        temp = IIf(M > 9, Chr(M + 55), M) & temp
        k = k \ d
    Next j
    JINZHI = temp
End Function

13782671637

YZC51 发表于 2018-6-30 13:01
在我这一切正常，可能是版本问题，2007版本正常！

这是我用了6楼代码，随意复制粘贴公式结果到其它地方后的截图