Jak podzielić tekst pola na konkretny znak?

Z dostępnych funkcji arkusza kalkulacyjnego bez problemu można skonstruować formułę dzielącą string według konkretnego znaku. Sprawa komplikuje się jeśli dzielony string zawiera więcej niż jeden konkretny znak. Wtedy nasze formuły robią się dłuższe, dłuższe, i jeszcze dłuższe …
Formułę można skrócić. Wystarczy stworzyć własną funkcję w Basic’u, której użyjemy w nowej formule.

Funkcja SplitString dla Calc

Function SplitString (Str As String, Chr As String, I As Integer) As String
REM Example:
REM SplitString (Str; Chr; I)  
REM     SplitString ("A1/B2/C3";"/";0) return A1
REM     SplitString ("A1/B2/C3";"/";1) return B2
REM     SplitString ("A1/B2/C3";"/";2) return C3

	Dim A() As String
	A=Split(Str,Chr)
	SplitString = A(I)

End Function

Parametry funkcji SplitString

Str

String lub adres komórki z ciągiem znaków.

Chr

Znak lub adres komórki zawierający znak według którego chcemy podzielić string.

I

Numer – indeks części ciągu znaków (string). Początek indeksu to 0.