Excelda chop etish tugmasi uchun VBA kodi (5 ta misol)

Hugh West

16-10-2023 Makroslar va amp; Excel VBA
  • Buni Baham Ko'Ring
Hugh West

Agar biz Excel ish varag'imizda maxsus Chop etish tugmachasini o'rnata olsak, u varaqlarni chop etishda juda qulay va vaqtni tejaydi. VBA Makroslari dan foydalanib, biz buni osonlik bilan amalga oshirishimiz mumkin. Shunday qilib, ushbu maqola sizga Excelda chop etish tugmasi uchun VBA koddan foydalanish uchun 5 ta oddiy makrosni taqdim etadi.

Amaliy kitobni yuklab oling

Siz buni qilishingiz mumkin. Bu yerdan bepul Excel shablonini yuklab oling va o'zingiz mashq qiling.

VBA-kodni yaratish uchun Chop etish tugmasi.xlsm

VBA-dan foydalanish uchun 5 ta misol Excel-dagi Chop etish tugmasi uchun kod

Avval sotuvchining turli Hududlardagi sotuvlarini ifodalovchi ma'lumotlar to'plamimiz bilan tanishamiz.

1. Excelda Chop etish dialog oynasi uchun Chop etish tugmachasini yaratish uchun VBA kodidan foydalaning

Birinchi navbatda biz Chop etish tugmasi yaratamiz va keyin uning kodlarini yozamiz.

Qadamlar:

  • Quyidagicha -ni bosing: Dasturchi >> Insert >> Tugma qutisi.

Koʻp oʻtmay, siz kursorda ortiqcha belgisini (+) olasiz.

  • O'sha kursorni o'zingiz xohlagan tugma o'lchamiga ko'ra tugmachaga torting va birozdan keyin Makroni tayinlash nomli dialog oynasi ochiladi.

  • ism bering va Yangi tugmasini bosing.

VBA oynasi paydo bo'ladi.

  • Keyin yozing undagi quyidagi kodlar- 
6804
  • Endi orqaga qayting varaq .

Kodlar taqsimoti

  • Bu yerda , Men Sub protsedurasini yaratdim, DialogBox .
  • Keyin Dialogs (xlDialogPrint).Show -ni ochish uchun foydalandim. Chop etish dialog oynasi .

Bu tugma yaratildi.

  • Sichqonchaning o'ng tugmasi tugmasini va tugma nomini oʻzgartirish uchun Kontekst menyusi dan Matnni tahrirlash -ni tanlang.

  • Keyinroq, shunchaki nomini kiriting va sichqonchani tugmachadan tashqaridagi har qanday joyni bosing.

Keyin faqat Tugmasini bosing.

Keyin siz Chop etish muloqot oynasini olasiz. Xohlasangiz, uni hozir Chop etish mumkin.

Agar hozirda sizda Printer boʻlmasa, uni Saqlash mumkin. 1>PDF . keyingi foydalanish uchun yoki keyinroq Chop etish uchun.

  • Endi OK tugmasini bosing.

  • Ayni damda ism ni bering va Saqlash tugmasini bosing.

Mana, chop etilgan PDF .

Batafsil o'qing: Excelda chop etish sozlamalarini qanday sozlash mumkin (8 ta mos hiyla)

2. Faol varaq uchun Chop etish tugmachasini yaratish uchun VBA kodidan foydalaning

Bu yerda biz VBA dan chop etish va Faol <1 uchun foydalanamiz>Varaq .

Qadamlar:

  • ni yaratish uchun birinchi bo'limdan birinchi ikki qadamni bajaring>tugmasi va Makroni belgilash .
  • Makro nomini yozing va bosing Yangi .

Tez orada VBA oynasi ochiladi.

  • Keyin keyin quyidagi kodlarni uga- 
7810
  • Keyinroq orqaga
    • <-ga qayting. 14>

    Kodlarni taqsimlash

    • Bu yerda men Sub protsedurasini yaratdim , ActiveSheet .
    • Keyin PrintOut dan tanlash uchun faol varaq va chop etish ni tanlang .
    • Endi faqat tugmani bosing.

    A muloqot oynasi Saqlash Chop etish natijasi sifatida ochiladi.

    • ism bering va Saqlash tugmasini bosing. .

    Keyin siz chop etilgan PDF ni olasiz.

    Siz mumkin Agar kerak bo'lsa printerni osongina o'zgartiring.

    • Uy sahifasi yonidagi Fayl bog'ini bosing

    • Keyin Chop etish opsiyani tanlang va tanlash uchun ochiladigan menyuda -ni bosing a Printer .

    Batafsil o'qing: Excelda barcha varaqlarni qanday chop etish mumkin (3 usul)

    3. Excelda tanlangan varaqlar uchun Chop etish tugmachasini yaratish uchun VBA kodini qo'llang

    Agar siz chop etishni aniq tanlangan varaqlarni ni ishlatmoqchi bo'lsangiz, dan ham foydalanish mumkin. VBA .

    Qadamlar:

    • -ni yaratish uchun birinchi qismdan birinchi ikki bosqichni bajaring. tugmasi va tayinlash makros .
    • Keyin Makro nomi yozing va Yangi tugmasini bosing.

    Ko'p o'tmay, VBA oynasi ochiladi.

    • Keyinroq, quyidagi kodlarni Unda kiriting- 
    9213

    Keyin orqaga varaq ga qayting.

    Kod taqsimoti

    • Bu yerda men Sub protsedurasini yaratdim, SelectedSheets .
    • Keyin ActiveWindow dan <1ga qadar foydalanildi. faol Excel oynasi dan varaqni tanlang.
    • Keyin, bir nechta tanlanganni chop etish uchun PrintOut ishlatildi. varaqlar .
    • Endi varaqlarni tanlang va Chop etish tugmasini bosing. Men ikkita varaqni tanladim.

    • PDF uchun ism qo'ying va Saqlash tugmasini bosing .

    PDF faylda ikki varaq<2 uchun t ikki sahifa mavjud>.

    Batafsil o'qing: Excelda VBA makrosidan foydalangan holda maxsus varaqlarni qanday chop etish mumkin (4 usul)

    Shunga o'xshash o'qishlar:

    • A4 o'lchamdagi Excel varag'ini qanday chop etish (4 usul)
    • Qanday saqlash kerak Chop etishda Excelda sarlavha (3 usul)
    • Excel VBA: Chop etish maydonini dinamik ravishda qanday sozlash kerak (7 usul)
    • Excelni qanday chop etish kerak Chiziqli varaq (3 ta oson usul)
    • Excelda grafikni qanday chop etish (5 usul)

    4. Tanlangan diapazonga ega bo'lgan maxsus varaq uchun chop etish tugmachasini yaratish uchun Excel VBA-ni joylashtiring

    Bu yerda biz chop etish tugmasi ni chop etish uchun tanlanganni qilamiz. diapazon maxsus varaqdan .

    Qadamlar:

    • Birinchi ga amal qiling tugmasini yaratish va makrosni tayinlash uchun birinchi qismdan ikki qadam.
    • Makro nomini yozing va Yangi tugmasini bosing. .

    Tez orada VBA oynasi ochiladi.

    • Keyin yozing quyidagi kodlar – 
    9936
    • Keyinroq sahifangizga qayting.

    Kodlarni taqsimlash

    • Bu yerda men Sub protsedurasini yaratdim, SpecificSheetnRange .
    • Keyin iborasi bilan tanlash uchun a maxsus
    • Keyingi, PrintArea = “B2:D11”.PrintOut maxsus varaqdan diapazonni tanlaydi va uni chop etadi.
    • Endi faqat Chop etish tugmasini bosing.

    • Unga ism o'rnating PDF va Saqlash tugmasini bosing.

    Bu chop etilgan maxsus varaq.

    Batafsil o'qing: Excel VBA: Ko'p diapazonlar uchun chop etish maydonini o'rnatish (5 ta misol)

    5. Tanlangan diapazonli faol varaq uchun chop etish tugmachasini yaratish uchun Excel VBA-ni joylashtiring

    Shuningdek, siz faol varaqdan diapazonni tanlashingiz va VBA yordamida chop etish uchun 1>Chop etish tugmasi .

    Qadamlar:

    • Quyidagilarga amal qiling. birinchi qismdan birinchi ikki qadam tugmasini yaratish va makros tayinlash.
    • Keyinroq, Makro nomini yozing. va Yangi tugmasini bosing.

    Koʻp oʻtmay, VBA oyna ochiladi.

    • VBA oynasida quyidagi kodlarni -
      • <14 yozing> 
      7590
      • Keyin orqaga varaq ga qayting.

      Kodlar taqsimoti

      • Bu yerda men Sub protsedurasini yaratdim, ActiveSheetnRange .
      • Keyin Range(“B2:D11”).PrintOut dan tanlash a diapazon va chop etish.
      • Chop etish tugmasini bosing.

      • ism bering va Saqlash<2-ni bosing>.

      Unda siz bosma diapazonni olasiz.

      Ko'proq o'qing: Ma'lum varaqlarni chop etish uchun Excel tugmasi (oson qadamlar bilan)

      Xulosa

      Umid qilamanki, yuqorida tavsiflangan protseduralar Excelda chop etish tugmasi uchun VBA kodini ishlatish uchun etarli bo'ladi. Izoh bo'limida har qanday savolni berishingiz mumkin va menga fikr bildiring.

Oldingi xabar Excelda trend chizig'i tenglamasini qanday topish mumkin (3 mos usul)
Keyingi post Agar hujayra Excelda matn ichida so'z bo'lsa, VLOOKUP dan qanday foydalanish kerak

Hugh West - bu sohada 10 yildan ortiq tajribaga ega bo'lgan yuqori tajribali Excel treneri va tahlilchisi. Buxgalteriya hisobi va moliya yo‘nalishi bo‘yicha bakalavr va biznes boshqaruvi bo‘yicha magistr darajasiga ega. Xyu o'qitishga ishtiyoqi bor va unga amal qilish va tushunish oson bo'lgan o'ziga xos o'qitish usulini ishlab chiqdi. Uning Excel bo'yicha ekspert bilimlari butun dunyo bo'ylab minglab talabalar va mutaxassislarga o'z malakalarini oshirishga va o'z martabalarida muvaffaqiyat qozonishlariga yordam berdi. Xyu o'z blogi orqali o'z bilimlarini dunyo bilan baham ko'radi, jismoniy shaxslar va korxonalarga o'z salohiyatini to'liq ro'yobga chiqarishga yordam berish uchun bepul Excel darsliklari va onlayn treninglarni taklif qiladi.