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

[Albeda]

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

[atari]

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]

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.

[atari]

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]

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

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

[atari]

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]

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.

[atari]

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

[Albeda]

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?

[atari]

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

[Albeda]

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.

[atari]

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 ....