利用EXCEL 实现字符串的计算

原创 2004年04月07日 22:20:00

     如何计算给定的字符串计算表达式,如“ 1+2*3-4/5+ 6^7” 的值?笔者在使用EXCEL2002 时发现在单元格中可以输入此类表达式,输出的则是计算结果,所以写了一个函数,与大家共享。

 

'引用microsoft excel 10.0 object library( OR OTHER VERSION)
' add a textbox and a commandbutton to form1
Function result(ByVal x As String)
Dim myobj As Object
Set myobj = CreateObject("excel.sheet")
Set myobj = myobj.Application.ActiveWorkbook.ActiveSheet
myobj.Range("a1").Formula = "= " & x '
result = myobj.Range("a1").Value
If err.Number > 0 Then MsgBox err.Description
Set myobj = Nothing

End Function

Private Sub Command1_Click()
Dim x As String
x = Text1.Text
MsgBox x & "=" & result(x)
End Sub

Private Sub Form_Load()
Text1.Text = "3*9^10-21*256^a" '错误表达式,返回错误信息。你可以改成合法表达式再按单击COMMAND1
End Sub

利用EXCEL 实现字符串的计算

     如何计算给定的字符串计算表达式,如“ 1+2*3-4/5+ 6^7” 的值?笔者在使用EXCEL2002 时发现在单元格中可以输入此类表达式,输出的则是计算结果,所以写了一个函数,与大家共享...
  • northwolves
  • northwolves
  • 2004年04月07日 22:20
  • 1957

利用API 实现字符串表达式的计算

下面实现字符串表达式计算代码由笔者收藏的本论坛代码改编,记不清是哪位网友提供的了,非常感谢。Option ExplicitPrivate Declare Function EbExecuteLine ...
  • northwolves
  • northwolves
  • 2004年04月05日 23:22
  • 1199

用C语言编写函数,实现strlen计算字符串长度的功能

本文介绍三种方法:1.循环计数法,(设置一个计数器)。2.递归法,(函数调用自身进行计算)3.指针-指针法,(库函数使用的是此方法)现在列入程序:方法1:/* 计数法 */ int my_strlen...
  • no_sying_nothing
  • no_sying_nothing
  • 2016年05月29日 22:49
  • 3886

【excel VBA】excel 计算字符串相似度

Private Function min(one As Integer, two As Integer, three As Integer) min = one If (two...
  • u013421629
  • u013421629
  • 2017年06月13日 09:33
  • 925

Excel 正则表达式提取值

快捷键 Alt +F11 打开代码视图代码:Function GetStr(rng As Range)    With CreateObject("VBscript.regexp")        ....
  • catoop
  • catoop
  • 2017年04月19日 22:58
  • 2477

EXCEL函数公式集

  • 2010年03月16日 03:26
  • 1.45MB
  • 下载

欧氏距离计算

一、不转换成rddval pointsWithIndex=list.asScala.toList.zipWithIndex val dis = pointsWithIndex.flatMap(...
  • JackLi31742
  • JackLi31742
  • 2017年08月23日 16:59
  • 199

利用指针计算字符串的长度

#include int main() { char s[20]; char *p; printf("please input a string(less than 20 c...
  • wuxinliulei
  • wuxinliulei
  • 2013年06月09日 01:47
  • 1867

EXCEL内的字符比较公式

右侧截取A1、B1后再比 从右边截取长度减2的字符串进行比较 适合左边字符个数固定的 =EXACT(RIGHT(A1,LEN(A1)-2),RIGHT(B1,LEN(B1)-2)) 左...
  • HTTPMIME
  • HTTPMIME
  • 2015年06月09日 01:14
  • 532

Excel字符串拼接

点击单元格 右键 -》设置单元格格式  -》常规 点击确定  只有常规的格式才能显示函数的结果 比如拼接字符串 点击单元格 在工具栏上下方有个文本框 会自动显示点击单元格的内容  比如  =...
  • liaomin416100569
  • liaomin416100569
  • 2014年03月26日 19:53
  • 4871
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用EXCEL 实现字符串的计算
举报原因:
原因补充:

(最多只允许输入30个字)