• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Excel - rozdělení text

Zaslal/a SkyWalker 9.8.2011 10:15

Dobrý den,

Potřeboval bych poradit, jakou fcí rozdělovat text do dvou sloupců, tak aby byl jeden sloupec max. 30 znaků a druhý také max. 30 znaků, ale text rozdělil na celá slova, př.:

Autospongia hranata velka balena (32 znáků): Autospongia hranata velka bale (30 znáků) / na (2 znaky)

Správně: Autospongia hranata velka / balena

Děkuju moc.

Zaslat odpověď >

---

Roman(9.8.2011 11:39)#005744

Co toto:

Function RozdělText(Text As String, PočetZnakůVýběru As Integer, PořadíVýběru As Integer) As String
Dim Prac As Integer, St As Integer, Knc As Integer, i As Integer

PočetZnakůVýběru = PočetZnakůVýběru + 1
St = 1
Knc = PočetZnakůVýběru
For i = 1 To PořadíVýběru
If Len(Text) = St Then
RozdělText = ""
Exit For
End If
Prac = InStrRev(Mid(Text, CLng(St), PočetZnakůVýběru), " ")
If Prac Then
' Prac = Prac - St + 1
RozdělText = Mid(Text, CLng(St), Prac - 1)
St = St + Prac
Else
If Len(Text) > St Then RozdělText = Mid(Text, CLng(St))
St = Len(Text)
End If
Next i
End Function

mělo by to být tak:
1 2 3
Autospongia hranata velka balena 31 Autospongia hranata velka balena
Testování 10 Testování
Dlouhý text a jeho rozdělení do sloupců 20 Dlouhý text a jeho rozdělení do sloupcůcitovat

SkyWalker(9.8.2011 11:49)#005745

Moc díky!

Bohužel, ale v makrech nejsem zběhlý, nevím jak to napasovat na soubor z daty:-(citovat

krapl(9.8.2011 13:07)#005747

to je jako ukázka

Příloha: 5747_rozdel.zip (13kB, staženo 19x)

citovat

SkyWalker(9.8.2011 13:25)#005748

vkopíroval jsem svoje data a funguje! Děkuju moc Vám oboum :-)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse