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

lss001

27楼更改代码！
'使用时特别注意→第2参数<小>与第3参数<大>

WYS67

lss001 发表于 2018-12-22 12:11
27楼更改代码！
'使用时特别注意→第2参数与第3参数

经过反复测试验证，您写的代码完全符合要求！非常美满地实现了我的初衷！再次敬谢老师！祝您冬至快乐！

WYS67

lss001 发表于 2018-11-30 17:43
'使用时特别注意→第2参数与第3参数
Function SHUZHEN(rng As Range, y, x)
    Dim ar, b, i

老师：这是怎么回事？上面左表是验证测试的，第二三参数指定为数字时，计算结果正确；但加载宏后，在实际工作表里却显示#VALUE!错误？

lss001

查看一下是否关闭了自动计算，数据是否刷新！

WYS67

lss001 发表于 2018-12-22 13:38
查看一下是否关闭了自动计算，数据是否刷新！

老师：一直都是开启着自动计算。数据都能刷新。

   刚才试着关闭工作簿，重新打开后，已能显示计算结果。输入新数据后，也能显示正确结果。但是如果选定V5:V35104区域，三键确定公式，就又显示#VALUE!错误！再次关闭工作簿，重新打开后，就又能显示计算结果。这是什么原因？

lss001

WYS67 发表于 2018-12-22 17:15
老师：一直都是开启着自动计算。数据都能刷新。

   刚才试着关闭工作簿，重新打开后，已能显示计算结 ...

自行在第二行加上刷新代码？

WYS67

lss001 发表于 2018-12-22 17:36
自行在第二行加上刷新代码？

Application.Volatile     就是这句吗？

WYS67

lss001 发表于 2018-12-22 17:36
自行在第二行加上刷新代码？

添加Application.Volatile 后，当第二三参数是数字常量时，在输公式时还是显示#VALUE!错误；关闭工作簿，重新打开后，就会显示正确结果。但奇怪的是，第二三参数是单元格调用时，输入公式后即可显示正确的计算结果。

lss001

WYS67 发表于 2018-12-22 18:13
添加Application.Volatile 后，当第二三参数是数字常量时，在输公式时还是显示#VALUE!错误；关闭工作簿 ...

设置问题，上转附件看看！
这里2016测试加载后没出现问题！

WYS67

lss001 发表于 2018-12-22 18:53
设置问题，上转附件看看！
这里2016测试加载后没出现问题！

老师：无法上传加载宏后的附件。而未加载宏的附件输入公式时一切都正常。怪就怪在早几个月前，就出现过类似问题。有时是系统问题，如W7旗舰版就容易出故障，我现在用的是W7原版专业版，九个月来还没有出现过问题。但最多的是办公软件问题，office2010专业版出现问题最多，后来换了2016增强版，问题少了很多，偶尔还有，最后换成了365【不能更新的】。几个月来，这次是首次出现问题。

   2010，有时输入特殊一些的函数公式也会显示VALUE!，换成2016增强版以后，出现的问题都是在自定义函数这一块。个别自定义函数在2016增强版中输入公式或计算结果显示VALUE!，换成365后，这是第一次输入自定义函数公式时出现VALUE!--不仅是您写的这个代码，http://club.excelhome.net/forum. ... 1448782&pid=9741167   lsdongjh老师写的代码也是如此，没有加载宏时测试验证都正确，一旦加载宏，也是出现了第二三参数只能输入单元格调用，无法直接输入指定数字。输入用指定数字作第二三参数时，就会出现VALUE!错误。

想不通是怎么回事？会不会是VBA系统出现的问题？