Selles artiklis õpime, kuidas luua Microsoft Excelis VBA kaudu otsimiseks ja printimiseks kasutajavorm.
Mõistame lihtsa harjutusega:-
Lehel 1 on andmed, mille veerg A sisaldab agendi ID, veerg B sisaldab nime, veeru C aadress, veeru D linn, veeru E piirkond, veeru F riik ja veerg G sisaldab postiindeksit.
Järgmisel lehel (leht 2) tahame üksikasjad alla laadida vastavalt allpool toodud pildile:-
Kui otsime agendi ID -d, peaksid kõik üksikasjad ilmuma vahemikus A11: D11. Ja siis anna väljatrükk.
Üksikasjade otsimiseks ja printimiseks järgige alltoodud samme:-
- Visual Basic Editori avamiseks vajutage klahvi F11
- Sisestage moodul otsingu koodi kirjutamiseks
- Kirjutage allolev kood:-
Alamotsinguandmed () Dim Lastrow Nagu pikk Dim loetakse täisarvuna Lastrow = Sheets ("Data"). Lahtrid (Rows.count, 1). End (xlUp). Row For X = 2 Lehtede sirvimiseks ("Data"). Lahtrid (X, 1) = Sheet3.Range ("B3") Seejärel Sheet3.Range ("A11") = Sheets ("Data"). Lahtrid (X, 1) Sheet3.Range ("B11") = Sheets (" Andmed "). Lahtrid (X, 2) Sheet3.Range (" C11 ") = Sheets (" Data "). Lahtrid (X, 3) &" "& Sheets (" data "). Lahtrid (X, 4) _ & "" & Sheets ("data"). Lahtrid (X, 5) & "" & Sheets ("Data"). Lahtrid (X, 6) Sheet3.Range ("D11") = Sheets ("Data"). Lahtrid (X, 7) lõpevad, kui järgmine X lõpeb alamosaga
Koodi selgitus:- Esiteks määratleme muutujad ja seejärel oleme määratlenud, milline rida jääb viimaseks reaks, ja seejärel oleme määratlenud, mida ja kust agendi ID -st otsitakse ning seejärel, kuidas vahemikku otsitava agendi ID jaoks uuendatakse.
Nüüd määrame selle makro otsingunupule.
- Paremklõpsake nuppu
- Klõpsake käsku Määra makro
- Siin on meie makro teema Otsinguandmed, klõpsake otsinguandmeid ja seejärel nuppu OK
Käivitage makro:-
- Makro käivitamiseks klõpsake nuppu Otsi
- Kui agendi ID on olemas, värskendatakse üksikasju, vastasel juhul üksikasju ei kuvata
Väljaprindi andmiseks määrake allolev makro:-
- Sisestage nupp vahekaardilt Arendaja> Lisa> Nupp (vormi juhtimine)
- Kirjutage makro samasse mudelisse, kuhu oleme kirjutanud makro Searchdata jaoks, teemaks Printi
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Määrake makro nupule, nagu oleme määranud otsinguandmetele
Sel viisil saame andmeid otsida ja seejärel anda väljatrüki otsitud detailidele Microsoft Excelis VBA kaudu.
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