სურათის კრედიტი: mavoimages/iStock/Getty Images
Excel-ის "Roundup" ფუნქციის გამოყენების სწავლა მისი ჩაშენებული პროგრამირების ენიდან VBA ან Visual Basic აპლიკაციებისთვის, გეხმარებათ Excel-ის ნებისმიერი ფუნქციის გაშვებაში VBA-დან. ეს უნარი სასარგებლოა, რადგან Excel-ს აქვს მრავალი ფუნქცია, რომელიც VBA-ს არ გააჩნია და რომელთა გამოყენება შეიძლება დაგჭირდეთ VBA პროგრამიდან. გაითვალისწინეთ, რომ VBA ფუნქცია, რომელიც საშუალებას გაძლევთ შეეხოთ "Roundup" ფუნქციას, არ გაფრთხილებთ არასწორი სინტაქსის ან არგუმენტის შესახებ, როგორც ეს ხდება სტანდარტული სამუშაო ფურცლის ინტერფეისის გამოყენებისას.
მიზანი
Excel "Roundup" ფუნქცია ამრგვალებს რიცხვს ზემოთ, თქვენს მიერ მითითებულ რიცხვებამდე. მაგალითად, "Roundup (2.2, 0)"-ის გაშვება ეუბნება Excel-ს, რომ გსურთ დაამრგვალოთ რიცხვი 2.2 მომდევნო მთელ რიცხვამდე. მეორე არგუმენტში „0“ ეუბნება Excel-ს, რომ არ გინდათ რიცხვები ათობითი წერტილის შემდეგ, რაც უდრის იმის თქმას, რომ გსურთ მთელი რიცხვის პასუხი.
დღის ვიდეო
VBA მრგვალი ფუნქცია
VBA არ აქვს ჩაშენებული "Roundup" ფუნქცია. უახლოესი ფუნქცია მას აქვს არის "მრგვალი" ფუნქცია, რომელიც მრგვალდება ზევით ან ქვევით იმის მიხედვით, არის თუ არა 5-ზე მეტი ან ნაკლები რიცხვის ბოლო ციფრი. მაგალითად, VBA "Immediate" ფანჯარაში "Round (2.2, 0)" აკრეფა იწვევს 2-ს, ნაცვლად 3-ისა, რომელსაც Excel-ის "Roundup" ფუნქცია დამრგვალდება.
"ფორმულა" საკუთრება
მიუხედავად იმისა, რომ VBA-ს არ აქვს საკუთარი "Roundup" ფუნქცია, მას შეუძლია გამოიყენოს Excel-ის "Roundup" ფუნქცია. იმისათვის, რომ დაავალოთ VBA-ს ამის გაკეთება, დააყენეთ "Range" ვირტუალური ობიექტის "Formula" თვისება "Roundup" ფუნქციაზე. შემდეგი მაგალითი გაჩვენებთ, თუ როგორ უნდა გააკეთოთ ეს. გახსენით VBA განვითარების გარემო Excel-ის შიგნით ერთდროულად "Alt" და "F11" დაჭერით. დააწკაპუნეთ მაუსის "მყისიერ" ფანჯარაში, შემდეგ აკრიფეთ შემდეგი განცხადება: "Range ("A1"). ფორმულა = "=Roundup (2.2, 0)"." დაბრუნდით Excel-ში "Alt-F11" კლავიშის დაჭერით, რომელიც ახლა აღწერილია.. თქვენ დაინახავთ შედეგს "3" უჯრედში A1, რაც მიუთითებს თქვენს განცხადებაში წარმატებით გამოყენებული Excel-ის "Roundup" ფუნქცია.
ინტერაქტიული მაგალითი
თქვენ შეგიძლიათ შექმნათ ინტერაქტიული VBA პროგრამა, რომელიც იღებს მომხმარებლისგან არგუმენტებს "Roundup" ფუნქციისთვის და აჩვენებს ამ ფუნქციის შედეგს. VBA განვითარების გარემოს გახსნის შემდეგ, ჩასვით შემდეგი პროგრამა ფანჯარაში:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("შეიყვანეთ რიცხვი, რომლის დამრგვალებაც გსურთ")) a2 = CInt (InputBox("შეიყვანეთ ათწილადების რაოდენობა, რომლებზეც გსურთ დაამრგვალოთ ის რიცხვი, რომელიც ახლახან შეიყვანეთ.")) s = "=შემოყრა(" & a1 & "," & a2 & ")" დიაპაზონი ("A1"). ფორმულა = s დიაპაზონი ("A1") .გამოთვალეთ MsgBox (Range("A1").მნიშვნელობა) დასასრული ქვე
გაუშვით პროგრამა მის ერთ-ერთ განცხადებაზე დაწკაპუნებით, შემდეგ მენიუს "Run" ბრძანებაზე "Run". როდესაც Excel მოგთხოვთ ფუნქციის არგუმენტების შესახებ, ჩაწერეთ ისინი და დააჭირეთ "Enter". თქვენი პროგრამა აჩვენებს "Roundup" ფუნქციის შედეგს თქვენ მიერ შეყვანილი არგუმენტებისთვის.
