[ahk]用excel当计算器支持% 空格不支持千分位

最新推荐文章于 2021-02-06 12:02:25 发布

liuyukuan

最新推荐文章于 2021-02-06 12:02:25 发布

阅读量654

点赞数

分类专栏： Excel

Excel 专栏收录该内容

65 篇文章

订阅专栏

本文介绍了一种使用Excel作为简易计算器的方法，通过VBA脚本实现数学表达式的计算，包括百分比和基本算术运算。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

;用excel当计算器 支持% 空格 不支持千分位
;作者： David 尹(153671978)  
oExcel := ComObjCreate("Excel.Application")  
oExcel.Workbooks.Add
;~ MsgBox % oExcalc("(1     + 4%)*100 ")
;~ MsgBox % oExcalc("(1     + 12^2  )*100 /3400")
MsgBox % oExcalc("sum(1     + 2  +3+4+5+6+7+8+9+10)")
oExcel.DisplayAlerts:= False
oExcel.Quit
return

 oExcalc(string,format="")
 {
     global oExcel
     try{
        oExcel.Range("A1").Formula := "= " . string
     }
    return % oExcel.Range("A1").Value
}