< návrat zpět

MS Excel


Téma: zlucenie buniek do jedneho rss

Zaslal/a 22.9.2020 20:25

Pozdravujem vedel y mi niekto pomoct da sa nejak s automatizovat zlucenie buniek do jedneho. mam tabulku C5:R35 s hodnotami a niekedy sa mi v urcitom riadku s viacerych stlpcoch ocitne rovnaky text a ten by som potreboval zlucit da sa to nejak urobit tento text sa moze vyskytnut rozne pri prilepovany s ineho zosita

Příloha: zip48096_test.zip (8kB, staženo 4x)
Zaslat odpověď >

Strana:  1 2   další »
#048098
Merlin99
*Muzes dodat jak by mela vypada vysledna sloucena tabulka?citovat
#048100
avatar
posielam este raz ako by to malo byt pred a po. Tabulka ma stale rovnaky format len sa prilepuju hodnoty niekedy aj s textami. Tak v tomto rozmedzi keby vedelo vyhladat text a zlucit ho do jedneho nazvu
Příloha: zip48100_test.zip (9kB, staženo 7x)
citovat
#048104
avatar
To je problém v 30 riadkoch zlúčiť manuálne?
Ako príklad si dal ukážku, z ktorej vyplýva, že texty budú rovnaké vo všetkých bunkách riadka.
V tom prípade tvoje zadanie splní kód:

Sub SlouceniTextu()
Application.DisplayAlerts = False
For i = 5 To 35
If Not (IsNumeric(Range("C" & i))) Then
With Range("C" & i & ":R" & i)
.Merge
.HorizontalAlignment = xlCenter
End With
End If
Next i
End Sub


P.S. ak máš menej než 80 rokov, tak by som popracoval na gramatike...citovat
#048105
avatar
Aby to voči manuálnemu spôsobu malo význam, je vhodné umiestniť v zošite spúšťacie tlačidlo.
Pokiaľ máš Excel 2007 alebo vyšší, zošit musí mať príponu "xlsm"citovat
#048107
avatar
Prípadne pre automatické spúšťanie po vykonaní zmeny v hárku treba kód umiestniť do modulu príslušného hárka a priradiť udalosti zmeny v tomto hárku, čiže:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False
For i = 5 To 35
If Not (IsNumeric(Range("C" & i))) Then
With Range("C" & i & ":R" & i)
.Merge
.HorizontalAlignment = xlCenter
End With
End If
Next i
End Subcitovat
#048122
avatar
Dakujem super funguje to a este jedna otázka neda sa to upravit len na tie riadky s textom a prazdne riadky nezluci tie ostanu povodnecitovat
#048123
avatar
Ale veď to zlučuje len riadky, v ktorých je textcitovat
#048124
avatar
Tie zluci ale zlucuje aj prazdne riadky co su a tie by potreboval mat povodnecitovat
#048126
avatar
zlučuje aj prázdne riadky??????
Pošli súbor so zlúčenými prázdnymi riadkami...citovat
#048127
avatar
Ked upravujem povodnu tabulku co som tu dal ako prve ide to v pohode ale ked dam napr akokolvek prilepit hodnoty alebo tu istu tabulku s ineho zosita tak mi zlucuje aj prazdne riadky
Příloha: zip48127_test.2.zip (23kB, staženo 2x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

ZOSKUPENIE ÚDAJOV

Daniel_11 • 29.10. 10:10

kopie mezi instancemi Excelu

rinma • 29.10. 9:44

kopie mezi instancemi Excelu

Stalker • 29.10. 8:44

kopie mezi instancemi Excelu

rinma • 28.10. 19:01

kopie mezi instancemi Excelu

rinma • 28.10. 18:58

den hodina minuta sekunda v jednej bunke

lugr • 28.10. 12:50

Kombinace url odkazů

Petan111 • 28.10. 11:46