Ranpli fòm yo ak done ki nan tablo a

Fòmasyon pwoblèm nan

Nou gen yon baz done (lis, tab - rele li sa ou vle) ak enfòmasyon sou peman sou yon fèy Done:

Objektif Travay la: byen vit enprime yon resi lajan kach (peman, fakti ...) pou nenpòt ki antre vle chwazi nan lis sa a. Ale!

Etap 1. Kreye yon Fòm

Sou yon lòt fèy liv la (se pou nou rele fèy sa a Fòm) kreye yon fòm vid. Ou ka fè li tèt ou, ou ka itilize fòm pare yo, pran, pou egzanp, nan sit entènèt yo nan magazin an Chèf Kontab oswa sit entènèt Microsoft. Mwen te gen yon bagay tankou sa a:

Ranpli fòm yo ak done ki nan tablo a

Nan selil vid (Kont, Montan, Resevwa nan elatriye) pral jwenn done ki soti nan tab peman an nan yon lòt fèy - yon ti kras pita nou pral fè fas ak sa a.

Etap 2: Prepare tab peman an

Anvan w pran done nan tab la pou fòm nou an, tab la bezwen yon ti kras modènize. Savwa, mete yon kolòn vid sou bò gòch tab la. Nou pral itilize pou antre yon etikèt (se pou li lèt angle "x") anfas liy nou vle ajoute done nan fòm lan:

Etap 3. Lyen tab la ak fòm

Pou kominikasyon, nou itilize fonksyon an VPR(VCHACHUP) - ou ka li plis sou li isit la. Nan ka nou an, pou mete nimewo peman ki make "x" ki soti nan fèy Done a nan selil F9 sou fòm nan, ou dwe antre fòmil sa a nan selil F9:

=VCHACHUP(“x”, Done!A2:G16)

=VCHACHUP(“x”;Done!B2:G16;2;0)

Moun sa yo. tradui nan "konpreyansib", fonksyon an ta dwe jwenn nan seri a A2: G16 sou fèy Done a yon liy ki kòmanse ak karaktè "x" epi ban nou sa ki nan dezyèm kolòn nan liy sa a, sa vle di nimewo peman.

Tout lòt selil sou fòm lan ranpli menm jan an - se sèlman nimewo kolòn ki chanje nan fòmil la.

Pou montre kantite lajan an nan mo, mwen te itilize fonksyon an Pwòp soti nan PLEX ajoute sou.

Rezilta a ta dwe sa ki annapre yo:

Ranpli fòm yo ak done ki nan tablo a

Etap 4. Pou ke pa gen de "x" ...

Si itilizatè a antre "x" kont plizyè liy, fonksyon VLOOKUP pral sèlman pran premye valè li jwenn. Pou evite anbigwite sa yo, klike sou onglet fèy la Done ak Lè sa a, Tèks sous (Kòd sous). Nan fenèt editè Visual Basic ki parèt, kopye kòd sa a:

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str As String If Target.Count > 1 Lè sa a, Sòti Sub If Target.Column = 1 Lè sa a, str = Target.Value Application.EnableEvents = False r = Cells(Rows.Count , 2).End(xlUp).Row Range("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub

Makro sa a anpeche itilizatè a antre plis pase yon "x" nan premye kolòn nan.

Oke, se tout! Jwi!

  • Sèvi ak fonksyon VLOOKUP pou ranplase valè yo
  • Yon vèsyon amelyore fonksyon VLOOKUP
  • Kantite lajan an mo (fonksyon Propis) ki soti nan adisyon PLEX la

 

Kite yon Reply