Adding Paranthesis Around Multiplied Numbers in a Textbox

[JarekM]

Hi,
I need help with creating a code where in equations that I am making, parenthesis would go around the multiplication, just like in the picture below.

Here is the photo:
https://imgur.com/a/kJ1YAMM

 

[Rick Rothstein]

Give this function a try. Simply pass it the text from the TextBox into the function and reassign the text it returns back to the TextBox.

Function AddParens(ByVal Txt As String) As String
  Dim X As Long, Arr() As String
  Txt = Replace(Replace(Replace(Replace(Replace(Txt, " ", ""), "(", ""), ")", ""), "+", " + "), "-", " - ")
  Arr = Split(Txt)
  For X = 0 To UBound(Arr)
    If Arr(X) Like "*[*/]*" Then Arr(X) = "(" & Arr(X) & ")"
  Next
  AddParens = Replace(Replace(Join(Arr), "*", " * "), "/", " / ")
End Function

 

[JarekM]

Thank you for the quick response on this! and for the help with this.

It works exactly as intended! I wish you all the best

 

[JarekM]

I forgot, one more thing is the possibility to count the functions in parentheses and insert the value to second TextBox

 

[Rick Rothstein]

...count the functions in parentheses...

What do you mean by the above? Do you want a count of the number of sets of parentheses (no matter how many numbers are being multiplied inside each set) or do you want the count of numbers that are being multiplied?

 

[JarekM]

Well for an example in the picture there are 4 sets of parentheses shown, so in the textbox it would show the number 4.
So I would like it to calculate the sets of parentheses and not the numbers inside the parentheses.

I'm sorry if this is still confusing, English is my second language, so if you don't get it I can explain more.

 

[Rick Rothstein]

Give this function a try... just pass in the contents of the first TextBox after my first function formatted it into the function below and assign its output to your second TextBox)...

Function GroupCount(Txt As String) As Long
  GroupCount = Len(Txt) - Len(Replace(Txt, "(", ""))
End Function

 

[JarekM]

Great! This is amazing!!! Thank you so much, that's exactly what I was thinking about, its like you read my mind and you did custom function with both codes.