KREYE FòM NAN EXCEL

Pou fasilite antre done nan yon tab nan Excel, ou ka itilize fòm espesyal ki pral ede pi vit pwosesis la nan ranpli seri a tab ak enfòmasyon. Nan Excel gen yon zouti bati-an ki pèmèt 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 pa aplike yon macro pou sa. Se pou nou gade nan itilize yo divès kalite pou zouti sa yo ranpli itil nan Excel.

Aplike zouti ranpli

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

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

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

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

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 "File"epi klike sou atik la "Opsyon".

Nan fenèt la louvri fenèt paramèt nou deplase nan seksyon an "Bwat zouti aksè rapid". Pifò nan fenèt la se okipe pa yon zòn anviwònman vaste. Nan pati gòch li yo se zouti yo ki ka ajoute nan panèl la aksè rapid, ak nan dwa la - yo menm ki prezan.
Nan jaden an "Chwazi ekip nan men" mete valè an "Ekip yo pa sou kasèt". Next, nan lis la nan kòmandman ki sitiye nan lòd alfabè, nou jwenn epi chwazi pozisyon an "Fòm ...". Lè sa a, klike sou bouton an "Ajoute".

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

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

Koulye a, yo nan lòd pou zouti a konprann ki sa egzakteman li bezwen ranpli, ou ta dwe fè aranjman pou header nan tab ak ekri nenpòt ki valè nan li. Se pou etablisman an tablo nou gen ap konpoze de kat kolòn, ki gen non "Non pwodwi", "Kantite", "Pri" ak "Kantite lajan". Mete non sa yo nan yon ranje orizontal abitrè nan fèy la.

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

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

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 nan kolòn yo nan etalaj tab nou yo. Nan ka sa a, se premye jaden an deja plen ak yon valè, depi nou antre nan li manyèlman sou fèy la.

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

Apre sa, jan nou wè, valè yo te antre nan te otomatikman transfere nan premye ranje nan tablo a, ak fòm nan te ale nan blòk la pwochen nan jaden yo, ki koresponn ak dezyèm ranje a nan etalaj la tab.

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

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

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

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

Si sa nesesè, ou ka ajiste nenpòt ki valè nan tableau tableau chanje li nan fòm lan. Nan lòd pou chanjman sa yo parèt sou fèy la, apre yo fin fè yo nan blòk la zouti ki apwopriye, klike sou bouton an "Ajoute".

Kòm ou ka wè, chanjman an imedyatman ki te fèt nan tablespace la.

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

Yon bwat dyalòg avètisman parèt, ki endike ke liy lan pral efase. Si ou gen konfyans nan aksyon ou, Lè sa a, klike sou bouton an "OK".

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

Apre sa, yo nan lòd yo fè etalaj la tab pi vizyèl, ou ka fòma li.

Metòd 2: Kreye yon fòm koutim

Anplis de sa, lè l sèvi avèk macro a ak yon kantite lòt zouti, li se posib yo kreye pwòp ou koutim fòm yo ranpli nan yon espas de tablo. Li pral kreye dirèkteman sou fèy la, ak reprezante ranje li yo. Avèk zouti sa a, itilizatè a tèt li yo pral kapab reyalize karakteristik yo ke li konsidere kòm nesesè. An tèm de fonksyonalite, li pral pratikman pa dwe enferyè a bati-an analogique nan Excel, ak nan kèk fason, petèt, depase li. Dezavantaj a sèlman se ke pou chak etalaj tab, w ap gen yo kreye yon fòm separe, epi yo pa sèvi ak modèl la menm jan se posib lè w ap itilize vèsyon an estanda.

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 yo: "Nimewo P / p", "Non pwodwi", "Kantite", "Pri", "Kantite lajan".

Next ou bezwen fè yon sa yo rele "entelijan" tab soti nan etalaj tab nou an, ak kapasite nan otomatikman ajoute ranje lè ranpli nan chenn vwazen oswa selil ak done yo. Pou fè sa, chwazi header a, epi, yo te nan tab la "Kay"peze bouton an "Fòma kòm tab" nan blòk zouti yo "Styles". Apre sa se yon lis de estil ki disponib louvri. Chwa nan youn nan yo pa pral afekte fonctionnalités a nan okenn fason, se konsa nou tou senpleman chwazi opsyon an ke nou konsidere pi apwopriye.

Lè sa a, yon ti tab fòma fenèt ouvè. Li endike ranje a ke nou te deja idantifye, se sa ki, ranje a nan bouchon an. Kòm yon règ, se jaden sa a plen nan kòrèkteman. Men, nou ta dwe tcheke ti bwat ki akote "Table ak tit". Apre sa, klike sou bouton an "OK".

Se konsa, se ranje nou an fòma kòm yon tab entelijan, menm pwouve pa yon chanjman nan ekspozisyon vizyèl. Kòm ou ka wè, pami lòt bagay, ikon filt parèt tou pre chak tit tit kolòn. Yo ta dwe enfim. Pou fè sa, chwazi nenpòt selil nan "entelijan" tab la epi ale nan tab la "Done". Gen sou kasèt la nan blòk la nan zouti "Triye ak filtre" klike sou icon a "Filtre".
Gen yon lòt opsyon pou enfim filtre a. Ou pa menm bezwen chanje nan yon lòt tab, pandan y ap rete nan tab la "Kay". Apre chwazi selil la nan tablespace a sou riban a nan blòk anviwònman yo Korije klike sou icon a "Triye ak filtre". Nan lis la ki parèt, chwazi pozisyon an "Filtre".

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

Lè sa a, nou ta dwe kreye fòm nan antre done tèt li. Li pral tou yon kalite tableau tableau ki gen de kolòn. Non ranje sa a objè ap koresponn ak non yo kolòn nan tablo prensipal la. Eksepsyon a se kolòn yo "Nimewo P / p" ak "Kantite lajan". Yo pral absan. Nimewote nan premye a ap fèt lè l sèvi avèk yon macro, ak kalkil la nan valè yo nan dezyèm lan yo pral fè pa aplike fòmil la nan miltipliye kantite pa pri.
Dezyèm kolòn objè antre done a rete vid pou kounye a. Dirèkteman, valè pou ranpli nan ranje yo nan seri a tablo prensipal yo pral antre nan li pita.

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 ("Lis machandiz") ou ka ranpli ak koulè.

Lè sa a, chwazi premye selil la vid nan valè objè a opinyon. Ale nan tab la "Done". Klike sou icon a "Verifikasyon Done"ki se mete sou kasèt la nan blòk la nan zouti "Travay ak done".

Fenèt validasyon D 'a kòmanse. Klike sou jaden an "Kalite Done"nan ki anviwònman an default se "Nenpòt valè".

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

Kòm ou ka wè, apre sa a, fenèt la valè tcheke opinyon chanje konfigirasyon li yon ti jan. Gen yon lòt jaden "Sous". Nou klike sou icon a a dwat a li ak bouton an sourit gòch.

Lè sa a, se fenèt la chèk valè antre minimize. Chwazi kisè a avèk bouton sourit gòch ki kenbe lis done yo ke yo mete sou fèy la nan yon zòn tab adisyonèl. "Lis machandiz". Apre sa, ankò klike sou icon a sou bò dwat jaden an kote adrès la nan ranje a chwazi parèt.

Retounen nan bwat chèk la pou valè opinyon. 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.

Koulye a, yon icon nan fòm lan nan yon triyang te parèt sou bò dwat la nan selil la make vid nan objè a antre done. Lè ou klike sou li, yon lis drop-desann ouvè, ki fòme ak non ki rale moute soti nan yon etalaj tab. "Lis machandiz". Done arbitraj nan selil la espesifye se kounye a enposib antre nan, men ou ka sèlman chwazi pozisyon an vle nan lis la bay yo. Chwazi yon atik nan lis la drop-desann.

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

Next, nou pral bezwen bay non twa selil yo nan fòm nan opinyon, kote nou pral antre nan done yo. Chwazi selil la premye kote non an deja mete nan ka nou an. "Pòmdetè". Next, ale nan chenn yo non jaden. Li sitiye sou bò gòch nan fenèt la Excel nan menm nivo ak ba a fòmil. Antre gen non abitrè. Sa a 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 fèmen nan travay yo rezoud pa eleman sa a. Se poutèt sa, premye selil la nan ki se non an nan pwodwi a rele yo "Non". Nou ekri non sa a nan jaden an ak peze kle a Antre sou klavye a.

Nan egzakteman menm jan an, bay selil la nan ki nou antre nan kantite pwodwi a, non an "Volim".

Ak pri selil la se "Pri".

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, ba l 'non an nan yon jaden espesyal. Se pou li non an "Diapason".

Apre aksyon ki sot pase a, nou dwe sove dokiman an pou ke non nou bay yo ka wè macro a nou te kreye nan lavni. Pou sove, ale nan tab la "File" epi klike sou atik la "Save As ...".

Nan louvri fenèt la sove nan jaden an "File Type" chwazi valè "Macro-Pèmèt Livè Excel (.xlsm)". Apre sa, klike sou bouton an "Sove".

Lè sa a, ou ta dwe aktive makro nan vèsyon ou nan Excel ak pèmèt tab la "Developer"si ou pa fè l 'ankò. Reyalite a se ke tou de nan fonksyon sa yo ki enfim pa default nan pwogram nan, epi yo dwe deklanchman yo dwe fèt pa fòs nan fenèt la anviwònman Excel.
Yon fwa ou te fè sa, ale nan tab la "Developer". Klike sou gwo ikòn lan "Visual Basic"ki sitiye sou kasèt la nan blòk zouti yo "Kòd".

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 fennèt la, chwazi non fèy la kote tab nou yo ye. Nan ka sa a li ye "Fèy 1".

Apre sa, ale nan anba a kite nan fenèt la rele "Pwopriyete". Isit la yo se anviwònman yo nan fèy la chwazi. Nan jaden an "(Non)" ta dwe ranplase non an sirilik ("Sheet1") sou non ki ekri nan Latin lan. Non an ka bay nenpòt moun ki pi bon pou ou, bagay la prensipal se ke li gen sèlman karaktè Latin oswa nimewo e pa gen okenn lòt siy oswa espas. Macro a ap travay avèk non sa a. Kite nan ka nou an non sa a pral "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 sèl pi bon. Men, li pa nesesè. Nan ka sa a, se itilizasyon nan espas, sirilik ak nenpòt ki lòt siy pèmèt. Kontrèman ak paramèt anvan an, ki espesifye non an nan fèy la pou pwogram nan, paramèt sa a asiyen non an nan fèy la ki vizib a itilizatè a nan ba a chemen kout.
Kòm ou ka wè, apre sa non an pral otomatikman chanje. Fèy 1 nan zòn nan "Pwojè", nan yon sèl la nou jis mete nan anviwònman yo.

Lè sa a, ale nan zòn santral la nan fenèt la. Sa a se kote nou bezwen ekri kòd la macro tèt li. Si jaden an editè Kòd blan nan zòn lan espesifye pa parèt, tankou nan ka nou an, Lè sa a, klike sou kle nan fonksyon. F7 epi li pral parèt.

Koulye a, pou egzanp patikilye nou an, nou bezwen ekri kòd sa a nan jaden an:
Sub-DataEntryForm () Dim nextRow As Long 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 rete entak 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, kite la analize sa ki kòd sa a konsiste de, sa ki ta dwe ranplase nan li, ak sa ki pa ta dwe chanje.
Se konsa, premye liy lan:
Sub-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 konfòm ak règ jeneral yo pou kreye non macro (pa gen espas, itilize sèlman lèt nan alfabè a Latin, elatriye). Chanje non an pa afekte anyen.
Kèlkeswa kote mo a jwenn nan kòd la "Producty" ou dwe ranplase li ak non ou deja plase nan fèy ou an nan jaden an "(Non)" zòn "Pwopriyete" editè macro. Natirèlman, sa a ta dwe fè sèlman si ou rele fèy la 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 liy sa a vle di dezyèm kolòn fèy la. Se nan kolòn sa a kolòn lan "Non pwodwi". Selon li n ap konte kantite ranje. Se poutèt sa, si nan ka ou menm kolòn nan gen yon lòd diferan nan kont lan, Lè sa a, ou bezwen antre nan nimewo ki koresponn lan. Siyifikasyon "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 pral ranje nimewote la ap parèt. "B2" - sa yo se kowòdone yo nan premye selil la, ki pral itilize pou pwodiksyon done ("Non pwodwi"). Si yo diferan, antre done ou olye de sa yo kowòdone.
Ale nan liy lan
Producty.Range ("Non"). Kopi
Nan paramèt li "Non" vle di non an nou mete nan jaden an "Non pwodwi" nan fòm nan opinyon.
Nan ranje
.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, chif yo "2", "3", "4", "5" vle di nimewo yo kolòn sou fèy 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 li se mwens, Lè sa a, retire sa yo siplemantè.
Liy lan miltipliye kantite machandiz pa pri yo:
.Cell (nextRow, 5) .Value = Producty.Range ("Volum"). Valè * Producty.Range ("Pri") Valè.
Rezilta a, jan nou wè nan sentaks nan dosye a, yo pral parèt nan kolòn nan senkyèm nan fèy la Excel.
Nan ekspresyon sa a, liy yo otomatikman konte:
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 y ap fè numerotasyon an, ak kowòdone yo "A " - Adrès kolòn antye ak nimero. Tcheke ki kote numerotasyon an ap parèt nan tablo ou epi chanje kowòdone yo nan kòd la, si sa nesesè.
Liy lan elimine seri fòm done antre a 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 pou antre done. Si ou te ba yo yon non diferan, Lè sa a, li ta dwe eleman nan liy sa a.
Rès kòd la inivèsèl e nan tout ka yo ap fèt san chanjman.
Apre ou te ekri kòd la macro nan fenèt la editè, ou ta dwe klike sou la sove kòm yon icon diskèt nan pati gòch nan 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.

Apre sa, tounen 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 bwat anviwònman yo "Kontwòl" sou tep la klike sou bouton an Kole. Yon lis zouti ouvè. Nan yon gwoup zouti Kontwòl Fòm chwazi trè premye a - "Bouton".

Lè sa a, ak bouton an sourit gòch ki te kenbe desann, nou woulo atravè 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.

Apre se zòn lan maké, lage bouton an sourit. Lè sa a, fenèt la pou asiyen yon macro objè a otomatikman kòmanse. Si yo itilize plizyè makro nan liv ou a, Lè sa a, chwazi nan lis la non an nan nou te kreye anwo a. 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.

Apre sa, ou kapab chanje non bouton an jan ou vle, tou senpleman pa chwazi non li ye kounye a.
Nan ka nou an, pou egzanp, li ta lojik bay li non an "Ajoute". Chanje non ak klike sou sourit la sou nenpòt selil gratis nan fèy la.

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

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

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

Kòm ou ka wè, se liy lan dezyèm tou ajoute nan etalaj la tab. Sa vle di zouti a travay.

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

Nan Excel, gen de fason yo itilize fòm lan ranpli done: bati-an ak itilizatè. Itilize vèsyon bati-an mande yon efò minimòm de itilizatè a. Li ka toujou ap kòmanse 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.