< návrat zpět

MS Excel

Téma: Excel - rozdělení text rss

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
avatar
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
avatar
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
avatar
to je jako ukázka
Příloha: zip5747_rozdel.zip (13kB, staženo 19x)
citovat
SkyWalker(9.8.2011 13:25)#005748
avatar
vkopíroval jsem svoje data a funguje! Děkuju moc Vám oboum :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje