Dopĺňam:
... a kliknutím na bunku, v ktorej už X je sa toto X vymazalo.citovat
... a kliknutím na bunku, v ktorej už X je sa toto X vymazalo.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Iné riešenie označenia obpovede
A moju prílohu si nevyskúšal?citovat
MS Excel
Téma: Iné riešenie označenia obpovede 
Zaslal/a Zdeno-Frano 13.10.2019 9:33
Dobrý deň.
Hľadám iné riešenie pre označenie odpovede na otázku v dotazníku. Tlačidlo možností je na to dobré, ale stáva sa mi občas, ak ich je na hárku veľa ( 500 riadkov x 3 stĺpce ), že sa mi rozsypú - zmenšia sa a presunú na iné miesto. Možno tomu nepridá aj to, že sa niektoré riadky s tlačidlami skrývajú.
Dalo by sa spraviť, aby sa v prípade, že je pozícia kurzoru nad oblasťou označovania kliknutím ideálne ľavého, ale ak nie kľudne aj pravého tlačidla myši vložilo do bunky X? A v prípade že v jednom riadku už X je, aby sa vložením nového na inú pozíciu vymazalo? ( ak sa niekto pomýli, v jednom riadku môže byť len 1 X ).
Ďakujem vopred za pomoc.
Příloha: 
44586_priklad.xlsx (12kB, staženo 22x)
44586_priklad.xlsx (12kB, staženo 22x)treba dvojklik. Zabudol som to zazipovať.
Příloha: 
44590_kopia-44586_priklad-1.zip (14kB, staženo 21x)
citovat44590_kopia-44586_priklad-1.zip (14kB, staženo 21x)Ano dvojklik jo dobré řešení
napřílklad takto?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
radek = Target.Row
sloupec = Target.Column
Cells(radek, 3).Resize(1, 3) = ""
Cells(radek, sloupec) = "X"
Cells(radek, 1).Activate
End Subcitovat
napřílklad takto?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
radek = Target.Row
sloupec = Target.Column
Cells(radek, 3).Resize(1, 3) = ""
Cells(radek, sloupec) = "X"
Cells(radek, 1).Activate
End Subcitovat
Len nesmie dvojkliknúť mimo napríklad do A alebo B. A ak kliknem na "X", tak to tam zostane.citovat
Hej, super, to by mohlo byť. Ďakujem.
Len potrebujem zadefinovať oblasť, kde to má fungovať a kde nie, pretože takto to funguje všade a keď sa potrebujem dostať do buniek v stĺpci B a niečo v nich zmeniť, napíše mi to tiež X. Čiže fungovať len v stĺpcoch C, D, E a v riadkoch 5 až 50.
Ďakujemcitovat
Len potrebujem zadefinovať oblasť, kde to má fungovať a kde nie, pretože takto to funguje všade a keď sa potrebujem dostať do buniek v stĺpci B a niečo v nich zmeniť, napíše mi to tiež X. Čiže fungovať len v stĺpcoch C, D, E a v riadkoch 5 až 50.
Ďakujemcitovat
Zdeno-Frano napsal/a:
Hej, super, to by mohlo byť. Ďakujem.
Len potrebujem zadefinovať oblasť, kde to má fungovať a kde nie, pretože takto to funguje všade a keď sa potrebujem dostať do buniek v stĺpci B a niečo v nich zmeniť, napíše mi to tiež X. Čiže fungovať len v stĺpcoch C, D, E a v riadkoch 5 až 50.
Ďakujem
A moju prílohu si nevyskúšal?citovat
Prikladám ešte súbor aj s riešením od Zbygiho.
To že tam to X zostane až tak nevadí, to kľudne oželiem. Vymazať sa dá inak - takých situácií moc nebude, ak vôbec.
To že tam to X zostane až tak nevadí, to kľudne oželiem. Vymazať sa dá inak - takých situácií moc nebude, ak vôbec.
Příloha: 44596_priklad.zip (14kB, staženo 18x)
citovat44596_priklad.zip (14kB, staženo 18x)Marjankaj - tvoju prílohu som tu nemal. Až teraz mi naskočila...citovat
no jo no... nebylo to domyšleno 
doplněno na možnost kliknutí do ostatních buněk
ještě nějaké přání ?
doplněno na možnost kliknutí do ostatních buněk
ještě nějaké přání ?
Příloha: 44598_priklad_2.rar (14kB, staženo 24x)
citovat44598_priklad_2.rar (14kB, staženo 24x)Hej, hej, už som skúsil. Výborné. Dík dík dík obom 
citovat
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články