Excel表达式忽略文本
来源:百度知道 编辑:UC知道 时间:2024/05/24 09:44:27
如:
单元格1 = 3200.2[十月结余]+2889.0[十一月收入]-1459.6[十一月支出]
单元格2 = 单元格1的运算结果
如何忽略中括号"[]"里面的文字部分而在单元格2中得到数值的结果?
谢谢你!
今天早上把代码写了出来,可以实现楼主的要求了,一定要给分阿~~~
在EXCEL裏按ctrl+F11 调出VBA ,然后直接拷贝下面代码到右面
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim a As String
Dim Count As Integer
Dim k As Integer
Dim z() As Double
Dim x() As String
Dim y As Integer
Dim Result As Double
k = 1
ReDim z(0)
ReDim x(0)
'' 指定原始单元格
a = Trim(Range("a1"))
count1 = Len(a)
Do While k <> 0
Count = Len(a)
k = InStr(a, "[")
If k = 0 Then
GoTo ERROR
End If
ReDim Preserve z(y + 1)
z(y) = Left(a, k - 1)
y = y + 1<