MS Excel

Je mozne vo VBA na zaklade hodnoty bunky skryt komentar (nemozno ho precitat, ani vidiet jeho znak)? Napr. ak A1=1, potom skry komentar v C1, ak A1=0, zobraz komentar v C1.
1. Hodnota v A1 sa meni cez prepinac
2. Hodnota do A1 sa vklada manualne z klavesnice
Dakujem

Zaslat odpověď >

Strana: 1 2 další »

jnkopr(8.10.2011 0:00)#006119

Ahoj,možná ti pomůže tento příklad:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then
Application.DisplayCommentIndicator = xlNoIndicator
Else
If Range("A1") = 2 Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End If
End Subcitovat

Dunkaninko(9.10.2011 10:22)#006124

Dakujem za odpoved, ale uvedeny subor neriesi to, aby som dokazal urobit tuto operaciu na jednej bunke, bud na aktivnom liste, alebo na inom liste.
Subor skryje/zobrazi vsetky komentare v aplikacii, na vsetkych listoch a bunkach.
Da sa vobec moja poziadavka riesit vo VBA?
Dakujemcitovat

Jeza.m(9.10.2011 11:00)#006126

Co takhle na základě hodnoty v buňce A1 buď komentář vytvořit nebo smazat?citovat

Dunkaninko(10.10.2011 9:43)#006130

Bolo by to dobré riešenie, ale neviem ako na to. Kde uviesť text, ako zväčšit rozmer okna pre komentár, zalomiť text a samozrejme komentár umiestniť do danej buňky? Ak pomôžete, rád sa to naučím. Zatial som toho moc nevygoogloval.
Dakujemcitovat

Poki(10.10.2011 10:18)#006132

Mozna by to slo takto: Kdyz bude A1 = 0; tak se komentar zobrazi, kdyz bude A1 rovna jakekoliv jine hodnote, tak tam komentar nebude (funguje to na Seznam overeni dat i prepsani na klavesnici) - jen je dulezite definovat, jak ma vypadat ten komentar, zatim je jen napsan v tom kodu...
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" And Len(Target.Value) > 0 Then
On Error Resume Next
Koment = Range("c1").Comment.Text
If Err.Number = 91 Then
Else
Range("c1").Comment.Delete
End If

On Error GoTo 0

If Target.Value = 0 Then
With Range("c1")
.AddComment "Tohle je komentar pri A1 = 0"
.Comment.Shape.Select
End With
Selection.AutoSize = True
Target.Select
End If
End If

End Subcitovat

Dunkaninko(10.10.2011 11:16)#006134

Ďakujem Poki za riešenie. Vyhadzuje to však nasledujúcu chybu:
Run-time error '-2147467259(80004005)'
Method 'Select' of object 'Shape' failed
Ak A1>0, komentar sa vymaže.
Ak A1=0, vyhodí to uvedenu chybu, komentár z kódu sa vloží do bunky C1 a program zastane na riadku
.Comment.Shape.Select
Co sa tyka komentára, moze by v kóde makra, avšak jeho dĺžka je väčšia ako je rozmer zobrazovaného okienka komentára. Bolo by treba zmeniť veľkosť okna, aby sa komentár dal prečítať. Asi to rieši kód
Selection.AutoSize = True, ibaže program tam pre chybu nedorazí.citovat

Poki(10.10.2011 11:22)#006135

zvlastni, mne to funguje - jakou mas verzi Excelu? (ja 2007)citovat

Dunkaninko(10.10.2011 11:57)#006137

Mám 2007
V prilohe - Do A1 vkladam 0 alebo 1, v C1 vysledok

Příloha: rar

6137_sesit1.rar (14kB, staženo 16x)

citovat

Poki(10.10.2011 12:10)#006138

Zkusil jsem tvuj sesit - funguje mi to dobre, bez chyby, tak nevim, v cem muze byt problem...

citovat

Dunkaninko(10.10.2011 14:04)#006141

Skúsil som to aj s 2003, dáva to rovnakú chybu.
Ak som v obidvoch verziách vyhodil On Error GoTo 0, tak chyba sa prestala objavovať,avšak celý komentár sa mi nevmestí do okna - ako keby nefungovalo Selection.AutoSize = True. Pritom pri krokovaní programu -cez F8, to prechádza aj cez Autosize, ale okno neprispôsobí.citovat

Strana: 1 2 další »

Téma: Skryt komentar

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query