Jde to, pouziva se na to procedura listu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Subcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Subcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Aktivace makra bunkou
Ahoj všem...
rád bych se zeptal zda to jde aplikovat jen na některé buňky a jestli konkrétní buňkou můžu aktivovat konkrétní makro...
jelikož nejsem zas tak zdatnej, tak jestli by jste nemohly přidat příklad v excelu... děkuji
PS: ještě bych rád dodal, že chci spustit makro jen kliknutím na danou buňku, na změně hodnoty v buňce nezáležícitovat
MS Excel
Téma: Aktivace makra bunkou 
Zaslal/a felli 19.10.2010 14:33
ahoj, lze aktivovat makro kliknutím na buňku.
Pokud tu toto tému už jednou je, tak se omlouvám.
díky
Mozem rozsirit tuto otazku?
Ak niektora bunka v nejakom rozsahu napr. J10:M10 zmeni svoj obsah odkazom na inu bunku na inom liste napr J10 =list2!A5, K10 =list2!C8), ako aktivovat makro? Dakujemcitovat
Ak niektora bunka v nejakom rozsahu napr. J10:M10 zmeni svoj obsah odkazom na inu bunku na inom liste napr J10 =list2!A5, K10 =list2!C8), ako aktivovat makro? Dakujemcitovat
Pokud jde o prepocet bunky kvuli vzorci, je nutne pouzit metodu Private Sub Worksheet_Calculate()
Bohuzel dojde ke spusteni makra vzdy, kdyz dojde k prepoctu listu a tech prilezitosti je spousta - je dobre priradit dalsi podminku...citovat
Bohuzel dojde ke spusteni makra vzdy, kdyz dojde k prepoctu listu a tech prilezitosti je spousta - je dobre priradit dalsi podminku...citovat
V pripade ze dve bunky na tom istom liste su prepojene s dvoma Comboboxami (Comboboxi su na liste nie v Userforms) a ktorakolvek z bunek zmeni svoju hodnotu, ako vytvorit podmienku a aktivovat makro?
Vďakacitovat
Vďakacitovat
Poki napsal/a:
Jde to, pouziva se na to procedura listu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Ahoj všem...
rád bych se zeptal zda to jde aplikovat jen na některé buňky a jestli konkrétní buňkou můžu aktivovat konkrétní makro...
jelikož nejsem zas tak zdatnej, tak jestli by jste nemohly přidat příklad v excelu... děkuji
PS: ještě bych rád dodal, že chci spustit makro jen kliknutím na danou buňku, na změně hodnoty v buňce nezáležícitovat
-Čo ak bude označených viac buniek ako 1 ? Má sa brať v úvahu ľavá horná, alebo vykonať makro pre celú oblasť naraz, alebo pre každú z označených buniek sa má vykonať zvlášť ?
-Vznikajú aj iné prípady, napr. označenie buniek v celom riadku/stĺpci pri zmazaní riadku/stĺpca, dôjde k označeniu celého riadka/stĺpca. V tomto prípade čo ? Dá za zistiť či je označený celý riadok/stĺpec, ale nieje to rozoznateľné od označenia užívateľom od označenia Excelom pri mazaní.
-Aké makro sa má vykonať? Každá skúmaná bunka má úplne samostatné ničomu nepodobné makro ? Alebo majú makro podobné/rovnaké a len sa mení nejaký parameter podľa bunky ? Vtedy netreba X makier, ale len sa na základe bunky vypočíta parameter.
Veľmi málo informácií.
Len náčrtovo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
'niečo to vykoná, ak je označená niektorá z buniek v A1:A10
End If
End Sub
alebo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address
Case "$A$1": 'niečo to vykoná
Case "$A$2": 'vykoná niečo úplne totálne iné
Case "$A$3": 'a zase úplne iné
'... atď
End Select
End Sub
alebo X ďalších... Určite nebude nikto robiť všetky možné príklady. Zlepšite popis a priložte súbor k implementácii.citovat
-Vznikajú aj iné prípady, napr. označenie buniek v celom riadku/stĺpci pri zmazaní riadku/stĺpca, dôjde k označeniu celého riadka/stĺpca. V tomto prípade čo ? Dá za zistiť či je označený celý riadok/stĺpec, ale nieje to rozoznateľné od označenia užívateľom od označenia Excelom pri mazaní.
-Aké makro sa má vykonať? Každá skúmaná bunka má úplne samostatné ničomu nepodobné makro ? Alebo majú makro podobné/rovnaké a len sa mení nejaký parameter podľa bunky ? Vtedy netreba X makier, ale len sa na základe bunky vypočíta parameter.
Veľmi málo informácií.
Len náčrtovo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
'niečo to vykoná, ak je označená niektorá z buniek v A1:A10
End If
End Sub
alebo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address
Case "$A$1": 'niečo to vykoná
Case "$A$2": 'vykoná niečo úplne totálne iné
Case "$A$3": 'a zase úplne iné
'... atď
End Select
End Sub
alebo X ďalších... Určite nebude nikto robiť všetky možné príklady. Zlepšite popis a priložte súbor k implementácii.citovat
využil jsem první příklad... jelikož druhý bohužel hází chybu "Select Case without End select"
můj příklad(funguje)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("F1:F6"), Target) Is Nothing Then
Selection.Copy
Cells(1, 4).Select
ActiveSheet.Paste
End If
End Sub
bohužel onen excel nemám doma... nemohu přiložit
jde o jedoduchý výběr, který sem nechtěl řešit přes tlačítka, abych ušetřil trošku místa. Onen výběr se mi má jen nakopírovat na dané místo.
jak jste zmínil problém s větším výběrem, ten jde nějak ošetřit? chtěl bych brát v potaz jen tu první.
a pokud bych chtěl hlídat více sloupců a podle sloupce také jiná podmínka?
jak říkám ten váš druhý příklad jsem nerozběhl. Ale mockrát děkuji. Rád se přiučím (pokus omyl- to jsem já)citovat
můj příklad(funguje)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("F1:F6"), Target) Is Nothing Then
Selection.Copy
Cells(1, 4).Select
ActiveSheet.Paste
End If
End Sub
bohužel onen excel nemám doma... nemohu přiložit
jde o jedoduchý výběr, který sem nechtěl řešit přes tlačítka, abych ušetřil trošku místa. Onen výběr se mi má jen nakopírovat na dané místo.
jak jste zmínil problém s větším výběrem, ten jde nějak ošetřit? chtěl bych brát v potaz jen tu první.
a pokud bych chtěl hlídat více sloupců a podle sloupce také jiná podmínka?
jak říkám ten váš druhý příklad jsem nerozběhl. Ale mockrát děkuji. Rád se přiučím (pokus omyl- to jsem já)citovat
(15.9.2018 19:50)#041514
Kdybyste se chtěl něčemu přiučit, ta se do pytle podíváte na příkaz Select Case. Jeden debilní dotaz do Google navíc. Tak se holt elninoslov jednou sekl a má tam být místo End If akorát End Select. Tak se na to vykašlete a je to. Ale netvrďte, jak se chcete něčemu přiučit. Akorát tak měníte zadání co 5 minut. Kurva fix, já musel ještě chodit do knihovny se žádankou a vy jste líný na jedno pársekundové vyhledávání na netu.citovat
No tak sory...
Já jsem tu slušně poděkoval za pomoc a jen jsem se zmínil že ten druhej "mě" nefunguje. Nevěděl jsem že je tam chyba.
Vy jste asi génius kterej to vidí na první pohled...
Já si toto všechno musím do podrobna rozebrat vyskoušet a pak to možná částečně pochopím jak to funguje.
ještě jednou Poki děkuji za pomoc...
a zkusím i tu opravu kterou napsal XLNC snad už to půjde.
Jinak co se týče pana GOOGLA. HLEDÁM CO MŮŽU. Ale když člověk neví na co přesně by se měl zeptat a hlavně jak přesně formulovat dotaz, tak většina slušnejch lidí pomůže...
PS: já taky chodil do knihovny... ale tam byl asi tenkrát EXCEL v Science fiction....citovat
Já jsem tu slušně poděkoval za pomoc a jen jsem se zmínil že ten druhej "mě" nefunguje. Nevěděl jsem že je tam chyba.
Vy jste asi génius kterej to vidí na první pohled...
Já si toto všechno musím do podrobna rozebrat vyskoušet a pak to možná částečně pochopím jak to funguje.
ještě jednou Poki děkuji za pomoc...
a zkusím i tu opravu kterou napsal XLNC snad už to půjde.
Jinak co se týče pana GOOGLA. HLEDÁM CO MŮŽU. Ale když člověk neví na co přesně by se měl zeptat a hlavně jak přesně formulovat dotaz, tak většina slušnejch lidí pomůže...
PS: já taky chodil do knihovny... ale tam byl asi tenkrát EXCEL v Science fiction....citovat
No keď chceš robiť vo VBA, tak syntax základných príkazov by si mal ovládať. A keď ti to zahlási chybu, tak by ti malo rozsvietiť. Proste dáš do googla SELECT CASE VBA a hneď máš výsledok. Nemusíš čakať kým ti nejaký "guru" odpovie alebo ti to vygoogli.citovat
Už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