Parsing a string into numeric values

X < Y < X

That one is not possible.

The Split function will parse the comma delimited string into substrings, which you can coerce to numeric values using CDbl() or similar function. Then you can perform whatever calculations are appropriate using a Case statement. If you clarify your question, I or someone else will help.

To clarify:

For example: txtval (string) will store the following values:

1, 2, 3, 4 = txtval

My range is anything greater than or equal to 2 or less than or equal to 4.

Therefore, my calculation would be as follows:

X = [Sum those numbers that fall within the range] / [sum of all numbers]

X = 2 + 3 + 4 / 10

X = 9/10

X = 0.9

So I guess my question is how do I take txval and 'break' it back into individual numbers that I can use in my calculations.

My fault I caused some confusion when describing the range as

X<Y< X

It should be X<Y<Z.

Thank you

Hi

How about creating a function to do the calculation, and working from there.

In the code below, I've dummied up a string with comma separated values. the function takes that string, a lower number and an upper number and returns the result.

Sub bbb()
  Dim txtval As String
  txtval = "1,2,3,4"
  MsgBox myCalc(txtval, 2, 4)
End Sub

Function myCalc(strr As String, lwr As Long, upr As Long)
  arr = Split(strr, ",")
  denom = 0
  numer = 0
  For i = LBound(arr) To UBound(arr)
    denom = denom + arr(i)
    If CLng(arr(i)) >= lwr And CLng(arr(i)) <= upr Then
      numer = numer + arr(i)
    End If
  Next i
  
  myfunc = numer / denom
End Function

Hope that gets you going.


rylo

Thanks Rylo, I'll give that a try later today and get back to you.

Cheers!