< návrat zpět

MS Excel


Téma: Aktivace makra bunkou rss

Zaslal/a 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

Zaslat odpověď >

Strana:  1 2   další »
icon #002799
Poki
Jde to, pouziva se na to procedura listu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
citovat
#002801
avatar
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
icon #002815
Poki
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
#002832
avatar
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
#041511
avatar

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
#041512
elninoslov
-Č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
#041513
avatar
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
#041514
avatar
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
#041515
avatar
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
#041516
avatar
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

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09