Kuidas sisestussõnumit andmete valideerimisel lisada

Anonim

Selles artiklis õpime, kuidas lisada andmete valideerimisel sisestussõnum, sisestades lahtrisse konkreetsed kirjed, kasutades Microsoft Excelis VBA -d.

Andmete valideerimine on tööriist, mida kasutatakse vahemiku või andmete sisestamise piiramiseks, et saaksime määratleda, millist tüüpi andmeid lehele sisestada.

Võtame näite ja mõistame:-

Meil on riikide nimi veerus D ja lahtris A1 tahame luua riikide nimede jaoks rippmenüü filtri.

Soovime esile tõsta lahtri A1 ja teha rippmenüüst riikide nimed ning panna sõnumi, et kasutajad saaksid teada, millised kirjed tuleb vahemikku sisestada.

Järgige allpool toodud samme ja koodi:-

  • Avage VBE leht, et vajutada klahve Alt+F11.
  • Sisestage koodi kirjutamiseks moodul.
  • Kirjutage allpool nimetatud kood:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Töölehed ("sheet1"). Lahtrid (Rows.Count, "D"). End (xlUp). Rida vahemikuga ("A1: A10"). Valideerimine. Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, operaator: = xlBetween, valem1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Sisestage ainult riikide nimi" Vahemik ("A1: A10"). Interior.ColorIndex = 37 End With End Sub 

Koodi selgitus:-

Kõigepealt olime määratlenud kõik muutujad, seejärel loonud vahemiku, mis aitaks luua dünaamilise rippmenüü filtri. Samamoodi olime määratlenud sisendi pealkirja ja sisendsõnumi. Ja siis olime määratlenud sihtkoha, kuhu tahame ripploendi luua, ja siis täidaksime lahtri värviga.

Koodi käivitamiseks vajutage klaviatuuri klahvi F5

  • Riikide jaoks koostatakse ripploend.
  • Ja ka rakk täidetakse värviga.
  • Samuti, kui sisestame vahemikku uue riigi nime, valib ripploend riigi nime automaatselt.
  • Sõnum ilmub valitud lahtrisse vahemikus A1: A10.

Sel viisil saame Microsoft Excelis VBA kaudu andmete valideerimisel lisada sisendsõnumi.

Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile