EXCEL - makro na aktuální označenou oblast

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

Moderátor: Mods_senior

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

EXCEL - makro na aktuální označenou oblast

Příspěvekod Albeda » 10 led 2018 15:55

Dobrý den,

mám napsané makro, viz níže na sloučení buněk stylem stylem A1:B1; C1:D1, atd.

Potřeboval bych pomoci upravit makro, aby fungovalo stylem označím si myší oblast, spustím makro a makro sloučí buňky podle mého pravidla. Mělo by se jednat o rychlou úpravu mého kódu, kdo tomu aspoň trochu rozumí. Já jsem úplný začátečník.

Doplňující otázka: Pokud získám upravené makro, jak ho snadno spustit při otevření nového dokumentu. Abych takto mohl projet více excelů stylem: Otevřu soubor, označím oblast na sloučení, spustím makro, uložím a otevřu další dokument.

Děkuji za případnou pomoc. Pokud bych to dělal mým neupraveným makrem, trvalo by mě to 3x déle :-(

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
atari
Level 4
Level 4
Příspěvky: 1446
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod atari » 10 led 2018 16:48

Jenom technickou poznámku. Od té doby co jsem v práci zakázal v Excelu používat sloučené buňky, tak odpadly různé problémy a mám jednodušší život. Sloučené buňky přinášejí problémy (při kopírování, při filtrování, při makrech atd.). A hlavně nejsou potřeba!! Takže před nima vždy varuji.

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

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod Albeda » 10 led 2018 16:55

Rozumím a souhlasím. Jde jedná se o formulář, který nechci předělávat. Jedna buňka je moc málo široká a když se do ní ručně píše, je to nečitelné. Takže chci pouze zdvojnásobit šířku buňky bez toho, abych rozkopal celý formulář. Vzhledem k tomu, že jich budu předělávat desítky.

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1446
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod atari » 10 led 2018 17:34

Co je na tom nečitelného? Pokud píšeš do buňky jednotlivé nebo sloučené, tak vizuálně v tom není rozdíl. Při psaní do buňky se text píše do řádku až co stačí monitor respektivě okno (tedy přes několik buněk).

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

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod Albeda » 10 led 2018 22:33

Myslím ručně (propiskou), když se dokument vytiskne.

Moc by mě pomohlo, kdybych měl makro jak píšu výše. :-)

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1446
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod atari » 11 led 2018 12:10

To ja taky "myslím" když se dokument vytiskne! Tak si místo toho sloučení buněk, označíš v ohraničení společnou čáru těch sousedních na " žádnou" a bude se to také na monitoru i na papíře tvářit jako sloučená buňka.

Oblast vytvořená myší je objekt, který nemá vlastnosti ani metody, takže je potřeba to vypočítat, těch způsobů je více.

Kód: Vybrat vše

poc_rad = Selection.Rows.Row
poc_slo = Selection.Columns.Column
kon_rad = poc_rad + Selection.Rows.Count - 1
kon_slo = poc_slo + Selection.Columns.Count - 1

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

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod Albeda » 11 led 2018 13:47

Omlouvám se, už Vás chápu.

Tak by to určitě také šlo a bylo by to do budoucna lepší. Ale myslím si, že sloučení taky nebude vadit. Navíc tu část makra, co jsem vytvořil mě stálo mnoho krve a potu a nevím, jestli bych zvládl ho předělat.

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1446
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod atari » 11 led 2018 15:36

Pak by to makro už ani nebylo potřeba.

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

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod Albeda » 11 led 2018 16:09

Už mě to asi moc nemyslí ... I tak by bylo potřeba ne?
Potřeboval bych zrušit ohraničení vpravo u buňky B9,D9,F9,atd. pak zase B10,D10,....
A to bych bez makra asi neudělal?
karta.jpg
Nemáte oprávnění prohlížet přiložené soubory.

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1446
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod atari » 11 led 2018 16:16

To uděláš bez makra v Excelu: "Formát buněk" > "Ohraničení"

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

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod Albeda » 12 led 2018 09:04

Pomocí "Formát buněk" > "Ohraničení" jsem pouze zvládl vymazat veškeré vertikální ohraničení, viz příloha.

Mým cílem je odebrat pouze ohraničení vpravo u buněk B9,D9,F9,atd. a zároveň zachovat ohraničení vpravo u buněk C9,E9,G9, atd.

EDIT:
Já myslím, že mám vyřešeno.
Pro ostatní: Pokud chcete makro používat v každém dokuměntě, lze to pomocí "doplněk v MS Excelu". Má příponu *.xlam a přidává se podle tohoto návodu:
https://support.office.com/cs-cz/article/p%C5%99id%C3%A1n%C3%AD-nebo-odebr%C3%A1n%C3%AD-dopl%C5%88k%C5%AF-v-aplikaci-excel-0af570c4-5cf3-4fa9-9b88-403625a0b460

To atari: Děkuji za pomoc jak použít označenou oblast v makru.

karta2.jpg
Nemáte oprávnění prohlížet přiložené soubory.
Naposledy upravil(a) Albeda dne 12 led 2018 09:42, celkem upraveno 1 x.

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1446
Registrován: říjen 08
Pohlaví: Muž

Re: EXCEL - makro na aktuální označenou oblast

Příspěvekod atari » 12 led 2018 09:30

Myší označíš B9 až C9, a v ohraničení dáš prostřední vertikálu na žádnou.

Takhle si například uděláš celý řádek na několikrát, a pak na ostatní řádky jenom překopíruješ formáty. Také to jde myší označit vice dvojic najednou za použití CTRL, a pak to tu vertikálu v ohraničení odstraní pro všechny označené najednou.

Tohle jsou naprosté základy v Excelu. To je asi podobné, jako když se budeš radit jak se zavazuje mašlička na botách...


Dodatečně přidáno po 2 minutách 6 vteřinách:
Byl jsi rychlejší. Doporučuji nastudovat základy Excelu: http://office.lasakovi.com/excel/zaklady/

Dodatečně přidáno po 5 minutách 48 vteřinách:
A taky se nauš sem vkládat URL, kdo to má po tobě kopírovat, když to nemá správnou syntaxi .... :evil:


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - makro na upravu listu
    od Gotchi » 25 kvě 2017 09:48 » v Kancelářské balíky
    1
    449
    od JozefB
    10 črc 2017 22:16
  • Makro Excel - barevné zvýraznění výpisu z makra
    od Rosta_Kolmix » 22 lis 2017 13:42 » v Kancelářské balíky
    6
    296
    od Rosta_Kolmix
    24 lis 2017 21:15
  • Nespouští se makro při otervření excel 2010
    od Bbudul » 28 úno 2017 12:50 » v Kancelářské balíky
    3
    400
    od Bbudul
    09 bře 2017 08:48
  • Makro v MS Excel - problém se sloučenými buňkami
    od MatesBossy » 02 kvě 2017 00:13 » v Kancelářské balíky
    1
    282
    od atari
    02 kvě 2017 12:50
  • Excel - Makro bez cyklu pro výpočet v kterémkoliv řádku
    od wilma » 10 kvě 2017 09:17 » v Kancelářské balíky
    1
    283
    od xlnc
    10 kvě 2017 17:58

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

Kdo je online

Uživatelé prohlížející si toto fórum: Bing [Bot], CommonCrawl [Bot] a 1 host