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: 570
Registrován: červenec 08
Pohlaví: Muž
Stav:
Offline
Kontakt:

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.5
Level 2.5
Příspěvky: 369
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

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: 570
Registrován: červenec 08
Pohlaví: Muž
Stav:
Offline
Kontakt:

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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1775
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6239
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel komparacedvou soborů Příloha(y)
    od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky
    4
    1514
    od elninoslov Zobrazit poslední příspěvek
    dnes, 00:29
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    375
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1967
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů