EXCEL - makro na aktuální označenou oblast 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 - 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 6
Level 6
Příspěvky: 3202
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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

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 6
Level 6
Příspěvky: 3202
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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

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 6
Level 6
Příspěvky: 3202
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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

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 6
Level 6
Příspěvky: 3202
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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

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

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3202
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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

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
Naposledy upravil(a) Albeda dne 12 led 2018 09:42, celkem upraveno 1 x.

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3202
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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
  • Jak do Excelu dostat aktuální hodnotu z webové stránky? Příloha(y)
    od Peťa » 10 lis 2023 09:41 » v Kancelářské balíky
    2
    1919
    od Peťa Zobrazit poslední příspěvek
    10 lis 2023 16:24
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1125
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6243
    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
    6
    1551
    od zeus Zobrazit poslední příspěvek
    dnes, 17:22
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    378
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43

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

Kdo je online

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