Komentáře v excelu Vyřešeno

[slonik]

Existuje nějaká možnost jak vložit do buňky komentář pomocí vzorce nebo makra? Mám tabulku poznámek a potřeboval bych je nějak chytře a rychle vložit do jiné tabulky

[Reklama]

[mike007]

Nevím, zda jsem dobře pochopil dotaz... snad ano.
Stačí označit tabulku s poznámkami, zkopírovat ji a vložit ji jinam pomocí Vložit jinak --> Komentáře

[navstevnik]

Ono to je trosku jinak, Vložit jinak --> Komentáře zkopiruje komentar kopirovane bunky do komentare cilove bunky, pricemz je stary komentar v cilove bunce odstranen. (vybrat bunku s komentarem>Ctrl+c>vybrat cilovou bunku>Vlozit jinak>Komentare).
Pozadavek tazatele lze splnit rucne: Do cilove bunky vlozit prazdny komentar, zkopirovat prislusny retezec z editacniho radku rovnic Ctrl+c (v pripade prekopirovani vzorce je nutno jeste rozpojit vazbu na zdrojovou bunku stiskem Escape) a vlozit do komentare Ctrl+v u cilove bunky. Pokud by totiz byla kopirovana bunka, nebude retezec do komentare vlozen (alespon pro Excel 2000,2003; 2007 nevim).
Jiste lze napsat i makro, ktere tuto cinnost vykona, ale je nutno pripojit co, odkud, kam.

[slonik]

Nevím, zda jsem dobře pochopil dotaz... snad ano.
Stačí označit tabulku s poznámkami, zkopírovat ji a vložit ji jinam pomocí Vložit jinak --> Komentáře

To by šlo, kdybych měl poznámky ve formě komentářů. Já mám ale normální tabulku s normálními texty a potřeboval bych je do podoby komentářů nějak "překovat". A protože jich je asi 800, dost se mi nechce dělat to ručně

[mike007]

Jo ták, tak to řeknu hned, ne?

Otevři si tedy excelovský dokument s tou tabulkou a jdi do Visual basicu (Nástroje --> Makro --> Editor jazyka Visual Basic)
Ve Visualu vyber z menu Insert --> Module a do prázdného okna nakopíruj toto makro:

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

Visual zavři.

Nyní si tabulku s daty, které chceš mít v komentáři označ myší a spusť makro (Nástroje --> Makro --> Makra --> vyber makro hodnota_komentar)

Makro ti všechny hodnoty v označených buňkách převede do komentářů. Pak už si s tím můžeš dělat co chceš

Tak snad to takto stačí.

[navstevnik]

V priloze je ukazka procedury vkladajici komentare do bunek z tabulky. Kriteriem pro prirazeni je hodnota (cislo) v bunce.
Lze upravit, ale musis stanovit pravidlo pro prirazeni komentare do bunky.

[slonik]

Skvělé, moooooc a mooooc děkuju. Makro jsem maličko upravil pro svojí potřebu, ale ten základ bych (coby obyčejný uživatel) dohromady nedal. Ještě jednou díky.