Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
1. Pomocou udalosti zmeny pracovného hárka:
* Kroky:
1. kliknite pravým tlačidlom myši Na karte List a vyberte „ Zobraziť kód „.
2. V editore VBA vyberte pracovný list " "Z objektu" "Dropdown a" Change "Z postupu" „Dropdown.
3. Zadajte nasledujúci kód:
`` `VBA
Private Sub Worksheet_change (ByVal Target As Range)
Ak Target.Address ="$ A 1 $" potom 'Nahraďte "$ 1" za bunkovú adresu
Ak target.Value ="yourSceDefinedValue" potom
Zavolajte na adresu YourMacronAME 'nahradiť „YourMacronAME“ skutočným menom makra
Skončiť
Skončiť
Koncový
`` `
* Vymeňte `" $ a 1 "" `za skutočnú bunkovú adresu, ktorú chcete sledovať.
* Nahraďte `" YourSedEfinedValue "` s hodnotou, ktorú chcete spustiť makro.
* Vymeňte `" yourmacroname "` Skutočným názvom makra, ktorý chcete spustiť.
* Vysvetlenie:
* Udalosť `worksheet_change` spúšťa vždy, keď sa v hárku zmení hodnota bunky.
* Kód kontroluje, či je zmenená bunka zadaná bunka a či sa jej hodnota zhoduje s preddefinovanou hodnotou.
* Ak sú splnené obe podmienky, volá zadané makro.
2. Pomocou overenia údajov:
* Kroky:
1. Vyberte bunka, ktorú chcete sledovať.
2. Prejdite na údaje karta a kliknite na overenie údajov .
3. V nastaveniach karta, vyberte custom od povolte rozbaľovacia časť.
4. Vo vzorci pole, zadajte:
`` `
=A1 ="yourSceDefinedValue"
`` `
* Nahraďte `" YourSedEfinedValue "` so skutočnou hodnotou, ktorú chcete spustiť makro.
5. Prejdite na upozornenie na chybu Tab a vyberte možnosť Zobraziť upozornenie na chybu po zadaní neplatných údajov .
6. V chybovom hlásení pole, zadajte nasledujúce:
`` `
Táto bunka by mala obsahovať hodnotu „vaša prinášená hodnota“
`` `
* Nahraďte `" YourSedeFineDalue "` so skutočnou hodnotou.
7. Kliknite na OK Uložiť nastavenia.
8. kliknite pravým tlačidlom myši na bunke a vyberte „ Priradiť makro „.
9. Vyberte makro, ktoré chcete spustiť, a kliknite na OK .
* Vysvetlenie:
* Overenie údajov obmedzuje bunku na akceptovanie iba preddefinovanej hodnoty.
* Keď používateľ zadá neplatnú hodnotu, zobrazí sa chybové hlásenie a vykoná sa makro priradené k bunke.
3. Použitie vzorca s udalosťou pracovného hárka_calculate:
* Kroky:
1. Vytvoriť Vzorec v skrytej bunke, ktorý sa vyhodnocuje na `true`, keď sa monitorovaná bunka rovná preddefinovanej hodnote. Napríklad v bunke `B1`:
`` `
=A1 ="yourSceDefinedValue"
`` `
* Nahraďte `" YourSedeFineDalue "` so skutočnou hodnotou.
2. kliknite pravým tlačidlom myši Na karte List a vyberte „ Zobraziť kód „.
3. V editore VBA vyberte pracovný list " "Z objektu" „Rozbaľovacia a“ Vypočítajte "Z postupu" „Dropdown.
4. Zadajte nasledujúci kód:
`` `VBA
Private Sub Worksheet_Calculate ()
Ak rozsah ("b1"). Value =true potom 'vymeňte "b1" bunkou obsahujúcou vzorec
Zavolajte na adresu YourMacronAME 'nahradiť „YourMacronAME“ skutočným menom makra
Rozsah ("b1"). Value =false 'reset bunky na false
Skončiť
Koncový
`` `
* Vymeňte `" b1 "` za skutočnú adresu bunky obsahujúcej vzorec.
* Vymeňte `" yourmacroname "` Skutočným názvom makra, ktorý chcete spustiť.
* Vysvetlenie:
* Udalosť `worksheet_calculate` spúšťa vždy, keď sa v hárku vyskytne výpočet.
* Kód kontroluje, či hodnota v bunke vzorca je „true“.
* Ak je to „true“, volá zadané makro a potom vynuluje bunku vzorec na „false“, aby sa zabránilo opakovanému vykonávaniu.
Vyberte najlepšiu metódu na základe vašich konkrétnych požiadaviek a zložitosti tabuľky.