返回目录：excel表格制作
Option Explicit
Sub test()
Dim a As String
a = "1+2"
Debug.Print Application.ExecuteExcel4Macro(a)
Debug.Print Application.Evaluate(a)
End Sub
试试上面的来代码你就知道了源，Application.ExecuteExcel4Macro 或者百 Application.Evaluate 都可以达度到效果！
1、用VALUE函数将字符型数字转换成数字型，
value函数可以将表示数字的文本字符串转换为数字，它的语法结构是：value（text），value函数只有一个参数text，表示要转换为数字格式的文本，来文本参数可以直接引用双引号中的文本，也可以引用其他单元格中的文本。
2、用四则运算法将字符型数字转换成数字型，源可以使用+0、-0、*1、/1将字符数转换为数字。
3、数字型数字转换成文本型，
使用文本函数将数字转换为文本类型，
文本函数的基本语法格式：text（value，format﹐text），
值：是数值、计算结果为数值的公式或对包含数值的单元格的引用。
格式文本：用作带引号的文本字符串的数字格式。
例如：C2=文本（b2,0），它zhidao变为文本类型。
4、用&“”将数字型数字转换成文本型，例如：A3=B3&amp；“”转换为文本类型。
5、在数字类型编号之前添加文本标识符“或”，例如：D2=”，C2=D2&amp；B2，它将被转换为文本类型编号。
假如数字在A1单元格，公式如下：
=""&A1
二、字符型数知值转化为数值型数据
Val函数可以将包含数值的字符型数据转化为Double（双精度）数值型数据类型，其语法为Val（string）
演示代码：
Sub ShowFormatVal()
Dim num As Double, str As String
str = Format(Now, "Short Time")
num = Val(str)
'如果现在的时间是 4:31 PM,下面语句道展示的结果为: 16:31 16
Debug.Print str, num
End Sub
【应用】
1、字符型数值是不能专进行四则运算的，只能通过Val函数将其转换后才能使用。
2、可以将8进制、16进制等转化为10进制数，如，Val（属&o77）（8进制）、Val（&HFF）（16进制）分别转化为十进制的63和255