V tem članku se bomo naučili, kako dodati vnosno sporočilo pri preverjanju podatkov med vnosom določenih vnosov v celico z uporabo VBA v programu Microsoft Excel.
Preverjanje podatkov je orodje, ki se uporablja za omejitev vnosa v obseg ali podatke, tako da lahko določimo, katero vrsto podatkov je treba vnesti v list.
Vzemimo primer in razumemo:-
Ime države imamo v stolpcu D, v celici A1 pa želimo ustvariti spustni filter za ime držav.
Poudariti želimo celico A1 in na spustnem seznamu poimenovati države ter dati sporočilo uporabnikom, da vedo, katere vnose je treba vnesti v obseg.
Sledite spodnjim korakom in kodi:-
- Odprite stran VBE in pritisnite tipko Alt+F11.
- Za vnos kode vstavite modul.
- Napišite spodnjo kodo:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Delovni listi ("sheet1"). Celice (Rows.Count, "D"). End (xlUp) .Row With Range ("A1: A10"). Validation .Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, Operator: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Ime sporočila". ("A1: A10"). Interior.ColorIndex = 37 Konec s konč
Koda Pojasnilo:-
Najprej smo definirali vse spremenljivke, nato smo ustvarili obseg, ki bi pomagal ustvariti dinamični spustni filter. Podobno smo definirali vhodni naslov in vhodno sporočilo. Nato smo določili cilj, na katerem želimo ustvariti spustni seznam, nato pa celico napolnili z barvo.
Za zagon kode pritisnite tipko F5 na tipkovnici
- Za države bo ustvarjen spustni seznam.
- Poleg tega bo celica napolnjena z barvo.
- In tudi, ko bomo v obseg vnesli novo ime države, bo spustni seznam samodejno izbral ime države.
- Sporočilo se bo prikazalo v izbrani celici v območju A1: A10.
Na ta način lahko dodamo vhodno sporočilo pri preverjanju podatkov prek VBA v Microsoft Excelu.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte
