Fylla út eyðublöð með gögnum úr töflunni

Mótun vandans

Við erum með gagnagrunn (listi, tafla – kalla það það sem þú vilt) með upplýsingum um greiðslur á blaði Gögn:

Verkefni: Prentaðu fljótt út staðgreiðslukvittun (greiðslu, reikning ...) fyrir hvaða færslu sem þú vilt velja af þessum lista. Farðu!

Skref 1. Búðu til eyðublað

Á öðru blaði bókarinnar (köllum þetta blað Form) búa til tómt form. Þú getur gert það sjálfur, þú getur notað tilbúin eyðublöð, tekin til dæmis af vefsíðum aðalbókara tímaritsins eða vefsíðu Microsoft. Ég fékk eitthvað svona:

Fylla út eyðublöð með gögnum úr töflunni

Í tómum hólfum (Reikningur, upphæð, móttekin frá o.s.frv.) mun fá gögn úr greiðslutöflunni frá öðru blaði – litlu síðar munum við takast á við þetta.

Skref 2: Útbúið greiðslutöflu

Áður en gögn eru tekin úr töflunni fyrir eyðublaðið okkar þarf að nútímafæra töfluna örlítið. Settu nefnilega inn tóman dálk vinstra megin við töfluna. Við munum nota til að slá inn merki (látum það vera enska bókstafinn „x“) á móti línunni sem við viljum bæta gögnum við eyðublaðið:

Skref 3. Tengja saman töfluna og eyðublaðið

Til samskipta notum við aðgerðina VPR(SKRÁNING) - þú getur lesið meira um það hér. Í okkar tilviki, til að setja inn númer greiðslu merkt „x“ úr gagnablaðinu í reit F9 á eyðublaðinu, verður þú að slá inn eftirfarandi formúlu í reit F9:

=FLOOKUP(“x”,Gögn!A2:G16)

=FLOOKUP(“x”;Gögn!B2:G16;2;0)

Þeir. þýtt í " skiljanlegt ", ætti aðgerðin að finna á bilinu A2: G16 á gagnablaðinu línu sem byrjar á stafnum "x" og gefa okkur innihald annars dálks þessarar línu, þ.e. greiðslunúmer.

Öll önnur hólf á eyðublaðinu eru fyllt út á sama hátt - aðeins dálknúmerið breytist í formúlunni.

Til að birta upphæðina í orðum notaði ég aðgerðina Eigin frá PLEX viðbótinni.

Niðurstaðan ætti að vera eftirfarandi:

Fylla út eyðublöð með gögnum úr töflunni

Skref 4. Svo að það séu engin tvö „x“ …

Ef notandinn slær inn „x“ á móti mörgum línum mun VLOOKUP aðgerðin aðeins taka fyrsta gildið sem hún finnur. Til að forðast slíkan tvíræðni skaltu hægrismella á blaðflipann Gögn og þá Upprunatexti (Frumkóði). Í Visual Basic ritstjóraglugganum sem birtist skaltu afrita eftirfarandi kóða:

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str As String If Target.Count > 1 Síðan Hætta undir Ef Target.Column = 1 Þá 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

Þessi fjölvi kemur í veg fyrir að notandinn geti slegið inn fleiri en eitt „x“ í fyrsta dálknum.

Jæja, það er allt! Njóttu!

  • Notkun VLOOKUP fallsins til að skipta út gildum
  • Endurbætt útgáfa af VLOOKUP aðgerðinni
  • Upphæð í orðum (Propis fall) frá PLEX viðbótinni

 

Skildu eftir skilaboð