Jste zde: Úvodní stránka » excel » vba » ms-excel-vba-vzorec-do-komentare

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

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 byl aktualizován: 14.01.2010 17:18

Další články k tématu

• VBA makra - úvod
• Formuláře úvod
• Odebrání hypertexového odkazu
• Práce s listy
• Vložení vzorce do komentáře - právě čtete
• Přiřazení maker tlačítkům - Excel 2007
• Zobrazení dialogu
• Smazat aktuální soubor
• Události ve VBA
• Automatické spuštění skriptu VBA
• Msg box - dialogové okno
• Podmínky If, Then, ElseIf, Else
• Cykly - For ... Next
• Goto

Komentáře

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.

Nejnovější článek

Nejčtenější článek