Split question in XL2003

[S G Booth]

I would like to test a cell's value to see if it takes the form
?/? where ? should simply be integers.....something like
2/1 or 27/1 or 256/1

The requirement is for the value to be in the form
integer/1

I have: varr = Split(FirstPageNumber, "/")
where FirstPageNumber holds the value of the cell in
question (as a String). This works (sort of) but not in all
cases (eg when "/" is missing).

I need to do this test just once for each sheet, and wish
to get the integer value.

Would appreciate some help, please.

Regards.

 

[Tom Ogilvy]

iloc = Instr(FirstPageNumber,"/")
if iloc <> 0 then
firstNum = clng(left(FirstPageNumber,iloc-1))
Else
firstNum = clng(FirstPageNumber)
End if

 

[S G Booth]

Many thanks.

I now have the following to get me started:

Dim iloc As Integer, firstNum As String
Dim ComplexPageNo As Boolean, SimplePageNo As Boolean
iloc = InStr(FirstPageNumber, "/")
If iloc <> 0 Then
'user wants a complex page number structure
ComplexPageNo = True
'so make sure first page is 1
firstNum = CLng(Left(FirstPageNumber, iloc - 1)) & "/" & "1"
Else
'user wants a simple page number structure
SimplePageNo = True
firstNum = CLng(FirstPageNumber)
'force the first simple page number to 1
If firstNum <> 1 Then
firstNum = 1
End If
End If

If ComplexPageNo = True Then
varr = Split(firstNum, "/")
Dim True1stPageNr As String
True1stPageNr = varr(0) & "/" & varr(1)
ElseIf SimplePageNr = True Then
Dim True1stPageNr As Integer
True1stPageNr = firstNum
End If

Regards.