Excel - VBA - sloučení buňek Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Albeda
Level 3
Level 3
Příspěvky: 561
Registrován: červenec 08
Pohlaví: Muž

Excel - VBA - sloučení buňek  Vyřešeno

Příspěvekod Albeda » 15 pro 2017 13:04

Zdravím komunitu,

potřeboval bych pomoci s mým makrem.

Co řeším - V cca 100 dokumentech, kde jsou cca 3 listy musím sloučit buňky stylem A1:B1; C1:D1, atd ... Musím je sloučit pouze v dané oblasti.

Co mám - makro, které toto dělá. Proměnná poc_rad a poc_slo je řádek a sloupec první buňky a kon_rad a kon_slo zase poslední buňka.

Co potřebuji - vymyslet lehký způsob na přepisování první a poslední buňky. Představuji si, že bych otevřel dokument, klikl na požadovaný list a například označil všechny buňky, které chci sloučit podle pravidla (viz "co řeším"), na něco klikl a bylo by.

Snad chápete a děkuji za případnou pomoc :-)

Kód: Vybrat vše

Sub SlucBunky()
'Program na slouceni bunek

'Pocatek
poc_rad = 3
poc_slo = 4
'Konec
kon_rad = 28
kon_slo = 31

a = 0
   
For i = poc_rad To kon_rad
    For j = poc_slo To kon_slo Step 2
        If j < kon_slo Then
            a = j + 1
        Else
            a = j
        End If
        Range(Cells(i, j), Cells(i, a)).Merge
    Next
Next

End Sub



Reklama
Uživatelský avatar
elninoslov
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: červen 13
Pohlaví: Muž

Re: Excel - VBA - sloučení buňek

Příspěvekod elninoslov » 15 pro 2017 18:03

To chcete označovať v každom zo 100 súborov manuálne nejakú oblasť, a ešte pre viac listov ? Nieje na to nejaké pravidlo, na základe ktorého by sa dalo automaticky určiť akej oblasti a akého listu sa to má týkať ?

Albeda
Level 3
Level 3
Příspěvky: 561
Registrován: červenec 08
Pohlaví: Muž

Re: Excel - VBA - sloučení buňek

Příspěvekod Albeda » 20 pro 2017 07:47

Zdravím a děkuji za odpověď.

Bohužel pravidlo spíše ne. "Range" na sloučení se často mění. Raději bych každý list, který bude takto změněn ručně odkliknul a takto i zároveň zkontroloval. Kdybych si mohl vymýšlet, aby to bylo snažší, zavedl bych následující pravidla:

1) poc_rad = najdi první buňku, co obsahuje "čas:" a odečti 1 řádek.

2)poc_slo = to stejný a přičti jeden sloupec

3)kon_rad = najdi poslední buňku obsahující "Kód akce"

4)kon_slo = najdi buňku (hledej zleva do prava) bez žádnédného ohraničení a odečti dva sloupce

Viz obrázek. Ještě akorát nevím, jak to udělat, abych to makro nemusel při každém novém spuštění dalšího dokumentu znovu vytvářet stylem copy-paste.

karta.jpg
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • excel vba automaticka vyska radku sloucenych bunek
    od zutano » 20 bře 2018 10:51 » v Kancelářské balíky
    7
    648
    od atari
    22 bře 2018 10:20
  • VBA kopirování buněk do zformátované tabulky s podmínkou
    od rk9 » 27 zář 2017 17:15 » v Kancelářské balíky
    3
    516
    od rk9
    06 říj 2017 18:59
  • Excel - sloučení několika tabulek do jedné
    od Michremi » 02 lis 2017 09:15 » v Kancelářské balíky
    7
    695
    od elninoslov
    07 pro 2017 14:15
  • Excel 2016 - kopírování vč. skrytých buněk
    od pavelo » 29 srp 2017 11:32 » v Kancelářské balíky
    1
    332
    od Pavlus - Excel
    29 srp 2017 12:49
  • Excel - spuštění požadovaného makra při změně hodnoty buněk
    od Dominik556 » 29 led 2018 10:30 » v Kancelářské balíky
    3
    544
    od elninoslov
    29 led 2018 23:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 3 hosti