Լրացնելով ձևաթղթերը աղյուսակից ստացված տվյալներով

Խնդրի ձևակերպում

Մենք ունենք տվյալների շտեմարան (ցուցակ, աղյուսակ. անվանեք այն, ինչպես ուզում եք)՝ թերթիկի վրա առկա վճարումների մասին տեղեկատվությամբ Ամսաթիվ:

Խնդիր. արագ տպեք կանխիկի անդորրագիրը (վճարում, հաշիվ ապրանքագիր…) այս ցանկից ընտրված ցանկացած ցանկի համար: Գնա՛

Քայլ 1. Ստեղծեք ձև

Գրքի մեկ այլ թերթիկի վրա (եկեք անվանենք այս թերթիկը Տեսակ) ստեղծել դատարկ ձև: Դուք կարող եք դա անել ինքներդ, կարող եք օգտագործել պատրաստի ձևաթղթեր՝ վերցված, օրինակ, Գլխավոր հաշվապահ ամսագրի կայքերից կամ Microsoft-ի կայքից։ Ես ստացել եմ նման բան.

Դատարկ բջիջներում (Հաշիվ, Գումար, Ստացվել է և այլն) վճարման աղյուսակից տվյալներ կստանան մեկ այլ թերթիկից. մի փոքր ուշ մենք կզբաղվենք սրա հետ:

Քայլ 2. Վճարման աղյուսակի պատրաստում

Նախքան մեր ձևի աղյուսակից տվյալներ վերցնելը, աղյուսակը պետք է մի փոքր արդիականացվի: Մասնավորապես, աղյուսակի ձախ կողմում տեղադրեք դատարկ սյունակ: Մենք կօգտագործենք պիտակ մուտքագրելու համար (թող դա լինի անգլերեն «x» տառը) այն տողի դիմաց, որտեղից մենք ցանկանում ենք տվյալներ ավելացնել ձևին.

Քայլ 3. Աղյուսակի և ձևի միացում

Հաղորդակցության համար մենք օգտագործում ենք գործառույթը VPR- ը(VLOOKUP) - Դուք կարող եք կարդալ դրա մասին ավելին այստեղ: Մեր դեպքում, Տվյալների թերթիկից «x» նշված վճարման համարը ձևաթղթի F9 բջիջում տեղադրելու համար F9 բջիջում պետք է մուտքագրեք հետևյալ բանաձևը.

=VLOOKUP(«x»,Տվյալներ!A2:G16)

=VLOOKUP(«x»;Տվյալներ!B2:G16;2;0)

Նրանք. «հասկանալի» թարգմանված ֆունկցիան պետք է Տվյալների թերթիկի A2: G16 միջակայքում գտնի «x» գրանշանով սկսվող տող և մեզ տա այս տողի երկրորդ սյունակի, այսինքն՝ վճարման համարի բովանդակությունը:

Ձևի մյուս բոլոր բջիջները լրացվում են նույն ձևով. բանաձևում փոխվում է միայն սյունակի համարը:

Գումարը բառերով ցուցադրելու համար ես օգտագործել եմ ֆունկցիան Սեփական PLEX հավելումից:

Արդյունքը պետք է լինի հետևյալը.

Քայլ 4. Որպեսզի երկու «x» չլինեն…

Եթե ​​օգտվողը մուտքագրում է «x» մի քանի տողերի դիմաց, VLOOKUP ֆունկցիան կվերցնի միայն իր գտած առաջին արժեքը: Նման երկիմաստությունից խուսափելու համար աջ սեղմեք թերթիկի ներդիրի վրա Ամսաթիվ եւ ապա Աղբյուրի տեքստը (Աղբյուրի կոդը). Visual Basic խմբագրիչի պատուհանում, որը հայտնվում է, պատճենեք հետևյալ կոդը.

Մասնավոր ենթամաս Worksheet_Change (ByVal Target As Range) Dim r այնքան երկար Dim str Որպես String If Target.Count > 1 Այնուհետեւ Ելք Sub If Target.Column = 1 Այնուհետեւ str = Target.Value Application.EnableEvents = False r = Cells (Rows.Count): , 2).End(xlUp).Տողերի միջակայք("A2:A" & r).ClearContents Target.Value =str Վերջ Եթե Application.EnableEvents = True End Sub  

Այս մակրոն թույլ չի տալիս օգտվողին մուտքագրել մեկից ավելի «x» առաջին սյունակում:

Դե, այսքանը: Վայելե՛ք։

• Օգտագործելով VLOOKUP ֆունկցիան՝ արժեքները փոխարինելու համար
• VLOOKUP ֆունկցիայի բարելավված տարբերակը
• Գումարը բառերով (Propis ֆունկցիա) PLEX հավելումից