VBA Makro - vložení vzorce do komentáře

Úvod

Protože jsem potřeboval mít ve svých programech přehled o vzorcích, našel jsem si na internetu a v nápovědách možnost, jak vložit do komentáře obsah vzorce. Nebyl to přímo tento vzorec, musel jsem si jej teprve posládat. Původně to byl příklad, který vkládal do nápovědy hodnotu. Pak jsem hledal dál a našel možnost, jak se zobrazí vzorec (bohužel pouze anglicky), ale nakonec se povedlo a již se mi zobrazí i v češtině.

Vlastní vzorec

Následující kód vložte do Modulu ve VBA (kdo neví jak na to, podrobný popis je uveden za kodem).

Sub VlozVzorecDoKomentare()
Dim cell As Range
On Error Resume Next
Selection.ClearComments
On Error GoTo 0
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell.Formula <> "" Then
cell.AddComment
cell.Comment.Visible = False
On Error Resume Next
cell.Comment.Text Text:=cell.FormulaLocal
On Error GoTo 0
End If
Next cell
End Sub


Pokud nevíte kam tento kod vložit tak podrobnější návod:

1) Spusťte Visual Basic - (Alt+F11) nebo Nástroje - Makro - Editor jazyka Visual Basic.

2) Vložte modul - Insert - Module

3) Vložte kód - do pravého okna vložte výše uvedený kód

Spuštění Makra

Stačí makro spustit klasicky. Označíme buňku (buňky), ve kterých chceme mít vzorce a přes menu Nástroje - Makro - Makra... , spustíme makro VlozVzorecDoKomenare a máme hotovo :)

Modifikace

Další možné modifikace a doplnění:

Vzorec se dá doplnit o:

• cell.Value - hodnota která je v buňce (tak tento kód obsahoval původní příklad)
• cell.NumberFormat - formát čísla (zda jde o text, číslo, datum, ...)
• cell.Address - adresa buňky (třeba se k něčemu bude hodit)
• cell.Formula - uvede vzorec v angličtině, (můžete porovnávat české a anglické názvy)

Možné problémy

Funguje pod Excel 2000 i Excel 2003, v české verzi. Jak možná víte, nemusíte používat názvy funkcí v české výrazi, ale je možno používat anglické (např. místo KDYŽ použít IF), což se může hodit, třeba když programujete pro cizince...

Excel další informce

Pokud chcete umět vytvářet takovéto a lepší excelovské tabulky přečtěte jak na to. Seznam již publikováných článků o MS Excel:

• MS Excel triky
• MS Excel filtry
• MS Excel tvorba grafu
• MS Excel pole se seznamem
• MS Excel podmíněné formátování
• MS Excel makra
• MS Excel vypočtový program
• MS Excel kontingenční tabulka
• MS Excel pro advokáty
• MS Excel speciální číslená řada
• MS Excel on line kurz zdarma
• MS Excel ke stažení zdarma
• MS Excel 2007 novinky
• MS Excel 2007 makra pro tlačítka
• MS Excel 2007 označení sloupců čísly
• MS Excel 2007 karty aneb Menu
• MS Excel FUNKCE datum a čas
• MS Excel FUNKCE matematické
• MS Excel FUNKCE logické
• MS Excel FUNKCE textové
• MS Excel FUNKCE statistické
• MS Excel ověření zadávaných dat
• MS Excel formátování
• MS Excel rodné číslo na datum
• MS Excel VBA - Makro - vzorec do komentáře - právě čtete
• MS Excel chyby
• MS Excel matice
• MS Excel VBA odebrani hypertextových odkazů
• MS Excel Test - automatický filtr

Doporučení

K práci doporučuji originální Microsfot Excel 2003. Varianta pro studenty je za směšnou cenu. Jednotlivé příklady v Excelu jsou ke stažení zdarma. Ke studijním účelům je můžete využívat bezplatně. Pokud se rozhodnete pro komerční využítí prosím informujte mě.

| článek zveřejněn: 7.9.2007 |

---