V tomto článku sa naučíme, ako pridať vstupnú správu pri overovaní údajov pri zadávaní konkrétnych záznamov do bunky pomocou jazyka VBA v programe Microsoft Excel.
Overenie údajov je nástroj, ktorý sa používa na obmedzenie zadávania v rozsahu alebo údajoch, aby sme mohli definovať, ktorý typ údajov by sa mal zadať do hárka.
Vezmime si príklad a porozumieme:-
V stĺpci D máme názov krajiny a v bunke A1 chceme vytvoriť rozbaľovací filter pre názov krajiny.
Chceme zvýrazniť bunku A1 a vytvoriť rozbaľovací zoznam s názvom krajín a dať správu, aby používatelia vedeli, ktoré položky je potrebné zadať do rozsahu.
Postupujte podľa nižšie uvedených krokov a kódu:-
- Otvorte stránku VBE a stlačte kláves Alt+F11.
- Vložte modul a napíšte kód.
- Napíšte nižšie uvedený kód:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Worksheets ("sheet1"). Cells (Rows.Count, "D"). End (xlUp). Row with Range ("A1: A10"). Validation .Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, operátor: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Správa" .InputMessage = "Zadajte iba názov krajiny" Rozsah ("A1: A10"). Interior.ColorIndex = 37 Koniec s koncovým podč
Vysvetlenie kódu:-
Najprv sme definovali všetky premenné, potom sme vytvorili rozsah, ktorý by pomohol vytvoriť dynamický rozbaľovací filter. Podobne sme definovali vstupný názov a vstupnú správu. Potom sme definovali cieľ, kde chceme vytvoriť rozbaľovací zoznam, a potom by sme vyplnili bunku farbou.
Kód spustíte stlačením klávesu F5 na klávesnici
- Pre tieto krajiny sa vytvorí rozbaľovací zoznam.
- Bunka bude tiež naplnená farbou.
- A tiež, kedykoľvek do rozsahu zadáme nový názov krajiny, rozbaľovací zoznam automaticky vyberie názov krajiny.
- Správa sa zobrazí vo vybratej bunke v rozsahu A1: A10.
Týmto spôsobom môžeme pridať vstupnú správu pri validácii údajov prostredníctvom VBA v programe Microsoft Excel.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku