Excel- ში ცხრილში მონაცემების შეტანის მიზნით, შეგიძლიათ გამოიყენოთ სპეციალური ფორმები, რომლებიც ხელს შეუწყობს ცხრილის დიაპაზონის შევსების პროცესის დაჩქარებას. Excel- ს აქვს ჩაშენებული ინსტრუმენტი, რომლის საშუალებითაც შეგიძლიათ შეავსოთ მსგავსი მეთოდი. მომხმარებელს ასევე შეუძლია შექმნას ფორმა საკუთარი ვერსია, რომელიც მაქსიმალურად მოერგება მის საჭიროებებს, ამისათვის მაკრო იყენებს. მოდით გადახედოთ ამ სასარგებლო შევსების ინსტრუმენტების სხვადასხვა გამოყენებას Excel- ში.
შევსების ხელსაწყოების გამოყენებით
შევსების ფორმა არის ობიექტი, რომელზეც ველები შეესაბამება სავსე ცხრილის სვეტების სვეტებს. თქვენ უნდა შეიყვანოთ მონაცემები ამ ველებში და მათ დაუყოვნებლივ დაემატება ცხრილის დიაპაზონში ახალი ხაზი. ფორმა შეიძლება იმოქმედოს როგორც ცალკე ჩაშენებული Excel ინსტრუმენტი, ან განთავსდეს პირდაპირ ფურცელზე მისი დიაპაზონის სახით, თუ ის შექმნა მომხმარებლის მიერ.
ახლა მოდით შევხედოთ როგორ გამოვიყენოთ ამ ორი ტიპის იარაღები.
მეთოდი 1: ჩაშენებული ობიექტი Excel მონაცემთა შეყვანისთვის
პირველ რიგში, მოდით ვისწავლოთ თუ როგორ გამოიყენოთ ჩაშენებული ფორმა Excel- ის მონაცემების შესასვლელად.
- უნდა აღინიშნოს, რომ ნაგულისხმევი ხატი, რომელიც იწყებს მას, იმალება და საჭიროა მისი გააქტიურება. ამისათვის გადადით ჩანართზე ფაილიდა შემდეგ დააჭირეთ ნივთს "პარამეტრები".
- გახსნილი Excel პარამეტრების ფანჯარაში გადადით განყოფილებაში სწრაფი წვდომის პანელი. ფანჯრის უმეტესობა დაცულია პარამეტრების ფართო არეალით. მარცხენა მხარეს არის ინსტრუმენტები, რომლებიც შეიძლება დაემატოს სწრაფი წვდომის პანელს, ხოლო მარჯვნივ - უკვე იმყოფება.
მინდორში "გუნდების არჩევა" მითითებული მნიშვნელობა "გუნდები არ არიან ფირზე". შემდეგი, ანბანური თანმიმდევრობით ბრძანებების სიიდან, ჩვენ ვიპოვით და ვირჩევთ პოზიციას "ფორმა ...". შემდეგ დააჭირეთ ღილაკს დამატება.
- ამის შემდეგ, ჩვენთვის საჭირო ინსტრუმენტი ნაჩვენები იქნება ფანჯრის მარჯვენა მხარეს. დააჭირეთ ღილაკს "კარგი".
- ახლა ეს ინსტრუმენტი მდებარეობს Excel- ის ფანჯარაში, სწრაფი წვდომის პანელზე, და მისი გამოყენება შეგვიძლია. ეს წარმოდგენილი იქნება Excel- ის ამ მაგალითით ნებისმიერი სამუშაო წიგნის გახსნისას.
- ახლა იმისათვის, რომ ინსტრუმენტი გაიგოს, რაში არის ზუსტად მისი შევსება, უნდა შეავსოთ ცხრილის სათაური და ჩაწეროთ მასში არსებული ნებისმიერი მნიშვნელობა. მოდით, ჩვენთან მაგიდის მასივი შედგება ოთხი სვეტისგან, რომელსაც აქვს სახელები "პროდუქტის სახელი", "რაოდენობა", "ფასი" და "თანხა". შეიყვანეთ სახელის მონაცემები ფურცლის თვითნებური ჰორიზონტალური დიაპაზონში.
- ასევე, იმისთვის, რომ პროგრამამ გაიგოს რომელ დიაპაზონში უნდა დასაქმდეს, უნდა შეიყვანოთ ნებისმიერი მნიშვნელობა ცხრილის მასივის პირველ რიგში.
- ამის შემდეგ, შეარჩიეთ მაგიდის ნებისმიერი უჯრედი ცარიელი და დააჭირეთ ღილაკს სწრაფი წვდომის პანელში "ფორმა ..."რაც ადრე გავააქტიურეთ.
- ასე რომ, იხსნება მითითებული ხელსაწყოს ფანჯარა. როგორც ხედავთ, ამ ობიექტს აქვს ველები, რომლებიც შეესაბამება ჩვენი ცხრილის მასივის სვეტების სახელებს. უფრო მეტიც, პირველი ველი უკვე ივსება მნიშვნელობით, რადგან მას ხელით შევიტანეთ ფურცელზე.
- შეიყვანეთ ის მნიშვნელობები, რომლებიც ჩვენ საჭიროდ ჩავთვალეთ დანარჩენ ველებში, შემდეგ კი დააჭირეთ ღილაკს დამატება.
- ამის შემდეგ, როგორც ხედავთ, შეყვანილი ღირებულებები ავტომატურად გადავიდა ცხრილის პირველ მწკრივზე, ხოლო ფორმაში მოხდა გადასვლა ველების შემდეგ ბლოკზე, რაც შეესაბამება ცხრილის მასივის მეორე რიგის.
- შეავსეთ ხელსაწყოს ფანჯარა იმ მნიშვნელობებით, რომლებიც გვინდა ვიხილოთ ცხრილის ფართობის მეორე რიგის მეორე რიგში და კვლავ დააჭირეთ ღილაკს დამატება.
- როგორც ხედავთ, დაემატა მეორე სტრიქონის მნიშვნელობებიც, და ჩვენ თვითონაც არ გვჭირდებოდა კურსორის გადაკეთება ცხრილში.
- ამრიგად, ჩვენ ვავსებთ ცხრილის მასივს ყველა იმ მნიშვნელობით, რომლის შეყვანა გვინდა.
- გარდა ამისა, თუ სასურველია, შეგიძლიათ ღილაკების გამოყენებით ნავიგაცია ადრე შეტანილი მნიშვნელობებით "უკან" და "შემდეგი" ან ვერტიკალური გადახვევის ბარი.
- საჭიროების შემთხვევაში, შეგიძლიათ შეცვალოთ ცხრილის მასივში ნებისმიერი მნიშვნელობა შეცვალოთ იგი ფორმაში. ფურცელზე ნაჩვენები ცვლილებების შესასრულებლად, ხელსაწყოს შესაბამის ბლოკში მათი გაკეთების შემდეგ, დააჭირეთ ღილაკს დამატება.
- როგორც ხედავთ, ცვლილება მაშინვე მოხდა ცხრილის არეალში.
- თუ ხაზის წაშლა გვჭირდება, მაშინ სანავიგაციო ღილაკების ან გადახვევის ზოლის საშუალებით მივდივართ შესაბამის ველში, ფორმაში. ამის შემდეგ დააჭირეთ ღილაკს წაშლა ხელსაწყოს ფანჯარაში.
- იხსნება გამაფრთხილებელი დიალოგი და გაცნობებთ, რომ წაიშლება ხაზი. თუ დარწმუნებული ხართ თქვენს ქმედებებში, დააჭირეთ ღილაკს "კარგი".
- როგორც ხედავთ, რიგი ამოიღეს ცხრილიდან. შევსების და რედაქტირების დასრულების შემდეგ, შეგიძლიათ ღილაკს დააჭიროთ ხელსაწყოს ფანჯარას დახურვა.
- ამის შემდეგ, მაგიდის მასივს უფრო ვიზუალური ვიზუალურად მისაცემად, ფორმატის ფორმირება შეუძლია.
მეთოდი 2: შექმენით საბაჟო ფორმა
გარდა ამისა, მაკრო და რიგი სხვა ხელსაწყოების დახმარებით, შესაძლებელია შექმნათ თქვენი საკუთარი ფორმა, რათა შეავსოთ ცხრილის ფართობი. იგი შეიქმნება პირდაპირ ფურცელზე და წარმოადგენს მის დიაპაზონს. ამ ხელსაწყოს გამოყენებით, მომხმარებელს შეეძლება გააცნობიეროს ის შესაძლებლობები, რომლებიც თვლის საჭიროდ. ფუნქციონალური თვალსაზრისით, იგი არავითარ შემთხვევაში არ იქნება inferior ვიდრე ჩაშენებული Excel ანალოგისგან, და გარკვეული თვალსაზრისით იგი შეიძლება მასზე უპირატესობა იყოს. ერთადერთი ნაკლი ის არის, რომ თითოეული ცხრილის მასივისთვის თქვენ უნდა შეადგინოთ ცალკე ფორმა და არ გამოიყენოთ იგივე შაბლონი, როგორც ეს შესაძლებელია სტანდარტული ვერსიის გამოყენებისას.
- როგორც წინა მეთოდით, პირველ რიგში, თქვენ უნდა გააკეთოთ მომავალი ცხრილის თავსაბურავი ფურცელზე. ის შედგება ხუთი უჯრედიდან, სახელებით: "არა", "პროდუქტის სახელი", "რაოდენობა", "ფასი", "თანხა".
- შემდეგი, ჩვენი მაგიდის მასივიდან უნდა შევიქმნათ ეგრეთ წოდებული „ჭკვიანი“ მაგიდა, რომლის საშუალებითაც შესაძლებელია მონაცემთა ხაზების ავტომატურად დამატება, მიმდებარე რიგების ან უჯრედების მონაცემების შევსებისას. ამისათვის შეარჩიეთ თავსართი და, რომელზეც ხართ "მთავარი"დააჭირეთ ღილაკს "ფორმატი, როგორც ცხრილი" ინსტრუმენტთა ყუთში სტილები. ეს ხსნის ხელმისაწვდომი სტილის პარამეტრების ჩამონათვალს. რომელიმე მათგანის არჩევანი რაიმე ფორმით არ იმოქმედებს ფუნქციონალობაზე, ასე რომ, ჩვენ უბრალოდ ვირჩევთ ვარიანტს, რომელსაც უფრო შესაფერისი ვთვლით.
- შემდეგ იხსნება მაგიდის ფორმატის მცირე ზომის ფანჯარა. ეს მიუთითებს იმ დიაპაზონში, რომელიც ჩვენ ადრე გამოვყავით, ანუ სათაურის დიაპაზონი. როგორც წესი, ამ სფეროში ყველაფერი ივსება სწორად. მაგრამ პარამეტრის გვერდით უნდა შევამოწმოთ ყუთი სასაქონლო მაგიდა. ამის შემდეგ დააჭირეთ ღილაკს "კარგი".
- ასე რომ, ჩვენი დიაპაზონი ფორმატირებულია როგორც „ჭკვიანი“ ცხრილი, რაც დადასტურებულია ვიზუალური ეკრანის ცვლილებით. როგორც ხედავთ, სხვა საკითხებთან ერთად, ფილტრის ხატები გამოჩნდა თითოეული სვეტის სათაური სახელის გვერდით. ისინი ინვალიდი უნდა იყვნენ. ამისათვის შეარჩიეთ "ჭკვიანი" მაგიდის ნებისმიერი უჯრედი და გადადით ჩანართზე "მონაცემები". იქ ლენტი ინსტრუმენტის ყუთში დალაგება და ფილტრი დააჭირეთ ხატულას "ფილტრი".
ფილტრის გამორთვის კიდევ ერთი ვარიანტია. ამ შემთხვევაში, არც კი საჭირო იქნება სხვა ჩანართზე გადასვლა, რაც რჩება ჩანართში "მთავარი". მაგიდის არეალის უჯრედების შერჩევის შემდეგ ლენტიზე პარამეტრების ბლოკში "რედაქტირება" დააჭირეთ ხატულას დალაგება და ფილტრი. სიაში, რომელიც გამოჩნდება, შეარჩიეთ პოზიცია "ფილტრი".
- როგორც ხედავთ, ამ მოქმედების შემდეგ, საჭიროებისამებრ, ფილტრაციის ხატები გაქრა ცხრილის თავსაბურავიდან.
- შემდეგ ჩვენ თავად უნდა შევქმნათ მონაცემთა შეყვანის ფორმა. ეს ასევე იქნება ერთგვარი მაგიდის მასივი, რომელიც შედგება ორი სვეტისგან. ამ ობიექტის რიგის სახელები შეესაბამება ძირითადი ცხრილის სვეტის სახელებს. გამონაკლისი არის სვეტები "არა" და "თანხა". ისინი არ იქნებიან. პირველი ირიცხება მაკროის გამოყენებით, ხოლო მეორე მნიშვნელობა გამოითვლება ფასის მიხედვით გამრავლების ფორმულის გამოყენებით.
მონაცემთა შეყვანის ობიექტის მეორე სვეტი ახლა ცარიელი არ არის. პირდაპირ მოგვიანებით მნიშვნელობები შეიტანება მასში, რათა შეავსოს მთავარი ცხრილის მწკრივები.
- ამის შემდეგ ჩვენ ვქმნით კიდევ ერთ პატარა მაგიდას. ის შედგება ერთი სვეტისგან და ის შეიცავს პროდუქტების ჩამონათვალს, რომელსაც მთავარი ცხრილის მეორე სვეტში გამოვა. სიწმინდისთვის, ამ ჩამონათვალის სახელწოდების უჯრედი ("პროდუქტების სია") შეიძლება შეავსო ფერი.
- შემდეგ შეარჩიეთ მნიშვნელობის შეყვანის ობიექტის პირველი ცარიელი უჯრედი. ჩანართზე გადასვლა "მონაცემები". დააჭირეთ ხატულას მონაცემთა გადამოწმებარომელიც მოთავსებულია ლენტზე ინსტრუმენტის ყუთში "მონაცემებთან მუშაობა".
- შეყვანის დამადასტურებელი ფანჯარა იწყება. დააჭირეთ ველს "მონაცემთა ტიპი"რომელიც ნაგულისხმევია "ნებისმიერი მნიშვნელობა".
- გახსნილი ვარიანტებიდან შეარჩიეთ პოზიცია ჩამოთვლა.
- როგორც ხედავთ, ამის შემდეგ, შეყვანის მნიშვნელობების შემოწმების ფანჯარამ ოდნავ შეცვალა მისი კონფიგურაცია. გამოჩნდა დამატებითი ველი "წყარო". ჩვენ დააჭირეთ ხატს მარჯვნივ მასზე, თაგვის მარცხენა ღილაკით.
- შემდეგ შეყვანის შემოწმების ფანჯარა მინიმუმამდეა დაყვანილი. თაგვის მარცხენა ღილაკზე დაჭერისას შეარჩიეთ მონაცემების სია, რომლებიც ფურცელზეა განთავსებული კურსორის დამატებით კურსორთან "პროდუქტების სია". ამის შემდეგ, კვლავ დააჭირეთ ველს მარჯვნივ ველს, რომელშიც ჩნდება არჩეული დიაპაზონის მისამართი.
- ეს ბრუნდება ველში, მნიშვნელობების შესასვლელად. როგორც ხედავთ, მასში არჩეული დიაპაზონის კოორდინატები უკვე ნაჩვენებია ველში "წყარო". დააჭირეთ ღილაკს "კარგი" ფანჯრის ბოლოში.
- ახლა, მონაცემთა შეტანის ობიექტის არჩეული ცარიელი უჯრის მარჯვნივ, სამკუთხედის ხატი გამოჩნდა. როდესაც თქვენ დააჭირეთ მას, ჩამოსაშლელი სია იხსნება, რომელშიც შედის სახელები, რომლებიც გამოდიან მაგიდის მასივიდან "პროდუქტების სია". ახლა მითითებულია უჯრედში თვითნებური მონაცემების შეყვანა შეუძლებელია, მაგრამ წარმოდგენილი სიიდან მხოლოდ სასურველი პოზიციის შერჩევა შეგიძლიათ. აირჩიეთ ელემენტი ჩამოსაშლელ სიაში.
- როგორც ხედავთ, შერჩეული პოზიცია დაუყოვნებლივ იქნა ნაჩვენები ველში "პროდუქტის სახელი".
- შემდეგი, ჩვენ დაგვჭირდება სახელების დანიშვნა შეყვანის ფორმის იმ სამ უჯრედზე, სადაც ჩვენ მონაცემებს შევა. შეარჩიეთ პირველი უჯრედი, სადაც სახელი უკვე მითითებულია ჩვენს შემთხვევაში "კარტოფილი". შემდეგი, წასვლა დიაპაზონის სახელის ველში. იგი მდებარეობს Excel- ის ფანჯრის მარცხენა მხარეს იმავე დონეზე, როგორც ფორმულის ზოლი. აქ შეიტანეთ თვითნებური სახელი. ეს შეიძლება იყოს ნებისმიერი სახელწოდება ლათინურად, რომელშიც არ არის სივრცე, მაგრამ უმჯობესია გამოიყენოთ ისეთი ელემენტები, რომლებიც ახლოსაა ამ ელემენტის მიერ ამოხსნილ დავალებებთან. აქედან გამომდინარე, პირველ უჯრედს, რომელსაც შეიცავს პროდუქტის სახელი, ეწოდება "სახელი". ჩვენ ვწერთ ამ სახელს ველში და დააჭირეთ ღილაკს შედი კლავიატურაზე
- ზუსტად იგივე გზით, ჩვენ უჯრედს ვასახელებთ, რომელშიც საქონლის რაოდენობას შევიტანთ "ტომი".
- და უჯრედი ფასით - "ფასი".
- ამის შემდეგ, ზუსტად იმავე გზით, ჩვენ ვაძლევთ სახელს ზემოთ მოცემულ სამი უჯრედის მთელ დიაპაზონს. პირველ რიგში შეარჩიეთ და შემდეგ დაასახელეთ ის სპეციალურ ველში. დაე სახელი იყოს "დიაპაზონი".
- ბოლო მოქმედების შემდეგ, ჩვენ უნდა შევინახოთ დოკუმენტი ისე, რომ ჩვენ მიერ გამოყოფილი სახელები აღვიქვათ იმ მაკროში, რომელიც მომავალში შევქმენით. გადარჩენისთვის, გადადით ჩანართზე ფაილი და დააჭირეთ ნივთს "შეინახე როგორც ...".
- შენახვის ფანჯარაში, რომელიც იხსნება, ველში ფაილის ტიპი აირჩიეთ მნიშვნელობა "Excel მაკრო მხარდაჭერილი წიგნი (.xlsm)". შემდეგი, დააჭირეთ ღილაკს დაზოგე.
- შემდეგ უნდა გაააქტიუროთ მაკროები თქვენი Excel- ის ვერსიაში და ჩართოთ ჩანართი "შემქმნელი"თუ ჯერ კიდევ არ გექნება. ფაქტია, რომ ორივე ეს ფუნქცია პროგრამულად ნაგულისხმევი გამორთულია და მათი გააქტიურება უნდა განხორციელდეს იძულებით, Excel- ის პარამეტრების ფანჯარაში.
- ამის გაკეთების შემდეგ, გადადით ჩანართზე "შემქმნელი". დააჭირეთ დიდ ხატს "Visual Basic"პანელის პანელზე მდებარეობს "კოდი".
- ბოლო მოქმედება იწვევს VBA მაკრო რედაქტორის დაწყებას. იმ მხარეში "პროექტი", რომელიც მდებარეობს ფანჯრის ზედა მარცხენა ნაწილში, შეარჩიეთ ფურცლის სახელი, სადაც მდებარეობს ჩვენი ცხრილი. ამ შემთხვევაში, ეს არის "ფურცელი 1".
- ამის შემდეგ, წასვლა ფანჯრის ქვედა მარცხენა მხარეზე, რომელსაც ეძახიან "თვისებები". აქ მოცემულია არჩეული ფურცლის პარამეტრები. მინდორში "(სახელი)" უნდა შეიცვალოს კირიული სახელი ("ფურცელი 1") ლათინურად დაწერილი სახელით. თქვენ შეგიძლიათ მიუთითოთ ნებისმიერი სახელი, რომელიც თქვენთვის უფრო მოსახერხებელია, მთავარია, რომ ის შეიცავს ექსკლუზიურად ლათინურ სიმბოლოებს ან რიცხვებს და სხვა ნიშნები ან სივრცეები არ არსებობს. სწორედ ამ სახელით მუშაობს მაკრო. ჩვენს შემთხვევაში მოდით ეს სახელი იყოს "პროდუქტი", თუმცა თქვენ შეგიძლიათ აირჩიოთ ნებისმიერი სხვა, რომელიც აკმაყოფილებს ზემოთ აღწერილი პირობებს.
მინდორში "სახელი" თქვენ ასევე შეგიძლიათ შეცვალოთ სახელი უფრო მოსახერხებელი. მაგრამ ეს არ არის აუცილებელი. ამ შემთხვევაში დასაშვებია სივრცეების, კირიული და ნებისმიერი სხვა სიმბოლოების გამოყენება. წინა პარამეტრისგან განსხვავებით, რომელიც ადგენს პროგრამის ფურცლის სახელს, ეს პარამეტრი ანიჭებს სახელს ფურცელზე, რომელიც მომხმარებლისთვის ჩანს, მალსახმობების ზოლში.
როგორც ხედავთ, ამის შემდეგ სახელი ასევე ავტომატურად შეიცვლება ფურცელი 1 მინდორში "პროექტი", მასში, ვინც ჩვენ უბრალოდ დავაყენეთ პარამეტრები.
- შემდეგ გადადით ფანჯრის ცენტრალურ უბანში. სწორედ აქ დაგვჭირდება დაწერა მაკრო კოდი. თუ მითითებულ უბანში თეთრი კოდის რედაქტორის ველი არ არის ნაჩვენები, როგორც ჩვენს შემთხვევაში, მაშინ დააჭირეთ ფუნქციის ღილაკს F7 და გამოჩნდება.
- ახლა ჩვენი კონკრეტული მაგალითისთვის შემდეგი კოდი უნდა დავწეროთ ველში:
ქვე DataEntryForm ()
გრძელი შემდეგი მწკრივი გრძელი
nextRow = Producty.Cells (Producty.Rows.Count, 2) .End (xlUp). ოფსეტური (1, 0).
პროდუქტიული
If .Range ("A2"). Value = "" And .Range ("B2"). Value = "" მაშინ
nextRow = nextRow - 1
დასრულდეს თუ
პროდუქტი.რანგი ("სახელი"). დააკოპირეთ
.Cells (nextRow, 2) .PaseSpecial Paste: = xlPasteValues
.Cells (nextRow, 3) .Value = Producty.Range ("Volum"). ღირებულება
.Cells (nextRow, 4) .Value = Producty.Range ("ფასი"). ღირებულება
.Cells (nextRow, 5) .Value = Producty.Range ("Volum"). ღირებულება * პროდუქტია.რანგი ("ფასი"). ღირებულება
.რანგი ("A2". ფორმულა = "= IF (ISBLANK (B2)," "" ", COUNTA ($ B $ 2: B2))"
თუ nextRow> 2 მაშინ
დიაპაზონი ("A2"). აირჩიეთ
Selection.AutoFill დანიშნულების: = დიაპაზონი ("A2: A" & nextRow)
დიაპაზონი ("A2: A" & nextRow) .შეარჩიეთ
დასრულდეს თუ
.რანგი ("დიაპაზონი")
დასრულდით
ბოლო ქვეთავიმაგრამ ეს კოდი არ არის უნივერსალური, ანუ ის უცვლელია შესაფერისი მხოლოდ ჩვენი საქმისთვის. თუ გსურთ ის თქვენს საჭიროებებზე ადაპტირება, მაშინ ის შესაბამისად უნდა შეიცვალოს. იმისათვის, რომ თქვენ თავად გააკეთოთ ის, მოდით გადახედოთ რას მოიცავს ეს კოდი, რა უნდა შეიცვალოს და რა არ უნდა შეიცვალოს.
ასე რომ, პირველი ხაზი:
ქვე DataEntryForm ()"DataEntryForm" თავად მაკრო სახელია. თქვენ შეგიძლიათ დატოვოთ ის, როგორც ეს არის, ან შეგიძლიათ შეცვალოთ იგი სხვა, რომელიც აკმაყოფილებს მაკრო სახელების შექმნის ზოგად წესს (არ არსებობს სივრცე, გამოიყენეთ მხოლოდ ლათინური ანბანის ასოები და ა.შ.). სახელის შეცვლა არაფერზე იმოქმედებს.
სადაც არ უნდა მოხდეს სიტყვა კოდიში "პროდუქტი" თქვენ უნდა შეცვალოთ იგი იმ სახელწოდებით, რომელიც ადრე მიუთითეთ თქვენს ფურცელზე ველში "(სახელი)" ტერიტორიები "თვისებები" მაკრო რედაქტორი. ბუნებრივია, ეს უნდა გაკეთდეს მხოლოდ იმ შემთხვევაში, თუ თქვენ დაასახელეთ ფურცელი სხვაგვარად.
ახლა განვიხილოთ ეს ხაზი:
nextRow = Producty.Cells (Producty.Rows.Count, 2) .End (xlUp). ოფსეტური (1, 0).ციფრი "2" ამ რიგში ნიშნავს ფურცლის მეორე სვეტს. ეს სვეტი არის სვეტი "პროდუქტის სახელი". მასზე დავთვლით რიგების რაოდენობას. ამიტომ, თუ თქვენს შემთხვევაში ანალოგიურ სვეტს აქვს სხვა რიგითი ანგარიშში, მაშინ უნდა შეიყვანოთ შესაბამისი ნომერი. ღირებულება "დასრულება (xlUp) .გამოყენება (1, 0). Row" ნებისმიერ შემთხვევაში, დატოვე უცვლელი.
შემდეგი, განიხილეთ ხაზი
If .Range ("A2"). Value = "" And .Range ("B2"). Value = "" მაშინ"A2" - ეს არის პირველი უჯრედის კოორდინატები, რომელშიც ხაზის ნუმერაცია იქნება ნაჩვენები. "B2" - ეს არის პირველი უჯრედის კოორდინატები, რომლითაც მონაცემები გამოვა ("პროდუქტის სახელი") თუ ისინი განსხვავდებიან, შეიტანეთ თქვენი მონაცემები ამ კოორდინატების ნაცვლად.
წადი ხაზთან
პროდუქტი.რანგი ("სახელი"). დააკოპირეთმას აქვს პარამეტრი "სახელი" ნიშნავს სახელი, რომელსაც ჩვენ მივუთითეთ ველი "პროდუქტის სახელი" შეყვანის ფორმაში.
ხაზებში
.Cells (nextRow, 2) .PasteSpecial Paste: = xlPasteValues
.Cells (nextRow, 3) .Value = Producty.Range ("Volum"). ღირებულება
.Cells (nextRow, 4) .Value = Producty.Range ("ფასი"). ღირებულება
.Cells (nextRow, 5) .Value = Producty.Range ("Volum"). ღირებულება * პროდუქტია.რანგი ("ფასი"). ღირებულებასახელები "ტომი" და "ფასი" ნიშნავს სახელებს, რომლებიც ჩვენ დავასახელეთ სფეროებში "რაოდენობა" და "ფასი" იგივე შეყვანის ფორმით.
იმავე სტრიქონებში, რომლებიც ზემოთ აღვნიშნეთ, რიცხვები "2", "3", "4", "5" ნიშნავს სვეტების რიცხვებს Excel სამუშაო ფურცელში "პროდუქტის სახელი", "რაოდენობა", "ფასი" და "თანხა". ამიტომ, თუ თქვენს შემთხვევაში ცხრილი გადართულია, მაშინ უნდა მიუთითოთ შესაბამისი სვეტის ნომრები. თუ უფრო მეტი სვეტია, მაშინ ანალოგიით თქვენ უნდა დაამატოთ მისი ხაზები კოდში, თუ ნაკლები - შემდეგ ამოიღეთ ზედმეტი.
ხაზი ამრავლებს საქონლის რაოდენობას მისი ფასით:
.Cells (nextRow, 5) .Value = Producty.Range ("Volum"). ღირებულება * პროდუქტია.რანგი ("ფასი"). ღირებულებაშედეგი, როგორც ჩანაწერის სინტაქსიდან ვხედავთ, ნაჩვენები იქნება Excel სამუშაო ფურცლის მეხუთე სვეტში.
ეს გამოთქმა ასრულებს ხაზის ავტომატურ ნუმერაციას:
თუ nextRow> 2 მაშინ
დიაპაზონი ("A2"). აირჩიეთ
Selection.AutoFill დანიშნულების: = დიაპაზონი ("A2: A" & nextRow)
დიაპაზონი ("A2: A" & nextRow) .შეარჩიეთ
დასრულდეს თუყველა მნიშვნელობა "A2" ნიშნავს პირველი უჯრედის მისამართს, სადაც ნუმერაცია მოხდება, და კოორდინატები. "ა ” - მთელი სვეტის მისამართი, ნუმერაციით. შეამოწმეთ, სად ზუსტად აჩვენებს ნუმერაციას თქვენს ცხრილში და შეცვალეთ ეს კოორდინატები კოდში, საჭიროების შემთხვევაში.
ხაზი ასუფთავებს მონაცემთა შეყვანის ფორმის დიაპაზონს მას შემდეგ, რაც მასში ინფორმაცია გადადის ცხრილში:
.რანგი ("დიაპაზონი")ძნელი მისახვედრი არ არის ("დიაპაზონი") ნიშნავს იმ დიაპაზონის სახელწოდებას, რომელიც ადრე ჩვენ მივანიჭეთ მონაცემთა შეყვანის ველებს. თუ მათ სხვა სახელი მიეცით, მაშინ ეს სტრიქონი ზუსტად უნდა ჩასვათ.
კოდის შემდგომი ნაწილი უნივერსალურია და ყველა შემთხვევაში შეიტანება ცვლილებების გარეშე.
მას შემდეგ, რაც რედაქტორის ფანჯარაში ჩაწერეთ მაკრო კოდი, დააჭირეთ შენახვის ხატს ფანჯრის მარცხენა ნაწილში დისკეტის სახით. ამის შემდეგ შეგიძლიათ დახუროთ სტანდარტული ღილაკის დაჭერით, მარჯვენა ზედა კუთხეში ფანჯრების დახურვისთვის.
- ამის შემდეგ, ჩვენ ვუბრუნდებით Excel ფურცელს. ახლა ჩვენ უნდა მოვათავსოთ ღილაკი, რომელიც გააქტიურებს შექმნილ მაკრო. ამისათვის გადადით ჩანართზე "შემქმნელი". პარამეტრების ბლოკში "კონტროლი" ლენტიზე, დააჭირეთ ღილაკს ჩასვით. იხსნება ინსტრუმენტების სია. ინსტრუმენტთა ჯგუფში "ფორმა კონტროლი" აირჩიე პირველი - ღილაკი.
- შემდეგ, მაუსის მარცხენა ღილაკზე დაჭერით, მიაპყროს კურსორი იმ ფართობზე, სადაც გვინდა მოვათავსოთ მაკრო გაშვების ღილაკი, რომელიც გადაიტანს მონაცემებს ფორმადან ცხრილში.
- არეალის გარშემოწერის შემდეგ გაათავისუფლეთ მაუსის ღილაკი. შემდეგ, ავტომატურად იწყება ობიექტის მაკრო დავალების ფანჯარა. თუ თქვენს წიგნში გამოყენებულია რამდენიმე მაკრო, მაშინ ჩამოთვლილთაგან აირჩიეთ ის, რაც ჩვენ შევქმენით ზემოთ. ჩვენ მას ვუწოდებთ "DataEntryForm". მაგრამ ამ შემთხვევაში, მაკრო არის ერთი, ასე რომ უბრალოდ შეარჩიეთ იგი და დააჭირეთ ღილაკს "კარგი" ფანჯრის ბოლოში.
- ამის შემდეგ, თქვენ შეგიძლიათ შეცვალოთ ღილაკი, როგორც გსურთ, მხოლოდ მისი ამჟამინდელი სახელის ხაზგასმით.
მაგალითად, ჩვენს შემთხვევაში ლოგიკური იქნებოდა, რომ მას სახელი მიეწოდებინა დამატება. შეცვალეთ სახელი და დააჭირეთ ფურცელზე ნებისმიერ უფასო უჯრედს.
- ასე რომ, ჩვენი ფორმა სრულიად მზადაა. მოდით შევამოწმოთ როგორ მუშაობს. შეიყვანეთ აუცილებელი მნიშვნელობები მის ველებში და დააჭირეთ ღილაკს დამატება.
- როგორც ხედავთ, მნიშვნელობები ცხრილში გადადის, ხაზს ავტომატურად ენიჭება რიცხვი, თანხა გამოითვლება, ფორმების ველები იწმინდება.
- ხელახლა შეავსეთ ფორმა და დააჭირეთ ღილაკს დამატება.
- როგორც ხედავთ, ცხრილის მასივს ემატება მეორე რიგიც. ეს ნიშნავს, რომ ინსტრუმენტი მუშაობს.
წაიკითხეთ აგრეთვე:
როგორ შევქმნათ მაკრო Excel- ში
როგორ შევქმნათ ღილაკი Excel- ში
Excel– ში მონაცემების შევსების ფორმის გამოყენების ორი გზა არსებობს: ჩაშენებული და მომხმარებლის მიერ განსაზღვრული. ჩაშენებული ვარიანტის გამოყენება მომხმარებლისგან მინიმუმ ძალისხმევას მოითხოვს. თქვენ ყოველთვის შეგიძლიათ გახსნათ ის, რომ დაამატოთ შესაბამისი ხატი სწრაფი წვდომის პანელზე. თქვენ თავად უნდა შექმნათ საბაჟო ფორმა, მაგრამ თუ კარგად გაეცანით VBA კოდს, შეგიძლიათ ეს ინსტრუმენტი გახადოთ მაქსიმალურად მოქნილი და შესაფერისი თქვენი საჭიროებისთვის.
