随机取值不准确加上状态栏数据没有同步

第一宝

求助两个问题，问题在截图上面，一个是随机取数有时候结果不是指定好的，一个问题是下面状态栏的数据和跳出来的数据不同步，比如上面显示16下面状态栏会显示其他数字，谢谢！

1. Sub sj()
   
2.     n = Range("V1").Value
   
3. 100
   
4.     ThisWorkbook.RefreshAll
   
5.     If Range("G9").Value <> n Then
   
6.         GoTo 100
   
7.     End If
   
8. End Sub

复制代码

liulang0808

建议楼主结合附件内容，举例描述需求实现过程。
另外代码加密了吧

第一宝

liulang0808 发表于 2024-3-27 07:44
建议楼主结合附件内容，举例描述需求实现过程。
另外代码加密了吧

谢谢提示，刚更新了附件，昨天晚上搞晕头了，本来已经去掉密码了，可惜压缩的时候表格还没有保存。主要是会出现两个问题，一个是有时候跳出来的结果不是指定好的数字16，一个是跳出来16 但是下面状态栏会显示其他的数字 没有同步，帮忙看看是否可以解决，感谢！！！

liulang0808

第一宝 发表于 2024-3-27 08:01
谢谢提示，刚更新了附件，昨天晚上搞晕头了，本来已经去掉密码了，可惜压缩的时候表格还没有保存。主要是 ...

楼主刚才上传的代码跟状态栏有关联吗？

第一宝

liulang0808 发表于 2024-3-27 08:10
楼主刚才上传的代码跟状态栏有关联吗？

比如这跳出的结果是16，下面状态栏的平均值确实11，这里没有状态栏没有同步上，这个问题没有解决

liulang0808

第一宝 发表于 2024-3-27 08:13
比如这跳出的结果是16，下面状态栏的平均值确实11，这里没有状态栏没有同步上，这个问题没有解决

楼主目前上传的代码跟状态栏没有关联啊，
所以楼主还是看看自己手头的原始文件，对应最后终止的位置，是否修改状态栏了

第一宝

liulang0808 发表于 2024-3-27 08:14
楼主目前上传的代码跟状态栏没有关联啊，
所以楼主还是看看自己手头的原始文件，对应最后终止的位置，是 ...

代码里面是没有和状态栏有关系的，所以才奇怪为什么状态栏那里没有同步上，想解决这个最终显示一致的问题

liulang0808

第一宝 发表于 2024-3-27 08:17
代码里面是没有和状态栏有关系的，所以才奇怪为什么状态栏那里没有同步上，想解决这个最终显示一致的问题

楼主用的是excel吗？选中数据区域，统计结果，在excel状态栏中一般显示在右侧的

第一宝

liulang0808 发表于 2024-3-27 08:22
楼主用的是excel吗？选中数据区域，统计结果，在excel状态栏中一般显示在右侧的

其实代码不多，我试了在excel中运行不了，这目前是在WPS里面运行的

liulang0808

对照修改了下，你看看是否可行吧