Spacje w visual basic

Question

Dzień dobry!!

Potrzebuję pomocy odnośnie zadania, mam za zadanie napisać funkcję, która pokazuje w którym miejscu jest spacja ( chodzi o dokładną liczbę) oraz funkcję, która oddzieli od siebie wyrazy w kolumnie A2 w zależności od tego na jakiej spacji skończyła wcześniejszy wyraz. Tutaj zamieszczam jak to wygląda  https://zapodaj.net/f5d6178bebc33.png.html a poniżej jest kod, który już spróbowałem napisać nie wiem czy dobrze.

Function pozycja_spacji(nr As Integer, napis As String) As Long

Dim n, od As Integer
If nr > 4 Or nr <= 0 Then
pozycja_spacji = 0
Else
od = 0
For n = 1 To nr
pozycja_spacji = InStr(od + 1, napis, " ")
Next n
End If
End Function



Function Fragment(nr As Integer, napis As String) As String

Dim x, y As Integer
If nr = 1 Then
x = pozycja_spacji(nr - 1, napis) + 1
y = pozycja_spacji(nr, napis)
ElseIf nr = 2 Then
x = pozycja_spacji(nr - 1, napis)
y = pozycja_spacji(nr, napis) - 2
ElseIf nr >= 4 Then
Fragment = Right(napis, Len(napis) - x)
ElseIf nr = 3 Then
Fragment = Right(Left(napis, y + 1), Len(Left(napis, y + 1)) - x)
Else
Fragment = Mid(napis, x, y)
End If

End Function

Bardzo proszę o pomoc

Comments

How to count the number of 'spaces' in a cell.

The number of spaces in a cell can be counted simply by using the Split method:

 

Dim x() As String
x = Split(Cells(1, 1), " ") ' count number of spaces in cell A1
MsgBox UBound(x)

You can find a lot of excel vba example code at: http://www.worldbestlearningcenter.c...ds-example.htm