Šiame straipsnyje mes sužinosime, kaip sukurti vartotojo formą paieškai ir spausdinimui naudojant „Microsoft Excel“ VBA.
Supraskime atlikdami paprastą pratimą:-
1 lape turime duomenų, kuriuose A stulpelyje yra agento ID, B stulpelyje yra pavadinimas, C stulpelio adresas, D stulpelyje yra miestas, E stulpelis, F stulpelyje yra šalis ir G stulpelyje yra pašto pašto indeksas.
Kitame lape (2 lape) norime gauti išsamią informaciją pagal žemiau pateiktą paveikslėlį:-
Jei ieškosime agento ID, visa informacija turėtų būti rodoma diapazone A11: D11. Ir tada duokite atspaudą.
Norėdami ieškoti ir spausdinti išsamią informaciją, atlikite toliau nurodytus veiksmus:-
- Paspauskite klavišą F11, kad atidarytumėte „Visual Basic“ redaktorių
- Įdėkite modulį, kad parašytumėte paieškos mygtuką
- Parašykite žemiau nurodytą kodą:-
Subpaieškos duomenys () Dim Lastrow Kaip ilgas Dim skaičiavimas kaip sveikasis skaičius Lastrow = Skaičiai ("Duomenys"). Ląstelės (Rows.count, 1). Pabaiga (xlUp). Eilutė X = 2, jei norite perkelti, jei skaičiuoklės ("Duomenys"). Ląstelės (X, 1) = Sheet3.Range ("B3") Tada Sheet3.Range ("A11") = Sheets ("Data"). Ląstelės (X, 1) Sheet3.Range ("B11") = Sheets (" Duomenys "). Ląstelės (X, 2) Sheet3.Range (" C11 ") = Sheets (" Data "). Cells (X, 3) &" "& Sheets (" data "). Cells (X, 4) _ & "" & Skaičiuoklės ("duomenys"). Ląstelės (X, 5) & "" & Lakštai ("Duomenys"). Ląstelės (X, 6) Lapas3.Range ("D11") = Lakštai ("Duomenys"). Ląstelės (X, 7) pasibaigia, jei kitas
Kodo paaiškinimas:- Pirma, mes nustatysime kintamuosius, tada nustatysime, kuri eilutė bus paskutinė eilutė, ir tada mes nustatėme, kas ir kur bus ieškoma agento ID, o tada kaip atnaujinamas ieškomo agento ID diapazonas.
Dabar šią makrokomandą priskirsime paieškos mygtukui.
- Dešiniuoju pelės mygtuku spustelėkite mygtuką
- Spustelėkite Priskirti makrokomandą
- Čia mūsų makro tema yra „Searchdata“, spustelėkite paieškos duomenis, tada spustelėkite Gerai
Paleiskite makrokomandą:-
- Norėdami paleisti makrokomandą, spustelėkite mygtuką Ieškoti
- Jei agento ID bus, tada informacija bus atnaujinta, kitaip informacija nebus rodoma
Norėdami išspausdinti, priskirkite toliau nurodytą makrokomandą:-
- Įdėkite mygtuką iš skirtuko Kūrėjas> Įterpti> Mygtukas (formos valdiklis)
- Parašykite makrokomandą tame pačiame modelyje, kuriame parašėme „Searchdata“ makrokomandą, nurodydami spausdinimo temos pavadinimą
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Priskirkite makrokomandą mygtukui, kaip mes priskyrėme paieškos duomenims
Tokiu būdu galime ieškoti duomenų ir tada atspausdinti ieškomą informaciją 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