Question

我想比较powerpoint中2个文本框的值，并突出显示具有最高数值的文本框。

这是我的代码：

If ActivePresentation.Slides(4).Shapes("Rectangle 84").TextFrame.TextRange.Text.Value >= ActivePresentation.Slides(4).Shapes("Rectangle 95").TextFrame.TextRange.Text.Value Then XXXX

不幸的是，如果Rectangle 84的值为＆＃34; 11＆＃34;和Rectangle 95的值为6，然后突出显示6。有没有办法将文本转换为数值，所以我得到了正确的结果？

由于詹姆斯

Answer 1

首先尝试将值转换为数字，例如使用CLng（转换为long）或CDbl（转换为double），如果您需要非整数。

If CDbl(ActivePresentation.Slides(4).Shapes("Rectangle 84").TextFrame.TextRange.Text.Value) >= CDbl(ActivePresentation.Slides(4).Shapes("Rectangle 95").TextFrame.TextRange.Text.Value) Then XXXX

字符串"11"比"6"“小”，因为它们按字母顺序排序。

您还可以在转换前使用IsNumeric检查文字是否有效，以防止类型不匹配

Powerpoint中的VBA：文本框值

1 个答案: