ფორმების შევსება ცხრილის მონაცემებით

პრობლემის ფორმულირება

ჩვენ გვაქვს მონაცემთა ბაზა (სია, ცხრილი – დაარქვით რაც გინდათ) ფურცელზე გადახდების შესახებ ინფორმაცია თარიღი:

სამუშაო: სწრაფად ამობეჭდეთ ფულადი ქვითარი (გადახდა, ინვოისი…) ამ სიიდან შერჩეული ნებისმიერი სასურველი ჩანაწერისთვის. წადი!

ნაბიჯი 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 რედაქტორის ფანჯარაში, რომელიც გამოჩნდება, დააკოპირეთ შემდეგი კოდი:

Private Sub Worksheet_Change (ByVal Target As Range) Dim r როგორც Long Dim str როგორც სტრიქონი თუ Target.Count > 1 შემდეგ გადით ქვე თუ 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  

ეს მაკრო ხელს უშლის მომხმარებელს პირველ სვეტში ერთზე მეტი "x"-ის შეყვანაში.

აბა, სულ ესაა! ისიამოვნეთ!

• VLOOKUP ფუნქციის გამოყენება მნიშვნელობების ჩანაცვლებისთვის
• VLOOKUP ფუნქციის გაუმჯობესებული ვერსია
• თანხა სიტყვებით (Propis ფუნქცია) PLEX დანამატიდან