*Muzes dodat jak by mela vypada vysledna sloucena tabulka?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zlucenie buniek do jedneho
MS Excel
Téma: zlucenie buniek do jedneho 
Zaslal/a pavol14pavol 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: 
48096_test.zip (8kB, staženo 20x)
48096_test.zip (8kB, staženo 20x)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: 48100_test.zip (9kB, staženo 22x)
citovat48100_test.zip (9kB, staženo 22x)(23.9.2020 8:20)#048104
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
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
(23.9.2020 8:27)#048105
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
Pokiaľ máš Excel 2007 alebo vyšší, zošit musí mať príponu "xlsm"citovat
(23.9.2020 8:33)#048107
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
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
(23.9.2020 15:34)#048122
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
Tie zluci ale zlucuje aj prazdne riadky co su a tie by potreboval mat povodnecitovat
(23.9.2020 19:23)#048126
zlučuje aj prázdne riadky??????
Pošli súbor so zlúčenými prázdnymi riadkami...citovat
Pošli súbor so zlúčenými prázdnymi riadkami...citovat
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: 48127_test.2.zip (23kB, staženo 16x)
citovat48127_test.2.zip (23kB, staženo 16x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články