Příspěvky uživatele

Poprosil by som o možné riešenie vytvorenia kombinácií, podľa popisu uvedeného v priloženej prílohe.
Ďakujem

Je možné podobným spôsobom pridať aj stĺpec? Ako.

Super, ako vzdy Poki trefa do cierneho.
Dakujem

Dakujem za odpoved. Uvedene makro vklada riadok vynulovanej bunky vzdy do 15. riadku. Chcel som, aby riadok vynulovanej bunky bol vlozeny do prveho volneho riadku. Napr ak z oblasti B3:E15 (vyplna sa dynamicky) je vyplnena len cast B3:E10, potom po zmazani niektoreho B3:B10 sa zmazany riadok vlozi do riadku 10. Ak je vyplnena cela oblast B3:E15, potom zmazany riadok sa vlozi do riadku 15 (ak sa zmaze B15, tak sa nic nedeje).

Poprosil by som o pomoc pri presune riadku.
V B3:E15 mam nejake data. Ak v jednej bunke z B3:B15 manualne vynulujem obsah (klavesou Delete), potom potrebujem vyplnene riadky pod touto bunkou posunut(shiftup) a riadok vynulovanej bunky (obsah z B :E), vlozit na prvy novo vzniknuty volny riadok. Moze sa to uskutocnit len v rozsahu B3:E15. Data v ostatnych stlpcoch a v riadku 16 sa nesmu menit. Nejde o posun a presun celeho riadku. Ak sa vynuluje posledna vyplnena bunka v rozsahu, tak sa nic neudeje.
Za pomoc dakujem.

To Al:
Pokusam sa rozsirit Range("A2:B5") v ComboBox1_Change(),napr na Range("A2:B7") a do stlpca B6 a B7 vlozit dalsiu cestu pre jpg, ale ComboBox mi stale ponuka len 4 moznosti. Neviem to nastavit, aby som vybral z viac ako 4. moznosti. Poradis este? Dakujem

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.

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

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

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

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

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

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?
Dakujem

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

Zrejme si nepochopil prvu temu a nasledne odpovede od Pokiho a odo mna. To co uvadzas funguje s Range. Problem je, ako uvadza Poki, ze Copy s pouzitim Cells, mozno pouzit len na aktivnom liste.
Mne vsak ... Range(Cells(3,2),Cells(12,15)).Copy nefunguje. Inak neviem ako by sa dala dynamicky menit druha bunka Cells(12,15) resp "O12".

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje