Llenwi'r ffurflenni gyda data o'r tabl

Ffurfio'r broblem

Mae gennym gronfa ddata (rhestr, tabl - ffoniwch yr hyn yr ydych ei eisiau) gyda gwybodaeth am daliadau ar ddalen Dyddiad:

Gorchwyl: argraffwch yn gyflym dderbynneb arian parod (taliad, anfoneb ...) ar gyfer unrhyw gofnod dymunol a ddewiswyd o'r rhestr hon. Ewch!

Cam 1. Creu Ffurflen

Ar ddalen arall o'r llyfr (gadewch i ni alw y ddalen hon Ffurflen) creu ffurflen wag. Gallwch ei wneud eich hun, gallwch ddefnyddio ffurflenni parod, a gymerwyd, er enghraifft, o wefannau cylchgrawn y Prif Gyfrifydd neu wefan Microsoft. Cefais rywbeth fel hyn:

Llenwi'r ffurflenni gyda data o'r tabl

Mewn celloedd gwag (Cyfrif, Swm, Derbyniwyd oddi wrth ac ati) yn cael data o'r tabl taliadau o ddalen arall – ychydig yn ddiweddarach byddwn yn delio â hyn.

Cam 2: Paratoi'r tabl talu

Cyn cymryd data o'r tabl ar gyfer ein ffurflen, mae angen moderneiddio'r tabl ychydig. Sef, mewnosodwch golofn wag i'r chwith o'r tabl. Byddwn yn defnyddio i roi label (gadewch y llythyren Saesneg “x”) gyferbyn â’r llinell yr ydym am ychwanegu data ohoni at y ffurflen:

Cam 3. Cysylltu'r tabl a'r ffurflen

Ar gyfer cyfathrebu, rydym yn defnyddio'r swyddogaeth VPR(VLOOKUP) – gallwch ddarllen mwy amdano yma. Yn ein hachos ni, er mwyn mewnosod rhif y taliad sydd wedi'i farcio “x” o'r Daflen Ddata yng nghell F9 ar y ffurflen, rhaid i chi nodi'r fformiwla ganlynol yng nghell F9:

=VLOOKUP("x", Data!A2:G16)

=VLOOKUP("x";Data!B2:G16;2;0)

Y rhai. wedi'i chyfieithu'n “dealladwy”, dylai'r ffwythiant ddod o hyd yn yr ystod A2: G16 ar y Daflen Ddata linell sy'n dechrau gyda'r nod “x” a rhoi cynnwys ail golofn y llinell hon i ni, hy rhif taliad.

Mae pob cell arall ar y ffurflen yn cael ei llenwi yn yr un ffordd – dim ond rhif y golofn sy'n newid yn y fformiwla.

I ddangos y swm mewn geiriau, defnyddiais y swyddogaeth Hun o'r ychwanegiad PLEX.

Dylai'r canlyniad fod fel a ganlyn:

Llenwi'r ffurflenni gyda data o'r tabl

Cam 4. Fel nad oes dau “x” …

Os yw'r defnyddiwr yn nodi "x" yn erbyn llinellau lluosog, bydd y swyddogaeth VLOOKUP ond yn cymryd y gwerth cyntaf y mae'n ei ddarganfod. Er mwyn osgoi amwysedd o'r fath, de-gliciwch ar y tab taflen Dyddiad ac yna Testun ffynhonnell (Cod Ffynhonnell). Yn y ffenestr golygydd Visual Basic sy'n ymddangos, copïwch y cod canlynol:

Is-Daflen Waith Breifat_Newid(ByVal Targed Fel Ystod) Dim r Cyn Hir Dim str Fel Llinyn Os Targed.Cyfrif > 1 Yna Ymadael Is Os Target.Column = 1 Yna str = Targed.Gwerth Cymhwysiad.EnableEvents = Gau r = Celloedd(Rhesi.Cyfrif , 2).Diwedd(xlUp).Ystod Rhes("A2:A" & r).ClearContents Target.Value = str Diwedd Os Application.EnableEvents = Gwir Diwedd Is

Mae'r macro hwn yn atal y defnyddiwr rhag mynd i mewn i fwy nag un “x” yn y golofn gyntaf.

Wel, dyna i gyd! Mwynhewch!

  • Defnyddio'r ffwythiant VLOOKUP i amnewid gwerthoedd
  • Fersiwn well o'r swyddogaeth VLOOKUP
  • Swm mewn geiriau (swyddogaeth Propis) o'r ategyn PLEX

 

Gadael ymateb