计算结果复制vba修改

leedun

这是一个计算表达式的宏，文件里面的表达式是实验用的，文件中的宏能计算选中的表达式，请教各位前辈如何在宏运行计算出表达式结果后能把结果复制到剪贴板，谢谢

413191246se

全选，查找“^p”，替换为“=11303.05^p”

leedun

413191246se 发表于 2022-10-2 12:56
全选，查找“^p”，替换为“=11303.05^p”

感谢前辈回复，怪我没有把问题表述清楚，文件里面的表达式是实验用的，文件中的宏能计算选中的表达式，我是想在宏运行计算出表达式结果后能把结果复制到剪贴板，感谢

413191246se

* 楼主，下面的宏请放在 标准模块 NewMacros 中使用，且仅适用于“+”（加法）：

1. Sub a1002_Calculate()
   
2.     Dim x$, y$, s$, t$
   
3.     With Selection
   
4.         .HomeKey 6
   
5.         Do
   
6.             Do
   
7.                 .MoveRight 1, 1, 1
   
8.             Loop Until Not .Next Like "#"
   
9.             x = .Text
   
10.             .MoveRight 1, 2
    
11.             .Extend vbCr
    
12.             .MoveEnd 1, -1
    
13.             y = .Text
    
14.             s = Val(x) + Val(y)
    
15.             t = t & vbCr & s
    
16.             If .Paragraphs(1).Range.End = ActiveDocument.Content.End Then Exit Do
    
17.             .Move 4
    
18.             If .Paragraphs(1).Range.Text = vbCr Then Exit Do
    
19.         Loop
    
20.     End With
    
21.     Documents.Add.Content.Text = t
    
22.     ActiveDocument.Paragraphs(1).Range.Delete
    
23.     Selection.WholeStory
    
24.     Selection.Cut
    
25.     ActiveDocument.Close 0
    
26.     ActiveDocument.Close 0
    
27.    
    
28.     'verify
    
29.     Documents.Add
    
30.     Selection.Paste
    
31. End Sub

复制代码

leedun

413191246se 发表于 2022-10-2 18:57
* 楼主，下面的宏请放在 标准模块 NewMacros 中使用，且仅适用于“+”（加法）：

感谢前辈以前多次解决困难，也从前辈的帖子中学到了很多简便方法，问题已经解决

413191246se

楼主，你好！——不能！如果这一句代码就解决问题，我何必编那么多行代码呢？什么问题看似简单，都得编写好多代码的。你说的这句代码，运算结果是 0 。另外，建议最好将代码都放在标准模块 NewMacros 中。

leedun

413191246se 发表于 2022-10-3 11:24
楼主，你好！——不能！如果这一句代码就解决问题，我何必编那么多行代码呢？什么问题看似简单，都得编写好 ...

运算结果为0是因为前辈的表达式不规范，不能出现全角字符

leedun

413191246se 发表于 2022-10-3 11:24
楼主，你好！——不能！如果这一句代码就解决问题，我何必编那么多行代码呢？什么问题看似简单，都得编写好 ...

感谢前辈，问题解决了

413191246se

是吗？不过，我在英文状态下输入“1+2”用你这句代码，结果仍然为“0”。你是怎么算的？

leedun

413191246se 发表于 2022-10-3 21:53
是吗？不过，我在英文状态下输入“1+2”用你这句代码，结果仍然为“0”。你是怎么算的？

需要先选择1+2，不要选择上回车符
另请教前辈，在Set MyRange=MyDocument.Range(Start:=selection.start,End:=selection.end)中，"selection.start"能具体到某一个字符吗