< návrat zpět

MS Excel


Téma: Aktivace Makra pomocí přesné hodnoty buňky rss

Zaslal/a 26.12.2018 2:47

Potřebuji aktivovat makro pomocí přesné hodnoty buňky. Např. Když bude hodnota "0" spustit makro1 nebo "5" spustit makro2, už se my podobného povedlo vytvořit ale funguje to pouze u buněk do kterých ručně zadám číslo, U buněk které jsem vyhledal to nejde.
Příklad: Do buňky A1 napíšu "24581" buňka B1,C1,D1,E1 my vrátí hodnoty z jiného listu/sešitu a když bude v buňce C1 "0" spustit makro (MsgBox). Snad jsem to popsal srozumitelně. 1

Zaslat odpověď >

#042213
Merlin99
Parkrat uz tu neco takoveho bylo. V D2 se meni promena.
Nasledne se volaji nazvy maker.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Application.EnableEvents = False
Select Case Range("D2")

Case 0: Call Makro1: GoTo ex
Case 5: Call Makro2: GoTo ex

End Select
ex:
Application.EnableEvents = True
End If
End Subcitovat
#042215
avatar
Asi jsem fakt blbej a stále my to nejde :( a nejde my přiložit příloha
Příloha: xlsx42215_pokus1.xlsx (21kB, staženo 21x)
citovat
#042218
avatar

Sumavak napsal/a:

Asi jsem fakt blbej a stále my to nejde :( a nejde my přiložit přílohaPříloha: 42215_pokus1.xlsx (21kB, staženo 1x)
čo tak ten súbor zazipovať, ako to robia ostatní?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Range("C1")
Case 0: Call Makro1
Case 1 To 5: Call Makro2
End Select
End If
End Sub
citovat
#042219
avatar
Sorry to mě nenapadlo 1
Příloha: zip42219_pokus.xlsm.zip (25kB, staženo 17x)
citovat
#042220
avatar
A keď bude hodnota "3" tak sa žiadne makro nespustí? Fakt to bolo "zrozumiteľne" napísané. 8citovat
#042221
elninoslov
Úprava vzorcov aj makra. Skúste nájsť rozdiel v makre tých dvoch hárkov. Tam bola chyba.
Application.EnableEvents - použite iba ak potrebujete (v popise)
Příloha: zip42221_makro-na-zaklade-hodnoty-inej-bunky.zip (20kB, staženo 20x)
citovat
#042222
avatar
Už to jde :) teď už to jen použít na více řádků v jednom listě.citovat
#042223
avatar
@elninoslov
Bavíš sa s "odborníkmi". Ak je v C1 5, tak je to málo. Ak je tam 2 tak je to OK.

Len mi nie je jasné prečo pcháš tie procedúry(aktualní a dochází) do hárkov a nie do modulu.citovat
#042224
avatar

Sumavak napsal/a:

Už to jde :) teď už to jen použít na více řádků v jednom listě.

Neviem, čo ti ide.
A ako si predstavuješ tých viac riadkov? Takto nejako?citovat
#042233
elninoslov
Mne by to dávalo zmysel približne takto:
-Ak dosiahne hodnota skladu minimálnu hodnotu 5 - upozornenie na dosiahnutie minimálneho stavu.
-Ak je stav medzi 1-4 (vrátane) - upozornenie na dochádzanie produktu.
-Ak je stav 0 - upozornenie na chýbajúci produkt (tu nechápem použitie makra s názvom "Aktuálne", žeby v zmysle "Je aktuálne priobjednať ďalšie kusy" ??? To sa má robiť pri dochádzaní, nie ?).
- Treba zobrazovať všetky druhy správ, lebo pri viacnásobnej zmene (viac buniek naraz), môže dôjsť k rôznym stavom.
-Treba myslieť nielen na rôzne stavy, ale aj na výpis konkrétnych produktov v konkrétnych stavoch.
-Táto komplexná správa musí vynechať prípadné nepoužité stavy.
-Táto komplexná správa musí mať ikonu najvyššej použitej priority. Preto som pridal, logicky, informačnú ikonu pri dosiahnutí minimálneho stavu 5.

Všetko uvedené obsahuje toto riešenie. Dá sa to vylepšiť, napr. tým, že sa použijú kolekcie, a vylúčia sa duplicitné položky.

Ale. O koľko sa má jednať riadkov ? Je tento počet riadkov stále rovnaký ? Ak nie, čo určuje posledný riadok ? Takéto "upozornenie" by sa dalo asi riešiť (ak položiek nebude 100 000) aj vzorcami tak, že by maticové vzorce, vypisovali vedľa všetky položky, na ktoré treba upozorniť + Podmienené formátovanie. A bolo by to bez makra.

Treba ďalšie info ...
Příloha: zip42233_makro-na-zaklade-hodnoty-inej-bunky.zip (18kB, staženo 22x)
citovat

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