Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Jak dostat CTRL-Z do makra v Excelu

Potřeboval bych do makra zaznamenaného přes volbu Záznam nového makra dostat příkaz VB pro funkci krok zpět (CTRL-Z). Funkce záznam makra to do vytvořeného makra nevloží.

Díky předem.

Předmět Autor Datum
máš 2 možnosti: 1. použiješ příkaz VBA na předání klávesových úhozů SendKeys (podle mě ne moc vhodné…
touchwood 29.01.2007 08:47
touchwood
Díky, bohužel jsem zjistil, že to nejde použít resp. nevím jak na to. Potřebuju vybrat zadanou obla…
yorg 29.01.2007 11:54
yorg
Tak budeš muset zvolit jinou metodiku, tohle je jak drbání levou rukou za pravým uchem. Třeba vybra…
host 29.01.2007 11:58
host
Chyba, omlouvám se. Zkusil jsem to odkrokovat. Zjistil jsem, že Selection.Interior.ColorIndex = xlN…
yorg 29.01.2007 12:08
yorg
k "Třeba vybrat oblast, zkopirovat do nového listu, tam zrušit barevné zvýraznění, vytisknout jako v…
yorg 29.01.2007 12:09
yorg
Tak ještě jinak.... Zkopírovat aktuální list do nového listu, pak teprve vybrat oblast, tam zrušit…
host 29.01.2007 13:35
host
taky lze. Díky poslední
yorg 29.01.2007 14:37
yorg

máš 2 možnosti:
1. použiješ příkaz VBA na předání klávesových úhozů SendKeys (podle mě ne moc vhodné, tohle používám až v nouzi nejvyšší)
2. použiješ metodu UndoAction

Pro bližší informace použij nápovědu VBA, jsou tam i ukázky kódu

Díky, bohužel jsem zjistil, že to nejde použít resp. nevím jak na to.

Potřebuju vybrat zadanou oblast listu, zrušit v ní barevné zvýraznění buněk (barva stínování), tu oblast vytisknout jako výběr a pak se vrátit k původním údajům s barevným zvýrazněním buněk.

Bohužel jsem zjistil, že tiskem se mi uloží stav, který je vytištěn (tedy bez zvýraznění) a Undo se vyprázdní a není už dostupné.

Chyba, omlouvám se. Zkusil jsem to odkrokovat.

Zjistil jsem, že Selection.Interior.ColorIndex = xlNone nevytvoří možnost kroku zpátky. Krok zpět není po této funkci aktivní.

Range("A1:L21").Select
Range("L21").Activate
Selection.Interior.ColorIndex = xlNone
ActiveWindow.UndoAction

k "Třeba vybrat oblast, zkopirovat do nového listu, tam zrušit barevné zvýraznění, vytisknout jako výběr, zrušit list."
tady by šel použít tag Cite (host)

Bohužel tudy cesta taky nevede.

I když dám nejdříve pouze zkopírovat hodnoty a pak formátování, tak formátování nepřenese šířku a výšku buněk.

Takže to vzdávám.

edit:

pobavím se ještě sám se sebou. ;-)

Dobrá byla zmínka "Tak budeš muset zvolit jinou metodiku"

Po tisku jsem tam ty barvy znovu nasázel. Takže Pat a Mat by řekli "A je to". :-)

Díky.

Zpět do poradny Odpovědět na původní otázku Nahoru