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 2
Level 2
Příspěvky: 155
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
    685
    od atari
    22 bře 2018 10:20
  • Excel - sloučení několika tabulek do jedné
    od Michremi » 02 lis 2017 09:15 » v Kancelářské balíky
    7
    773
    od elninoslov
    07 pro 2017 14:15
  • 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
    630
    od elninoslov
    29 led 2018 23:47
  • Excel-zakázat zápis do buněk po dosažení hodnoty v součtovém řádku
    od tondasa » 22 lis 2017 09:06 » v Kancelářské balíky
    1
    321
    od lubo.
    22 lis 2017 14:41
  • Excel VBA
    od Dawyck » 06 led 2018 21:35 » v Kancelářské balíky
    1
    321
    od xlnc
    07 led 2018 14:17

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

Kdo je online

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