Šajā rakstā mēs uzzināsim, kā izveidot lietotāja veidlapu meklēšanai un drukāšanai, izmantojot VBA programmā Microsoft Excel.
Sapratīsim ar vienkāršu vingrinājumu:-
Mums ir dati 1. lapā, kurā A slejā ir aģenta ID, B slejā ir vārds, C slejas adrese, D slejā pilsēta, E slejas reģions, F slejā valsts un G slejā ir pasta pasta indekss.
Nākamajā lapā (2. lapa) mēs vēlamies iegūt informāciju saskaņā ar zemāk minēto attēlu:-
Ja mēs meklējam aģenta ID, tad visai detaļai vajadzētu parādīties diapazonā A11: D11. Un tad dodiet izdruku.
Lai meklētu un izdrukātu informāciju, veiciet tālāk norādītās darbības.-
- Nospiediet taustiņu F11, lai atvērtu Visual Basic redaktoru
- Ievietojiet moduli, lai ierakstītu meklēšanas pogu
- Ierakstiet zemāk minēto kodu:-
Apakšmeklēšanas dati () Dim Lastrow Tik ilgi Dim skaitās kā vesels skaitlis Lastrow = Sheets ("Data"). Šūnas (Rows.count, 1). End (xlUp). Row For X = 2 Lastrow If Sheets ("Data"). Šūnas (X, 1) = Sheet3.Range ("B3") Pēc tam Sheet3.Range ("A11") = Sheets ("Data"). Šūnas (X, 1) Sheet3.Range ("B11") = Sheets (" Dati "). Šūnas (X, 2) Sheet3.Range (" C11 ") = Sheets (" Data "). Cell (X, 3) &" "& Sheets (" data "). Cell (X, 4) _ & "" & Sheets ("data"). Šūnas (X, 5) & "" & Sheets ("Data"). Šūnas (X, 6) Sheet3.Range ("D11") = Sheets ("Data"). Šūnas (X, 7) beidzas, ja nākamā X Beidz apakš
Koda skaidrojums:- Pirmkārt, mēs definēsim mainīgos un pēc tam noteiksim, kura rinda būs pēdējā rinda, un tad mēs esam definējuši, kas un kur tiks meklēts aģenta ID, un pēc tam kā tiks atjaunināts diapazons meklētajam aģenta ID.
Tagad mēs piešķirsim šo makro pogai Meklēt.
- Ar peles labo pogu noklikšķiniet uz pogas
- Noklikšķiniet uz Piešķirt makro
- Šeit mūsu makro tēma ir Meklēšanas dati, noklikšķiniet uz meklēšanas dati un pēc tam noklikšķiniet uz Labi
Palaidiet makro:-
- Lai palaistu makro, noklikšķiniet uz pogas Meklēt
- Ja aģenta ID būs tur, informācija tiks atjaunināta, pretējā gadījumā informācija netiks parādīta
Lai izdrukātu, piešķiriet tālāk minēto makro:-
- Ievietojiet pogu cilnē Izstrādātājs> Ievietot> Poga (veidlapas vadība)
- Uzrakstiet makro tajā pašā modelī, kurā mēs esam uzrakstījuši makro Searchdata, ar tēmas nosaukumu Drukāt
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Piešķiriet makro pogai, kā mēs esam piešķīruši meklēšanas datiem
Tādā veidā mēs varam meklēt datus un pēc tam izdrukāt meklēto informāciju, izmantojot VBA programmā Microsoft Excel.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē