< návrat zpět

MS Excel

Téma: Skryt komentar rss

Zaslal/a Dunkaninko 7.10.2011 23:14

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:  « předchozí  1 2
Stalker(10.10.2011 19:51)#006143
Stalker
Tak jsem si dovolil nahlédnout 1
A Bohužel se mi také zobrazuje chyba (Excel 2007)
Method 'Select' of object 'Shape' failed

Chvilku sem si s tím hrál a dopadlo to takto viz soubor. Po přidání řádku (označen vykřičníky se chyba již nezobrazuje.
Příloha: rar6143_sesit1-0.rar (12kB, staženo 11x)
citovat
Stalker(10.10.2011 19:53)#006144
Stalker
A nebo ještě jinak:
Příloha: rar6144_sesit1-1.rar (14kB, staženo 11x)
citovat
Dunkaninko(10.10.2011 22:41)#006146
avatar
To Stalker: Chyba sa síce neobjavuje, ale keď myšou prejdeš nad C1, tak komentár je v dlhom riadku, ale nie je prispôsobený okienku pre komentár. Nefunguje Selection.AutoSize = True. V druhom prípade je dokonca Selection.AutoSize = True odstránený.citovat
Stalker(11.10.2011 19:22)#006149
Stalker
"komentár je v dlhom riadku, ale nie je prispôsobený okienku pre komentár. Nefunguje Selection.AutoSize = True."

Já si právě myslím, že Selection.AutoSize = True funguje spolehlivě. Když vložíš false, tak se ti to zase stáhne do malého okna. AutoSize = True přizpůsobuje právě to okno textu nikoliv text oknu.
Když si zadal svůj komentář makru do jednoho řádku, tak ti ho taky tak zobrazí. Jak má makro "vědět", že si přeješ text vložit do okna komentáře např. do dvou řádků pokud mu to nedáš "vědět" (vbNewLine)

"V druhom prípade je dokonca Selection.AutoSize = True odstránený."

Ano, protože je nahrazen tímto řádkem
.Comment.Shape.TextFrame.AutoSize = True '

Jediná věc co mě napadá je zadat délku okna v kódu "napevno" a nechat pouze automaticky měnit výšku okna podle délky textu. (nezkoušel jsem a nemám ponětí jestli je něco takového možné)

Snad sem koukne Poki a vyjádří se k tomu. 2
Příloha: rar6149_sesit1-0.rar (14kB, staženo 11x)
citovat
Stalker(11.10.2011 21:55)#006151
Stalker
Tak sem chvilku Googlil a dopracoval se k tomuto: viz soubor.
Zkoušel sem vkládat delší text a okno komentáře se zvětšovalo. Bohužel s přibývajícím textem se zvětšovala spodní mezera mezi textem a komentářovým oknem. 3
Příloha: rar6151_sesit1-1a.rar (15kB, staženo 11x)
citovat
Roman(12.10.2011 15:15)#006153
avatar
A co takhle voložit do sešitu, kde chci dělat tyto prostocviky toto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target Then
a = RGB(255, 255, 255)
Else
a = RGB(0, 0, 0)
End If
For Each cmt In ActiveSheet.Comments
With cmt.Shape.TextFrame.Characters(1, 1000).Font
.Color = a
End With
Next
End If
End Subcitovat
Dunkaninko(13.10.2011 10:29)#006155
avatar
Zaujímavá myšlienka, ktorá ale nerieši daný prípad.
Čo ma ale prekvapilo, že RGB(0,0,0) nezobrazí font čierno ale cyankal a RGB(255,255,255) miesto bielej farby zobrazí text do hneda. Odskúšané v 2007. Neviem či sa mi excel zbláznil, alebo si to zle vysvetľujem.citovat
jeza.m(13.10.2011 11:24)#006156
avatar
If Cells(1, 1) = 0 Then
Cells(8, 1).NoteText "AAA BBB CCC" & Chr(10) & "DDD EEE FFF"
Cells(8, 1).Comment.Shape.TextFrame.AutoSize = True
Else
Cells(8, 1).NoteText ""
End If

text je možno pomocí chr(10) rozsekat na více řádkůcitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje