Jak přidat vstupní zprávu při ověřování dat

Anonim

V tomto článku se naučíme, jak přidat vstupní zprávu při ověřování dat při zadávání konkrétních položek do buňky pomocí VBA v Microsoft Excelu.

Ověření dat je nástroj, který se používá k omezení zadání v rozsahu nebo datech, abychom mohli definovat, jaký typ dat by měl být zadán do listu.

Ukažme si příklad a rozumíme:-

Ve sloupci D máme název země a v buňce A1 chceme vytvořit rozevírací filtr pro název země.

Chceme zvýraznit buňku A1 a vytvořit rozevírací seznam pro názvy zemí a dát zprávu, aby uživatelé věděli, které položky je třeba zadat do rozsahu.

Postupujte podle níže uvedených kroků a kódu:-

  • Otevřete stránku VBE a stiskněte klávesu Alt+F11.
  • Vložte modul a napište kód.
  • Napište níže 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 = "Zpráva" .InputMessage = "Zadejte pouze název země" Rozsah ("A1: A10"). Interior.ColorIndex = 37 Konec s koncem Sub

Vysvětlení kódu:-

Nejprve jsme definovali všechny proměnné, poté jsme vytvořili rozsah, který by pomohl vytvořit dynamický rozevírací filtr. Podobně jsme definovali vstupní název a vstupní zprávu. A pak jsme definovali cíl, kde chceme vytvořit rozevírací seznam, a pak bychom buňku vyplnili barvou.

Kód spustíte stisknutím klávesy F5 na klávesnici

  • Pro tyto země bude vytvořen rozevírací seznam.
  • Buňka bude také naplněna barvou.
  • A také, kdykoli zadáme nový název země do rozsahu, rozevírací seznam automaticky vybere název země.
  • Zpráva se zobrazí ve vybrané buňce v rozsahu A1: A10.

Tímto způsobem můžeme přidat vstupní zprávu při ověřování dat prostřednictvím VBA v Microsoft Excelu.

Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail