博客
关于我
Excel 2010 VBA 入门 055 计算文本公式(Evaluate)
阅读量:226 次
发布时间:2019-02-28

本文共 1477 字,大约阅读时间需要 4 分钟。

VBA 实现表达式计算

在实际工作中,我们常常需要从表格中提取包含括号说明的文本表达式,并对其进行计算。例如,某公司从系统中导出的数据表格中,方括号内的内容仅为说明性文字。我们的目标是忽略这些说明性文字,仅计算表达式的结果。

实现代码

Option ExplicitSub 计算文本表达式()    Dim RowN As Long    Dim sFormula As String    Dim lStart As Long    Dim lEnd As Long    Dim lLen As Long    For RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row        sFormula = Cells(RowN, "A").Value                Do While InStr(sFormula, "]") > 0            lStart = InStr(sFormula, "[")            lEnd = InStr(sFormula, "]")            lLen = lEnd - lStart + 1                        Mid(sFormula, lStart, lLen) = String(lLen, " ")        Loop                Cells(RowN, "B").Value = Application.Evaluate(sFormula)    NextEnd Sub

去除有规律但内容不定的文本

在处理需要去除或替换的文本时,常见的方法是通过查找需要去除文本的起始和终止位置,然后利用 MID 语句或其他文本函数进行替换。在本例中,我们需要去除方括号 [] 及其括起的内容。具体实现如下:

  • 使用 Instr 函数查找第一个 [] 的位置。
  • 计算需要替换的文本长度。
  • 将括号内的文本替换为相同长度的空格。
  • 这种方法既简单又有效,能够清理表达式中的说明性文字。

    String 函数

    VBA 的 String 函数可以重复指定长度的字符。其语法为:

    String(number, character)
    • number 是要转换为字符串的长度(支持长整型)。
    • character 是要重复的字符。如果 character 的长度大于 1,仅重复第一个字符。

    例如:

    String(2, "ABC") → "AA"

    这个函数在文本处理中非常有用,尤其是在需要生成占位符或重复字符时。

    Evaluate 方法计算表达式

    Evaluate 方法可以用来计算表达式的值。它会忽略表达式中的空格,直接计算结果。需要注意的是,表达式的字符长度不能超过 255,否则会发生错误。

    利用 VBScript 的 Eval 函数

    由于 Evaluate 方法存在一定的限制,开发者可以选择使用 VBScript 的 Eval 方法来计算表达式。以下是一个参考代码示例:

    With CreateObject("MSScriptControl.ScriptControl")    .Language = "vbscript"    GetValue = .Eval(Expression)End With

    这个代码可以通过 Eval 方法计算指定表达式的值,并将结果赋值给变量。

    通过以上方法,我们可以轻松地从包含说明性括号的文本表达式中提取计算结果,实现自动化数据处理任务。

    转载地址:http://mywi.baihongyu.com/

    你可能感兴趣的文章
    Mysql 整形列的字节与存储范围
    查看>>
    mysql 断电数据损坏,无法启动
    查看>>
    MySQL 日期时间类型的选择
    查看>>
    Mysql 时间操作(当天,昨天,7天,30天,半年,全年,季度)
    查看>>
    MySQL 是如何加锁的?
    查看>>
    MySQL 是怎样运行的 - InnoDB数据页结构
    查看>>
    mysql 更新子表_mysql 在update中实现子查询的方式
    查看>>
    MySQL 有什么优点?
    查看>>
    mysql 权限整理记录
    查看>>
    mysql 权限登录问题:ERROR 1045 (28000): Access denied for user ‘root‘@‘localhost‘ (using password: YES)
    查看>>
    MYSQL 查看最大连接数和修改最大连接数
    查看>>
    MySQL 查看有哪些表
    查看>>
    mysql 查看锁_阿里/美团/字节面试官必问的Mysql锁机制,你真的明白吗
    查看>>
    MySql 查询以逗号分隔的字符串的方法(正则)
    查看>>
    MySQL 查询优化:提速查询效率的13大秘籍(避免使用SELECT 、分页查询的优化、合理使用连接、子查询的优化)(上)
    查看>>
    mysql 查询数据库所有表的字段信息
    查看>>
    【Java基础】什么是面向对象?
    查看>>
    mysql 查询,正数降序排序,负数升序排序
    查看>>
    MySQL 树形结构 根据指定节点 获取其下属的所有子节点(包含路径上的枝干节点和叶子节点)...
    查看>>
    mysql 死锁 Deadlock found when trying to get lock; try restarting transaction
    查看>>