MS Excel

Nutná Vam funkce je textová funkce LEFT().
Například, v bunce A1=SK554566, v bunce D3=LEFT(A1,2), kde 2 je počet znaků od začátku řádku. A rezultát je SK.citovat

a keby sa ten text menil napr SK12555 UAK234588 , SKKK665684 PLxK0122255 alebo CZ1CC4588667 a ja by som potreboval len SK UAK SKKK PLxK CZ1CC existoval by aj na toto nejaky vzorec ?

Dakujemcitovat

Funguje to. Vložte toto do Excel VBA. Není třeba úprávit. Máte nějaké otázky - zeptejte se. Například, C12 = Bacil(B12).

Function Bacil(x As String) As String

Dim y&

For y = 1 To Len(x)
If Mid(x, y, 1) >= 59 Then
Bacil = Left(x, y)
Else
If Mid(x, y + 1, 1) < 59 Then
Bacil = Left(x, y - 1)
Exit For
Else
Bacil = 140
End If
End If
Next y

End Functioncitovat