如圖，怎么在任意文本計算式的 后一單元格，計算其的值。且實作簡單的操作的就能實作。（之前我用過evaluate,但是只能針對某一列的值。一換列就得重新設定參考區域，很不方便）
uj5u.com熱心網友回復：
單元格改變事件uj5u.com熱心網友回復：
資料提取，運算子識別，多函陣列合計算。uj5u.com熱心網友回復：
可以在Sheet的Change事件中增加處理方法:
Option Explicit
' 這里有一個問題,就是輸入減法的時候Excel會自動當作日期處理.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\d+[+\-*/]\d+"
If reg.test(Target.Text) Then
Cells(Target.Row, Target.Column + 1) = Evaluate(Target.Text)
End If
End Sub
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1mzx1hklZHInDCQywXsmYbA
提取碼：v3k2
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/36944.html
標籤：網絡編程
上一篇：VB自定義控制元件如何在設計時自動貼頂？比如工具列控制元件。
下一篇：無聊