[已解决]如何把公式以值的方式显示

林木水

各位老师好！
以下代码怎么在不使用单元格的Formula属性的情况下变成值，代码如下
Sub text()
    Dim sr, x As Integer
    For x = 1 To 10
        sr = sr & "+" & x
    Next x
    Debug.Print sr
End Sub


我不需要显示 “+1+2+3+4+5+6+7+8+9+10”，我需要直接输出结果55

感谢

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-30 12:48

Sub demo()
   Dim sr, x As Integer
   For x = 1 To 10
      sr = sr & "+" & x
   Next
   Debug.Print Evaluate(Mid(sr, 2, 99))
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

一剑惊心

sr = sr + x

cutecpu

Sub demo()
   Dim sr, x As Integer
   For x = 1 To 10
      sr = sr & "+" & x
   Next
   Debug.Print Evaluate(Mid(sr, 2, 99))
End Sub


祝順心，南無阿彌陀佛！

风林火山

连接符删掉

林木水

风林火山 发表于 2021-11-30 13:13
连接符删掉

谢谢，明白了

林木水

cutecpu 发表于 2021-11-30 12:48
Sub demo()
   Dim sr, x As Integer
   For x = 1 To 10

谢谢，这个函数可以，我一直没有想起来

林木水

一剑惊心 发表于 2021-11-30 12:32
sr = sr + x

明白了，谢谢。