如何计算数值表达式作为字符串存储

文章编号	:	159974
最后修改	:	2004年7月1日
修订	:	3.1

本页

概要

更多信息

分步示例

概要

给定字符串表达式, Val 函数返回字符串中包含数。但是, 如果它遇到不是数字或一部分数字, 字符它忽略其余的字符串。例如, Val("2") 返回数值 2, 但 Val("2+2") 还返回数值 2, 并 Val("(2+2)") 返回数 0。

本文介绍如何获得实际值的数值表达式通过 Excel 对象模型中使用现有功能存储当作 String。

回到顶端

更多信息

您可能希望使用户得以键入文本框中自己数值表达式，然后评估它在某些情况, 在其他情况, 可能需要读取 ASCII 文件包含一系列数值表达式并再产生其他 ASCII 文件包含这些表达式的结果。如果这是唯一用途的 VisualBasic 应用程序, 它最可能适于, 速度和效率, 写入分析器。但是, 对于简单和快速解决方案, 您可使用 OLE 自动化和 Excel 对象库来完成这些任务。

回到顶端

分步示例

1.	VisualBasic 中启动新项目。默认情况下创建 Form 1。
2.	向 Form 1 添加 TextBox 和 CommandButton。
3.	将到 TextBox 的 Text 属性 " "。
4.	设置 < Caption 属性是 CommandButton 以 " 评估 "。
5.	将以下代码添加到 Click 事件是 CommandButton： `Private Sub Command1_Click() MsgBox MyVal(Text1.Text) End Sub`
6.	将以下代码添加到 Form 1 的常规声明部分： `Private Function MyVal(s As String) As Double Dim xl As Object Set xl = CreateObject("excel.application") xl.Workbooks.Add xl.ActiveCell.Formula = "=" & s MyVal = xl.ActiveCell.Value xl.ActiveWorkbook.Close savechanges:=False xl.Quit Set xl = Nothing End Function`
7.	按 F 5 键运行该项目。文本框中键入有效数值表达式，单击 CommandButton 来计算表达式。

博客介绍

正文

字符串表达式的计算方法：excel调用2008-07-24 19:35:00

如何计算数值表达式作为字符串存储

本页

概要

更多信息

分步示例

评论