lỗi code hiện công thức không hiểu số trong dấu ngoặc ( ) (2 người xem)

[phan_huythai]

các thầy giúp em với ạ. cái code của em nó không hiểu được tex trong ngoặc. Nên khi hiện công thức nó không hiện được các số trong ngoặc. các thầy sửa giúp em với ạ. Em xin cám ơn!
Option Explicit
Public Function ct(rngData As Range)
Dim strText As String, strText2 As String
Dim i As Long, j As Long, dem As Long
Dim subText() As String, dau() As String
Dim Res As Double
If rngData = "" Then Exit Function
strText = rngData.Formula


For i = 1 To Len(strText)
Select Case Mid(strText, i, 1)
Case "+", "-", "*", "/", "^"
ReDim Preserve dau(j)
dau(j) = Mid(strText, i, 1)
j = j + 1
End Select
Next i


strText = Replace(strText, "=", "")
strText = Replace(strText, "+", "@")
strText = Replace(strText, "-", "@")
strText = Replace(strText, "*", "@")
strText = Replace(strText, "/", "@")
strText = Replace(strText, "\", "@")
strText = Replace(strText, "^", "@")


strText = Trim(strText)


subText = Split(strText, "@")
For i = 0 To UBound(subText)
On Error Resume Next
If Not IsNumeric(subText(i)) Then
Err.Clear
Res = Application.WorksheetFunction.Find("(", subText(i))
If Err.Number = 0 Then
dem = 0
For j = 1 To Len(subText(i))
If Mid(subText(i), j, 1) = "(" Then dem = dem + 1
Next j
subText(i) = Replace(subText(i), "(", "")
If IsNumeric(subText(i)) Then
subText(i) = String(dem, "(") & subText(i)
Else
subText(i) = String(dem, "(") & Range(subText(i)).Value
End If
End If


Err.Clear
Res = Application.WorksheetFunction.Find(")", subText(i))
If Err.Number = 0 Then
dem = 0
For j = 1 To Len(subText(i))
If Mid(subText(i), j, 1) = ")" Then dem = dem + 1
Next j
subText(i) = Replace(subText(i), ")", "")
If IsNumeric(subText(i)) Then
subText(i) = subText(i) & String(dem, ")")
Else
subText(i) = Range(subText(i)).Value & String(dem, ")")
End If
End If


subText(i) = Range(subText(i)).Value


End If
Next i


ReDim Preserve dau(UBound(subText))
For i = 0 To UBound(subText)
strText2 = strText2 & Round(subText(i), 3) & dau(i)
Next i


ct = "= " & strText2
End Function

 

[ndu96081631]

Vậy đố (vui) bạn, nếu không được dùng hàm Trim của Excel thì làm sao?, Ẹc ... ẹc mình loay hoay mãi mới biết, kém thật.

Thì sau khi Split xong, vòng lập duyệt qua mảng, IF Len(thằng em nào) > 0 mới lấy
Vậy thôi