Სარჩევი
ერთ-ერთი ყველაზე მნიშვნელოვანი და ფართოდ გამოყენებული ამოცანა, რომელსაც ვხვდებით VBA Excel-ში მუშაობისას, არის საჭირო მონაცემების ამობეჭდვა. დღეს ამ სტატიაში მე გაჩვენებთ, თუ როგორ შეგიძლიათ ამობეჭდოთ მონაცემები Excel-ში VBA შესაბამისი მაგალითებით და ილუსტრაციებით.
ჩამოტვირთეთ პრაქტიკის სამუშაო წიგნი
ჩამოტვირთეთ ეს პრაქტიკული წიგნაკი, რომ ივარჯიშოთ ამ სტატიის კითხვის დროს.
VBA Print.xlsm
ეტაპები მონაცემთა ამობეჭდვისთვის Excel VBA-ით
აქ მე მაქვს მონაცემთა ნაკრები სახელები, ტიპები და ფასები წიგნის მაღაზიის ზოგიერთი წიგნის სახელწოდებით Martin Bookstore.
დღეს ჩვენ გავიგებთ, თუ როგორ შეგვიძლია ამ მონაცემთა ნაკრების დაბეჭდვა VBA -ით.
ნაბიჯი 1: ამოსაბეჭდად VBA რედაქტორის გახსნა Excel-ში
დააჭირეთ ALT+F11 თქვენს კლავიატურაზე. ის გახსნის Visual Basic რედაქტორს.
დაწვრილებით: როგორ დავაყენოთ ბეჭდვის ზონა Excel-ში ( 5 მეთოდი)
ნაბიჯი 2: ახალი მოდულის ჩასმა Excel-ში დასაბეჭდად
გადადით Insert პარამეტრზე VBA ხელსაწყოთა პანელი. დააწკაპუნეთ ჩასმა > მოდული ახალი მოდულის გასახსნელად.
დაკავშირებული კონტენტი: როგორ დავბეჭდოთ ბადეები Excel-ში (2 გზა)
ნაბიჯი 3: VBA კოდის შეყვანა Excel-ში დასაბეჭდად
გაიხსნება ახალი მოდული სახელად Module1 . შეიყვანეთ იქ შემდეგი VBA კოდი.
⧭ VBA კოდი:
9388
⧭ შენიშვნები :
- აი, მინდა დავბეჭდოჩემი სამუშაო წიგნის აქტიური სამუშაო ფურცელი. ნებისმიერი სხვა სამუშაო ფურცლის დასაბეჭდად ჩაწერეთ სამუშაო ფურცლის სახელი პირდაპირ კოდში.
მაგალითად, სამუშაო ფურცლის ამოსაბეჭდად, სახელწოდებით Sheet1 , გამოიყენეთ:
ActiveWorkbook.Worksheets(“Sheet1”).PrintOut ასლები:=1
- ასევე შეგიძლიათ დაბეჭდოთ სამუშაო წიგნიდან, რომელიც არ არის აქტიური. მაგალითად, Sheet1 ამოსაბეჭდად სამუშაო წიგნიდან, სახელწოდებით Workbook1 , გამოიყენეთ:
Workbook("Workbook1"). Worksheets("Sheet1" ”).PrintOut copies:=1
- აქ ჩვენ ვბეჭდავთ სამუშაო ფურცლის მხოლოდ ერთ ეგზემპლარს. თუ გსურთ დაბეჭდოთ ერთზე მეტი ეგზემპლარი, შეცვალეთ copies თვისება შესაბამისად.
- თუ გსურთ დაბეჭდოთ რამდენიმე სამუშაო ფურცელი და დააკავშიროთ ისინი ბეჭდვისას, ასევე არსებობს თქვენთვის ვარიანტი. PrintOut ფუნქციას VBA აქვს თვისება სახელწოდებით Collate . დააყენეთ True .
ActiveWorkbook.ActiveSheet.PrintOut copies:=10, Collate:=True
დაკავშირებული კონტენტი: Excel VBA: როგორ დავაყენოთ ბეჭდვის არე დინამიურად (7 გზა)
მსგავსი წაკითხვები:
- Excel-ის ღილაკი კონკრეტული ფურცლების დასაბეჭდად (მარტივი ნაბიჯებით)
- როგორ დავბეჭდოთ ჰორიზონტალურად Excel-ში (4 მეთოდი)
- დაბეჭდოთ მრავალი Excel ფურცლები ერთ PDF ფაილზე VBA (6 კრიტერიუმი)
- სათაურების ბეჭდვა Excel-ში გამორთულია, როგორ ჩართოთ იგი?
- როგორ დავბეჭდოთ Excel ფურცელი A4 ზომით (4 გზა)
ნაბიჯი4: VBA კოდის გაშვება Excel-ში დასაბეჭდად
VBA კოდის სწორად შეყვანის შემდეგ, გაუშვით Macro დაწკაპუნებით Run ვარიანტი VBA ინსტრუმენტთა ზოლში.
დაკავშირებული კონტენტი: Excel VBA: ბეჭდვის არეალის დაყენება მრავალი დიაპაზონისთვის ( 5 მაგალითი)
ნაბიჯი 5: საბოლოო შედეგი: დაბეჭდეთ VBA-ით
თუ წარმატებით შეძლებთ კოდის ჩაწერას და გაშვებას, ნახავთ სამუშაო ფურცელი დაიბეჭდა თქვენს პრინტერზე, და პატარა ფანჯარა გამოჩნდა. 5 მარტივი მეთოდი)
რა უნდა გვახსოვდეს
აქ ჩვენ გამოვიყენეთ PrintOut ფუნქცია VBA . არის კიდევ ერთი ფუნქცია VBA -ში, სახელწოდებით PrintPreview , რომელიც აჩვენებს მონაცემების წინასწარ გადახედვას დაბეჭდვამდე.
PrintPreview ფუნქციის სინტაქსი არის ისევე როგორც PrintOut ფუნქცია, უბრალოდ გამოიყენეთ PrintPrview PrintOut -ის ნაცვლად.
ActiveWorkbook.ActiveSheet.PrintPreview
ეს აჩვენებს თქვენი სამუშაო ფურცლის წინასწარ გადახედვას დაბეჭდვამდე.
დასკვნა
ასე რომ, ეს არის მეთოდი, რომლითაც შეგიძლიათ ამობეჭდოთ ნებისმიერი მონაცემი Excel-ის სამუშაო ფურცლიდან VBA -ით. გაქვთ რაიმე შეკითხვები? თავისუფლად გვკითხეთ. და არ დაგავიწყდეთ ეწვიოთ ჩვენს საიტს ExcelWIKI მეტი პოსტებისა და განახლებისთვის.
