Šiame straipsnyje mes sužinosime, kaip pridėti įvesties pranešimą duomenų tikrinimo metu įvedant konkrečius įrašus į langelį, naudojant VBA „Microsoft Excel“.
Duomenų patvirtinimas yra įrankis, naudojamas apriboti diapazono ar duomenų įrašymą, kad galėtume apibrėžti, kokio tipo duomenys turėtų būti įvedami į lapą.
Paimkime pavyzdį ir supraskime:-
D stulpelyje turime šalių pavadinimus, o langelyje A1 norime sukurti išskleidžiamąjį šalių pavadinimo filtrą.
Norime paryškinti langelį A1 ir išskleidžiamajame sąraše nurodyti šalių pavadinimus ir pateikti pranešimą, kad vartotojai žinotų, kuriuos įrašus reikia įvesti į diapazoną.
Atlikite toliau nurodytus veiksmus ir kodą:-
- Atidarykite VBE puslapį ir paspauskite klavišą Alt+F11.
- Įdėkite modulį, kad parašytumėte kodą.
- Parašykite žemiau nurodytą kodą:-
Sub DropDownFilter () Dim lastrow As Long lastrow = darbalapiai ("sheet1"). Ląstelės (Rows.Count, "D"). Pabaiga (xlUp). Eilučių diapazonas ("A1: A10"). Patvirtinimas. Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, Operatorius: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Įveskite tik šalių pavadinimus" ("A1: A10"). Interior.ColorIndex = 37 Pabaiga su pabaiga
Kodo paaiškinimas:-
Pirmiausia mes apibrėžėme visus kintamuosius, tada sukūrėme diapazoną, kuris padėtų sukurti dinaminį išskleidžiamąjį filtrą. Panašiai mes apibrėžėme įvesties pavadinimą ir įvesties pranešimą. Ir tada mes nustatėme paskirties vietą, kurioje norime sukurti išskleidžiamąjį sąrašą, ir tada užpildysime langelį spalva.
Norėdami paleisti kodą, paspauskite klaviatūros klavišą F5
- Bus sukurtas šalių išskleidžiamasis sąrašas.
- Be to, ląstelė bus užpildyta spalva.
- Be to, kai įvesime naują šalies pavadinimą į diapazoną, išskleidžiamasis sąrašas automatiškai parinks šalies pavadinimą.
- Pranešimas pasirodys pasirinktame langelyje A1: A10.
Tokiu būdu mes galime pridėti įvesties pranešimą duomenų tikrinimui per „Microsoft Excel“ VBA.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el