奇怪，奇怪、真是奇怪。。。Evaluate(Cells(rngrow, 5).Value)

淹不死的鱼

Evaluate(Cells(rngrow, 5).Value)   ,单元格我都试着改成常规或文本形式，可输入4         Evaluate(Cells(rngrow, 5).Value) 就返回成对象了，
If Evaluate(Cells(rngrow, 5).Value) <> 0 And Evaluate(Cells(rngrow, 5).Value) > 0 Then  报错..


输入其它数值都没问题 。。。奇怪，奇怪、真是奇怪。。

淹不死的鱼

offices2007有问题，WPS就没事，这是怎么回事?????????

一招秒杀

淹不死的鱼 发表于 2024-10-21 18:44
offices2007有问题，WPS就没事，这是怎么回事?????????

都2024年了，至少用2019或者2021，现在硬件太便宜了，带不动就升级或者换新吧，它带来的效率提升和心情愉悦等 回报 远超过 那么一丁点的投入，非常划算。

taller

If Val(Cells(rngrow, 5).Value) <> 0 And Val(Cells(rngrow, 5).Value) > 0 Then

淹不死的鱼

加入Evaluater函数就是为了能方便用户在单元格能加入"4+1"等公式，所以还是想用Evaluater

淹不死的鱼

一招秒杀 发表于 2024-10-21 19:48
都2024年了，至少用2019或者2021，现在硬件太便宜了，带不动就升级或者换新吧，它带来的效率提升和心情愉 ...

软件开发要在最恶劣的环境下进行调试和检验，要适应任何环境，用户可不管用什么样的系统，只要在他的破机器上能用就是好软件。。。

lss001

淹不死的鱼 发表于 2024-10-22 07:55
软件开发要在最恶劣的环境下进行调试和检验，要适应任何环境，用户可不管用什么样的系统，只要在他的破机 ...

Evaluate使用时建议不要省略双引号
省略双引号会出现不可预知的结果

方式1→参数传值
rngrow = Cells(Rows.Count, 1).End(3).Row
MsgBox Evaluate("" & Cells(rngrow, 5).Value & "")

方式2→参数传文本<推荐>
rngrow = Cells(Rows.Count, 1).End(3).Row
MsgBox Evaluate("" & Cells(rngrow, 5).Text & "")

淹不死的鱼

lss001 发表于 2024-10-22 08:23
Evaluate使用时建议不要省略双引号
省略双引号会出现不可预知的结果

就是非常奇怪，输入其它值都没问题，1，2，3.1 ，可就输入4时出错了，返回成对象了，原因何在？？？？

lss001

淹不死的鱼 发表于 2024-10-22 08:59
就是非常奇怪，输入其它值都没问题，1，2，3.1 ，可就输入4时出错了，返回成对象了，原因何在？？？？

建议上传附件测试或使用方式3
方式3→参数传地址
rngrow = Cells(Rows.Count, 1).End(3).Row
MsgBox Evaluate(Cells(rngrow, 5).Address).Value

淹不死的鱼

lss001 发表于 2024-10-22 09:19
建议上传附件测试或使用方式3
方式3→参数传地址
rngrow = Cells(Rows.Count, 1).End(3).Row

非常诡异。。。。