Tässä artikkelissa opimme luomaan käyttäjälomakkeen hakuun ja tulostamiseen VBA: n kautta Microsoft Excelissä.
Ymmärrämme yksinkertaisella harjoituksella:-
Taulukossa 1 on tietoja, joissa sarake A sisältää agentin tunnuksen, sarake B sisältää nimen, sarakkeen C osoite, sarakkeen D kaupunki, sarakkeen E alue, sarakkeen F maa ja sarake G sisältää postinumeron.
Seuraavalla taulukolla (arkki 2) haluamme hakea yksityiskohdat alla olevan kuvan mukaisesti:-
Jos etsimme agentin tunnusta, kaikkien tietojen pitäisi näkyä alueella A11: D11. Ja anna sitten tuloste.
Hae ja tulosta tiedot alla olevien ohjeiden mukaisesti:-
- Avaa Visual Basic Editor painamalla näppäintä F11
- Kirjoita etsintäkoodi painamalla moduulia
- Kirjoita alla mainittu koodi:-
Alahakutiedot () Dim Lastrow Niin kauan Dim lasketaan kokonaislukuna Lastrow = Sheets ("Data"). Solut (Rows.count, 1). End (xlUp). Row For X = 2 Lastrow If Sheets ("Data"). Solut (X, 1) = taulukko3.alue ("B3") Sitten arkki3.alue ("A11") = taulukot ("tiedot"). Solut (X, 1) arkki3.alue ("B11") = taulukot (" Data "). Solut (X, 2) Sheet3.Range (" C11 ") = Sheets (" Data "). Solut (X, 3) &" "& Sheets (" data "). Solut (X, 4) _ & "" & Sheets ("data"). Solut (X, 5) & "" & Sheets ("Data"). Solut (X, 6) Sheet3.Range ("D11") = Sheets ("Data"). Solut (X, 7) päättyvät, jos seuraava X Loppu
Koodin selitys:- Ensin määritämme muuttujat ja sitten olemme määrittäneet, mikä rivi on viimeinen rivi, ja sitten olemme määrittäneet, mitä ja missä agentin tunnusta etsitään ja kuinka sitten alue päivitetään haetun agentin tunnukselle.
Nyt määritämme tämän makron Haku -painikkeelle.
- Napsauta painiketta hiiren kakkospainikkeella
- Napsauta Määritä makro
- Täällä makroaiheemme on Searchdata, napsauta hakutietoja ja napsauta sitten OK
Suorita makro:-
- Voit suorittaa makron napsauttamalla Etsi -painiketta
- Jos agentin tunnus on siellä, tiedot päivitetään, muuten tietoja ei näytetä
Jos haluat tulostaa, määritä alla mainittu makro:-
- Lisää painike Kehittäjä -välilehdeltä> Lisää> Painike (lomakkeen ohjaus)
- Kirjoita makro samaan malliin, johon olemme kirjoittaneet makron Searchdatalle, aiheen nimi Tuloste
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Määritä makro painikkeelle, kuten olemme määrittäneet hakutiedoille
Tällä tavalla voimme etsiä tietoja ja antaa sitten tuloksen haetuille tiedoille VBA: n kautta Microsoft Excelissä.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse