Done Fòm Antre nan Microsoft Excel

Pou fasilite k ap antre nan done nan yon tab nan Excel, ou ka itilize fòm espesyal ede pi vit pwosesis la nan ranpli yon seri tab ak enfòmasyon. Excel gen yon zouti bati-an ki pèmèt ou ranpli ak yon metòd menm jan an. Itilizatè a kapab kreye tou vèsyon pwòp li nan fòm lan, ki pral maksimòmman adapte a bezwen li yo, lè l sèvi avèk yon macro pou sa. Se pou yo gade nan itilizasyon sa yo diferan nan zouti sa yo ranpli itil nan Excel.

Sèvi ak zouti ranpli

Fòm lan ranpli se yon objè ki gen jaden ki gen non koresponn ak non kolòn yo nan kolòn nan tablo a yo dwe ranpli. Ou bezwen antre nan done nan jaden sa yo epi yo pral imedyatman ajoute pa yon nouvo liy nan seri a tab. Fòm nan ka aji kòm yon separe bati-an zouti Excel, oswa yo pral lokalize dirèkteman sou fèy la nan fòm lan nan ranje li yo, si li se kreye pa itilizatè a.

Koulye a, kite a gade ki jan yo sèvi ak de kalite sa yo nan zouti.

Metòd 1: bati-an objè pou Done Excel done

Premye a tout, se pou yo aprann ki jan yo sèvi ak bati-an fòm a antre nan done Excel.

1. Li ta dwe te note ke pa default icon a ki lanse li kache ak bezwen yo dwe aktive. Pou fè sa, ale nan tab la FileLè sa a, klike sou atik la "Opsyon".



2. Nan fenèt la louvri Opsyon Excel, ale nan seksyon an Quick Aksè Toolbar. Pifò nan fenèt la se okipe pa yon zòn vaste nan anviwònman. Sou bò gòch la yo se zouti ki ka ajoute nan panèl la aksè rapid, ak sou bò dwat la - deja prezan.

   Nan jaden an "Chwazi ekip nan men" mete valè "Ekip pa sou kasèt". Next, nan lis la nan kòmandman nan lòd alfabè, nou jwenn epi chwazi pozisyon an "Fòm ...". Lè sa a, klike sou bouton an Ajoute.



3. Apre sa, zouti nou bezwen an ap parèt sou bò dwat fenèt la. Klike sou bouton an "OK".



4. Koulye a, se zouti sa a ki sitiye nan fenèt la Excel sou panèl la aksè rapid, epi nou ka sèvi ak li. Li pral prezan lè louvri nenpòt workbook ak egzanp sa a nan Excel.



5. Koulye a, nan lòd pou zouti a konprann ki sa egzakteman li bezwen ranpli nan, ou ta dwe ranpli header nan tab la epi ekri nenpòt ki valè nan li. Se pou etalaj tab la avèk nou konpoze de kat kolòn ki gen non "Non pwodwi", "Kantite", "Pri" ak "Kantite lajan". Antre done yo non nan yon seri abitrè orizontal nan fèy la.



6. Epitou, pou pwogram nan konprann ki chenn li pral bezwen travay avèk yo, ou ta dwe antre nan nenpòt ki valè nan premye ranje a nan etalaj la tab.



7. Apre sa, chwazi nenpòt selil nan tab la vid, epi klike sou icon a nan panèl la aksè rapid "Fòm ..."ki nou te deja aktive.



8. Se konsa, fenèt la nan zouti ki espesifye ouvè. Kòm ou ka wè, objè sa a gen jaden ki koresponn ak non yo kolòn nan etalaj tab nou yo. Anplis, premye jaden an deja ranpli avèk yon valè, depi nou antre li manyèlman sou fèy la.



9. Ekri valè yo ke nou konsidere nesesè nan jaden ki rete yo, ak Lè sa a, klike sou bouton an Ajoute.



10. Apre sa, kòm ou ka wè, valè yo te antre nan otomatikman te transfere nan premye ranje nan tablo a, ak nan fòm nan te gen yon tranzisyon nan blòk la pwochen nan jaden yo, ki koresponn ak dezyèm ranje a nan etalaj la tab.



11. Ranpli fenèt la zouti ak valè yo ke nou vle wè nan dezyèm ranje a nan zòn nan tab, epi klike sou bouton an ankò Ajoute.



12. Kòm ou ka wè, valè yo nan dezyèm liy lan yo te tou te ajoute, e nou pa t 'menm gen ordonne kurseur a nan tablo nan tèt li.



13. Se konsa, nou ranpli etalaj la tab ak tout valè yo ke nou vle antre nan li.



14. Anplis de sa, si ou vle, ou ka navige nan deja antre valè lè l sèvi avèk bouton sa yo "Retounen" ak "Next" oswa ba woulèt vètikal



15. Si sa nesesè, ou ka ajiste nenpòt ki valè nan tableau tableau chanje li nan fòm lan. Pou fè chanjman yo parèt sou fèy la, apre yo fin fè yo nan blòk la korespondan nan zouti a, klike sou bouton an Ajoute.



16. Kòm ou ka wè, chanjman an imedyatman te fèt nan zòn nan tab.



17. Si nou bezwen efase yon liy, Lè sa a, nan bouton sa yo navigasyon oswa ba a woulo liv nou ale nan blòk la jaden ki koresponn nan fòm lan. Apre sa, klike sou bouton an Efase nan fenèt zouti a.



18. Yon dyalòg avètisman louvri, enfòme ou ke yo pral liy lan dwe efase. Si ou gen konfyans nan aksyon ou, Lè sa a, klike sou bouton an "OK".



19. Kòm ou ka wè, yo te ranje a extrait soti nan seri a tab. Apre w fin ranpli ak koreksyon fin ranpli, ou ka sòti fenèt la zouti pa klike sou bouton an Fèmen.



20. Apre sa, bay etalaj la tab yon aparans pi vizyèl vizyèl, fòma ka fèt.

Metòd 2: kreye yon fòm koutim

Anplis de sa, avèk èd nan yon macro ak yon kantite lòt zouti, li posib yo kreye pwòp ou koutim fòm yo ranpli nan zòn nan tab. Li pral kreye dirèkteman sou fèy la, epi yo pral reprezante ranje li yo. Sèvi ak zouti sa a, itilizatè a tèt li yo pral kapab reyalize sa yo opòtinite ke li konsidere kòm nesesè. An tèm de fonksyonalite, li pral nan okenn fason dwe enferyè a bati-an Excel analog, ak nan kèk fason li ka siperyè li. Dezavantaj a sèlman se ke pou chak etalaj tab ou gen pou konpoze yon fòm separe, epi yo pa aplike menm modèl la, kòm se posib lè w ap itilize vèsyon estanda a.

1. Kòm nan metòd anvan an, premye nan tout, ou bezwen fè yon header nan tab la nan lavni sou fèy la. Li pral konpoze de senk selil ki gen non: "Non", "Non pwodwi", "Kantite", "Pri", "Kantite lajan".



2. Next, nou bezwen fè sa yo rele "entelijan" tab la soti nan etalaj tab nou an, ak kapasite nan otomatikman ajoute liy lè ranpli chenn adjasan oswa selil ak done yo. Pou fè sa, chwazi header la, epi, yo te nan tab la "Kay"klike sou bouton an "Fòma kòm tab" nan bwat zouti a Styles. Sa a louvri yon lis de opsyon style ki disponib. Chwa nan youn nan yo pa pral afekte fonctionnalités a nan okenn fason, se konsa nou jis chwazi opsyon a ke nou konsidere plis apwopriye.



3. Lè sa a, yon ti fenèt pou fòma tab la ouvè. Li endike seri a ke nou te deja resevwa lajan, ki se, ranje a nan header la. Kòm yon règ, nan sa a jaden tout bagay se ranpli kòrèkteman. Men, nou ta dwe tcheke ti bwat la akote paramèt la Tab Table. Apre sa, klike sou bouton an "OK".



4. Se konsa, se ranje nou an fòma kòm yon "entelijan" tab, kòm evidans menm yon chanjman nan ekspozisyon vizyèl. Kòm ou ka wè, pami lòt bagay, ikon filtre parèt pwochen nan chak non tit kolòn. Yo ta dwe enfim. Pou fè sa, chwazi nenpòt selil nan tablo a "entelijan" epi ale nan tab la "Done". Gen sou riban a nan bwat zouti a Triye ak Filter klike sou icon a "Filtre".

   

   Gen yon lòt opsyon pou enfim filtre a. Nan ka sa a, li pa pral menm nesesè pou chanje an yon lòt tab, rete nan tab la "Kay". Apre chwazi selil yo nan zòn nan tab sou riban a nan blòk anviwònman yo "Korije" klike sou icon a Triye ak Filter. Nan lis la ki parèt, chwazi pozisyon an "Filtre".



5. Kòm ou ka wè, apre aksyon sa a, ikon yo filtraj disparèt nan header nan tab la, jan sa nesesè.



6. Lè sa a, nou ta dwe kreye fòm nan antre done tèt li. Li pral tou yon kalite etalaj tab ki gen ladan de kolòn. Non ranje sa a objè ap koresponn ak non yo kolòn nan tablo prensipal la. Eksepsyon a se kolòn "Non" ak "Kantite lajan". Yo pral absan. Premye a pral konte lè l sèvi avèk yon macro, epi yo pral dezyèm valè a ap kalkile lè w aplike fòmil la pou miltipliye kantite pa pri.

   Dezyèm kolòn objè antre done a rete vid pou kounye a. Valè dirèkteman pita yo pral antre nan li yo ranpli ranje yo nan seri a tab prensipal la.



7. Apre sa nou kreye yon lòt ti tab. Li pral konpoze de yon kolòn epi li pral gen yon lis nan pwodwi ke nou pral montre nan dezyèm kolòn nan nan tablo prensipal la. Pou klè, selil la ak tit la nan lis sa a ("Pwodwi Lis") ka ranpli ak koulè.



8. Lè sa a, chwazi premye selil la vid nan objè a opinyon valè. Ale nan tab la "Done". Klike sou icon a Done Verifikasyonki se mete sou riban a nan bwat zouti a "Travay ak done".



9. Fenèt validasyon D 'a kòmanse. Klike sou jaden an "Done kalite"ki défaut pou "Nenpòt valè".



10. Soti nan opsyon ki louvri yo, chwazi pozisyon an Lis.



11. Kòm ou ka wè, apre sa, fenèt la pou tcheke valè yo opinyon yon ti kras chanje konfigirasyon li yo. Yon lòt jaden parèt "Sous". Nou klike sou icon a sou bò dwat la ak bouton sourit gòch la.



12. Lè sa a, se fenèt la chèk D 'minimize. Chwazi lis la nan done ki mete sou yon fèy nan yon zòn tab adisyonèl ak kurseur a pandan w ap kenbe bouton an sourit gòch "Pwodwi Lis". Apre sa, ankò klike sou icon a sou bò dwat jaden an kote adrès la nan ranje a chwazi parèt.



13. Sa retounen nan bwat chèk la pou antre nan valè yo. Kòm ou ka wè, kowòdone yo nan seri a chwazi nan li yo deja parèt nan jaden an "Sous". Klike sou bouton an "OK" nan fon fenèt la.



14. Koulye a, sou bò dwat la selil la vid chwazi nan objè a antre done, li te yon icon triyang parèt. Lè ou klike sou li, yon lis drop-desann ouvè, ki fòme ak non ki rale soti nan etalaj la tab "Pwodwi Lis". Li se kounye a enposib antre nan done abitrè nan selil ki endike a, men ou ka sèlman chwazi pozisyon an vle nan lis prezante a. Chwazi yon atik nan lis la drop-desann.



15. Kòm ou ka wè, yo te pozisyon nan chwazi imedyatman parèt nan jaden an "Non pwodwi".



16. Next, nou pral bezwen bay non twa selil sa yo nan fòm nan opinyon kote nou pral antre nan done yo. Chwazi selil la an premye, kote se non an deja mete nan ka nou an "Pòmdetè". Apre, ale nan jaden an non ranje. Li sitiye sou bò gòch nan fenèt la Excel nan menm nivo ak ba a fòmil. Mete yon non abitrè la. Li kapab gen nenpòt ki non nan Latin lan, nan ki pa gen okenn espas, men li se pi bon yo sèvi ak non ki fèmen nan travay yo te rezoud pa eleman sa a. Se poutèt sa, premye selil la, ki gen non pwodwi a, yo rele sa "Non". Nou ekri non sa a nan jaden an ak peze kle a Antre sou klavye a.



17. Nan egzakteman menm jan an nou bay yon non nan selil la nan ki nou pral antre nan kantite machandiz "Volim".



18. Ak selil la ak pri a - "Pri".



19. Apre sa, nan egzakteman menm jan an nou bay non an nan ranje a tout antye de twa selil ki anwo yo. Premye a tout, chwazi, ak Lè sa a, bay li yon non nan yon jaden espesyal. Se pou li yon non "Diapason".



20. Apre aksyon ki sot pase a, nou dwe sove dokiman an pou ke non yo ke nou asiyen nou ka pèrsu pa mak la ke nou te kreye nan tan kap vini an. Pou sove, ale nan tab la File epi klike sou atik la "Save As ...".



21. Nan fenèt la sove ki ouvè, nan jaden an File Kalite chwazi valè "Excel Macro Sipò pou Liv (.xlsm)". Apre sa, klike sou bouton an Sove.



22. Lè sa a, ou ta dwe aktive makro yo nan vèsyon ou nan Excel ak pèmèt tab la "Developer"si ou toujou pa gen. Reyalite a se ke tou de nan fonksyon sa yo enfim pa default nan pwogram nan, epi yo dwe deklanchman yo dwe fè fòs nan fenèt la anviwònman Excel.
23. Apre ou fin fè sa, ale nan tab la "Developer". Klike sou gwo ikòn lan "Visual Basic"sitiye sou riban an nan bwat zouti an "Kòd".



24. Aksyon an dènye lakòz editè nan macro VBA yo kòmanse. Nan zòn nan "Pwojè", ki sitiye nan pati siperyè agòch fenèt la, chwazi non fèy la kote tab nou yo ye. Nan ka sa a, li se "Fèy 1".



25. Apre sa, ale nan zòn nan pi ba gòch nan fenèt la rele "Pwopriyete". Isit la yo se anviwònman yo nan fèy la chwazi. Nan jaden an "(Non)" Yo ta dwe ranplase non sirilik la"Sheet1") nan non ekri nan Latin lan. Ou ka bay nenpòt ki non ki pi bon pou ou, bagay la prensipal se ke li gen sèlman karaktè Latin oswa nimewo e pa gen lòt siy oswa espas. Se avèk non sa a ki macro a ap travay. Se pou nou nan ka sa a non "Producty", byen ke ou ka chwazi nenpòt ki lòt ki satisfè kondisyon ki dekri anwo a.

    Nan jaden an "Non" Ou kapab tou ranplase non an ak yon yon sèl pi bon. Men, sa pa nesesè. Nan ka sa a, se itilizasyon espas, sirilik ak nenpòt lòt karaktè. Kontrèman ak paramèt anvan an, ki etabli non an fèy pou pwogram nan, paramèt sa a asiyen yon non nan fèy la ki vizib nan itilizatè a nan ba a chemen kout.

    Kòm ou ka wè, apre sa non an pral tou otomatikman chanje Fèy 1 nan jaden an "Pwojè", nan yon sèl la nou jis mete nan anviwònman yo.



26. Lè sa a, ale nan zòn nan sant nan fenèt la. Sa a se kote nou pral bezwen ekri kòd la macro tèt li. Si jaden an nan editè nan kòd blan nan zòn ki endike a pa parèt, tankou nan ka nou an, Lè sa a, peze kle a fonksyon F7 epi li pral parèt.



27. Koulye a, pou egzanp patikilye nou an, nou bezwen ekri kòd sa a nan jaden an:

    
Gwoup DataEntryForm ()
Dim pwochen ranje osi lontan
nextRow = Producty.Cells (Producty.Rows.Count, 2) .End (xlUp). Offset (1, 0) .Row
Avèk producty
Si .Range ("A2"). Valè = "" Epi .Range ("B2"). Valè = "" Lè sa a
nextRow = nextRow - 1
Fini si
Producty.Range ("Non"). Kopi
.Cell (nextRow, 2) .PasteSpecial Paste: = xlPasteValues
.Cell (nextRow, 3) .Value = Producty.Range ("Volum"). Valè
.Cell (nextRow, 4) .Value = Producty.Range ("Pri"). Valè
.Cell (nextRow, 5) .Value = Producty.Range ("Volum"). Valè * Producty.Range ("Pri") Valè.
.Range ("A2"). Fòmil = "= SI (ISBLANK (B2)," "" ", COUNTA ($ B $ 2: B2))"
Si pwochen> 2> Lè sa a ,.
Range ("A2"). Chwazi
Selection.AutoFill Destination: = Range ("A2: A" & nextRow)
Range ("A2: A" & nextRow) .Chwazi
Fini si
.Range ("Diapason"). ClearContents
Fini ak
End sub

    Men, kòd sa a se pa inivèsèl, ki se, li se chanje apwopriye sèlman pou ka nou an. Si ou vle adapte li nan bezwen ou yo, Lè sa a, li ta dwe modifye kòmsadwa. Se konsa, ke ou ka fè li tèt ou, se pou yo gade nan sa ki kòd sa a konsiste de, sa ki ta dwe ranplase, ak sa ki pa ta dwe chanje.

    Se konsa, premye liy lan:

    Gwoup DataEntryForm ()

    "DataEntryForm" se non macro a li menm. Ou ka kite li jan li ye, oswa ou ka ranplase li ak nenpòt ki lòt ki satisfè règleman jeneral yo pou kreye non macro (pa gen espas, itilize sèlman lèt nan alfabè a Latin, elatriye). Chanje non an pa pral afekte anyen.

    Kèlkeswa kote mo a rive nan kòd la "Producty" ou dwe ranplase li avèk non ou te deja plase nan fèy ou an nan jaden an "(Non)" zòn nan "Pwopriyete" editè macro. Natirèlman, sa a ta dwe fè sèlman si ou te rele fèy la nan yon fason diferan.

    

    Koulye a, konsidere liy sa a:

    nextRow = Producty.Cells (Producty.Rows.Count, 2) .End (xlUp). Offset (1, 0) .Row

    Digit "2" nan ranje sa a vle di dezyèm kolòn fèy la. Kolòn sa a se kolòn nan "Non pwodwi". Sou li nou pral konte kantite ranje. Se poutèt sa, si nan ka ou yon kolòn menm jan an gen yon lòd diferan nan kont lan, Lè sa a, ou bezwen antre nan nimewo ki koresponn lan. Valè "Fen (xlUp) .Ofset (1, 0) .Row" nan nenpòt ka, kite chanje.

    

    Apre sa, konsidere liy lan

    Si .Range ("A2"). Valè = "" Epi .Range ("B2"). Valè = "" Lè sa a

    "A2" - sa yo se kowòdone yo nan premye selil la nan ki nimewote liy yo pral parèt. "B2" - sa yo se kowòdone nan selil la premye pa ki done yo pral pwodiksyon ("Non pwodwi") Si yo diferan, antre nan done ou olye pou yo sa yo kowòdone.

    

    Ale nan liy lan

    Producty.Range ("Non"). Kopi

    Li gen yon paramèt "Non" vle di non an nou asiyen nan jaden an "Non pwodwi" nan fòm nan opinyon.

    

    Nan liy yo

    
.Cell (nextRow, 2) .PasteSpecial Paste: = xlPasteValues
.Cell (nextRow, 3) .Value = Producty.Range ("Volum"). Valè
.Cell (nextRow, 4) .Value = Producty.Range ("Pri"). Valè
.Cell (nextRow, 5) .Value = Producty.Range ("Volum"). Valè * Producty.Range ("Pri") Valè.

    non "Volim" ak "Pri" vle di non nou asiyen nan jaden yo "Kantite" ak "Pri" nan fòm nan opinyon menm.

    

    Nan liy yo menm ke nou endike anwo a, nimewo yo "2", "3", "4", "5" vle di nimewo yo kolòn nan Fèy travay la Excel ki koresponn a kolòn yo "Non pwodwi", "Kantite", "Pri" ak "Kantite lajan". Se poutèt sa, si nan ka ou a se tab la deplase, Lè sa a, ou bezwen presize nimewo yo kolòn ki koresponn lan. Si gen plis kolòn, Lè sa a, pa analoji ou bezwen ajoute liy li yo nan kòd la, si mwens - Lè sa a, retire sa yo siplemantè.

    

    Liy lan miltipliye kantite machandiz pa pri li yo:

    .Cell (nextRow, 5) .Value = Producty.Range ("Volum"). Valè * Producty.Range ("Pri") Valè.

    Rezilta a, menm jan nou wè nan sentaks nan dosye a, yo pral parèt nan kolòn nan senkyèm nan Fèy travay la Excel.

    

    Ekspresyon sa a fè numerotasyon liy otomatik:

    
Si pwochen> 2> Lè sa a ,.
Range ("A2"). Chwazi
Selection.AutoFill Destination: = Range ("A2: A" & nextRow)
Range ("A2: A" & nextRow) .Chwazi
Fini si

    Tout valè "A2" vle di adrès premye selil kote nimewonnasyon an pral fèt, ak kowòdone yo "A " - adrès nan kolòn nan tout ak nimewote. Tcheke ki kote egzakteman nimewote a ap parèt nan tab ou epi chanje kowòdone sa yo nan kòd la, si sa nesesè.

    

    Liy lan netwaye ranje fòm antre done yo apre enfòmasyon ki soti nan li te transfere sou tab la:

    .Range ("Diapason"). ClearContents

    Li pa difisil pou devine sa"Diapason") vle di non an nan seri a ke nou te deja asiyen nan jaden yo antre done. Si ou te ba yo yon non diferan, Lè sa a, yo ta dwe liy sa a ap figire egzakteman sa.

    

    Yon lòt pati nan kòd la se inivèsèl ak nan tout ka yo pral prezante san chanjman.

    Apre ou finn anrejistre kòd macro nan fennèt editè a, klike sou ikòn nan sove nan fòm yon diskèt nan pati gòch fenèt la. Lè sa a, ou ka fèmen li pa klike sou bouton an estanda pou fèmen fenèt nan kwen anwo dwat.



28. Apre sa, nou retounen nan fèy la Excel. Koulye a, nou bezwen mete yon bouton ki pral aktive macro a kreye. Pou fè sa, ale nan tab la "Developer". Nan blòk anviwònman yo "Kontwole" sou riban an, klike sou bouton an Kole. Yon lis zouti ouvè. Nan gwoup zouti a "Kontwòl Fòm" chwazi yon sèl la trè premye ... Bouton.



29. Lè sa a, ak bouton an sourit gòch bourade, trase yon kurseur sou zòn nan kote nou vle mete bouton an lansman macro, ki pral transfere done ki sòti nan fòm nan sou tab la.



30. Apre se zòn lan maké, lage bouton an sourit. Lè sa a, fenèt la plasman macro pou objè a kòmanse otomatikman. Si yo itilize plizyè makro nan liv ou a, Lè sa a, chwazi non an nan nou te kreye anwo a nan lis la. Nou rele li "DataEntryForm". Men, nan ka sa a, macro a se youn, se konsa jis chwazi li epi klike sou bouton an "OK" nan fon fenèt la.



31. Apre sa, ou kapab chanje non bouton an jan ou vle, jis pa en non li ye kounye a.

    

    Nan ka nou an, pou egzanp, li ta lojik bay yon non li Ajoute. Chanje non ak klike sou nenpòt selil gratis nan fèy la.



32. Se konsa, fòm nou an se konplètman pare. Se pou nou tcheke ki jan li fonksyone. Mete valè ki nesesè yo nan jaden li yo epi klike sou bouton an Ajoute.



33. Kòm ou ka wè, valè yo ap deplase sou tab la, se liy lan otomatikman asiyen yon nimewo, se kantite lajan an kalkile, jaden yo fòm yo otorize.



34. Re-ranpli fòm nan, epi klike sou bouton an Ajoute.



35. Kòm ou ka wè, se dezyèm ranje a tou ajoute nan etalaj la tab. Sa vle di ke zouti a ap travay.

Li tou:
Ki jan yo kreye yon macro nan Excel
Ki jan yo kreye yon bouton nan Excel

Nan Excel, gen de fason yo itilize done ranpli fòm lan: bati-an ak itilizatè-defini. Sèvi ak bati-an opsyon a egzije pou efò minimòm soti nan itilizatè a. Ou ka toujou lanse li pa ajoute icon ki koresponn lan ba zouti a aksè rapid. Ou bezwen kreye yon fòm koutim tèt ou, men si ou byen vèrs nan kòd VBA, ou ka fè zouti sa a kòm fleksib ak apwopriye pou bezwen ou ke posib.