İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Aktiv faylı Excel-də PDF faylı olaraq saxlamaq üçün Komut Düğmesini necə istifadə etmək olar?

Microsoft Excel-də işləyərkən, effektiv iş sənədini PDF faylı olaraq saxlama problemi ilə üzləşə bilərsiniz. Bu yazıda VBA kodu ilə effektiv iş faylını PDF formatında bir Command Button vasitəsilə necə saxlaya biləcəyinizi öyrənə bilərsiniz. Həm də bir sıra və ya hər bir iş kitabını fərdi iş kitabında fərdi PDF şəklində saxlamaq istəyirsinizsə, bu yazı da sizə kömək edə bilər.

VBA kodu ilə effektiv iş faylını PDF faylı kimi saxlamaq üçün Komut düyməsini istifadə edin

Excel üçün Kutools ilə PDF fayl kimi seçilmiş hüceyrələrin bir sıra saxlaya bilərsiniz

Hər bir səhifəni Excel üçün Kutools ilə aktiv iş kitabının fərdi PDF faylı olaraq qeyd edin


Excel-də PDF fayl kimi seçimi asanlıqla saxlaya bilərsiniz:

Basın Müəssisə > İdxal / İxrac > Dəyişdirmək üçündür Fayl. Bu Excel üçün Kutools's Dəyişdirmək üçündür Fayl fayda asanlıqla Excel-də PDF fayl kimi seçiminizi ixrac etməyə kömək edir. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 30 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin

doc seçimi pdf


VBA kodu ilə effektiv iş faylını PDF faylı kimi saxlamaq üçün Komut düyməsini istifadə edin


Komanda düyməsini basaraq aktiv iş səhifəsini PDF faylı olaraq saxlamaq üçün aşağıdakı VBA kodunu işə sala bilərsiniz. Xahiş edirik bunu edin.

1. Birincisi, yeni dönüştürülmüş PDF faylınızı yadda saxlamaq üçün PDF adlı bir qovluq yaratmalısınız. Burada bu qovluğu yerli diskimdə (C :) yaradıram.

2. Tıklayarak bir Komut Düğmesi əlavə edin Developer > Taxmaq > Command Button (ActiveX Control). Ekran görüntüsünə baxın:

2. Sonra yeni bir satır əlavə etmək üçün lazım olan iş səhifəsinə Komanda düyməsini çəkin, Komanda düyməsini sağ basın və Properties sağ tıklayarak menyudan.

3. İçində Properties informasiya qutusuna, Komut Buttonunun göstərilən mətnini daxil edin Başlıq altındakı qutu Kateqoriyasız sekmesini seçin və sonra informasiya qutusunu bağlayın.

Komut Buttonunun görüntülenen mətni aşağıda göstərilən ekran görüntüsündə dəyişdiyini görə bilərsiniz.

4. Komanda düyməsini yenidən sağ basın və sonra basın Kodları baxın sağ tıklayarak menyudan.

5. Açılışda Proqramlar üçün Microsoft Visual Basic penceresinde aşağıdakı kod VBA koduyla orijinal kodu değiştirin.

VBA kodu: Aktiv iş səhifəsini PDF olaraq saxlamaq üçün Command Button

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

QeydKod: CommandButton1, aktiv faylı PDF faylı olaraq saxlamaq üçün istifadə edəcəyiniz Komut Düğmesi adıdır. "C: \ PDF \ Export.pdf" qənaət PDF faylınızın yolu və adıdır.

6. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə. Sonra söndürün Dizayn Moda Altında Developer nişanı.

İndi Komut Düğmesine basın, aktiv iş səhifəsi Export adlı bir PDF fayl olaraq qeyd olunacaq və müəyyən bir yerdə yerləşəcək.


Excel üçün Kutools ilə PDF fayl kimi seçilmiş hüceyrələrin bir sıra saxlaya bilərsiniz

Yalnız bir sıra seçilmiş hüceyrələri bir PDF faylı kimi saxlamaq istəyirsənsə, bunu cəhd edə bilərsiniz Dəyişdirmək üçündür Fayl faydası Excel üçün Kutools. Xahiş edirik bunu edin.

1. PDF faylı kimi saxlamaq üçün lazım olan aralığı seçin və sonra basın Müəssisə > İdxal ixrac > Dəyişdirmək üçündür Fayl. Ekran görüntüsünə baxın:

2. İçində Dəyişdirmək üçündür Fayl informasiya qutusuna ehtiyacınız var:

2.1 seçin PDF Fayl forması bölməsində seçim;

2.2 PDF faylınızı saxlaya biləcək bir qovluq seçin Istiqamətə qayıt bölmə;

2.3 düyməsini basın OK düyməsini basın.

2.4 PDF faylınızı Faylın ikiqat ixrac qovluğuna daxil etmə qutusuna verin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Qeyd: Sizə lazım olan hər hansı bir Formatı qoruya bilərsiniz, Sərhəd yüksəkliklərini qoruyun və İş dəftəri seçimləri bölməsində sütun genişliklərini qoruyun. Və ixrac edilən PDF faylını avtomatik olaraq yoxlayaraq aça bilərsiniz Daşındıqdan sonra faylı açın Qutu.

İndi seçilmiş aralık PDF faylı olaraq saxlanılır.

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.


Hər bir səhifəni Excel üçün Kutools ilə aktiv iş kitabının fərdi PDF faylı olaraq qeyd edin

Siz istifadə edə bilərsiniz Split İş Kitabı faydası Excel üçün Kutools hər bir iş kitabını aktiv iş kitabında fərdi PDF faylını asanlıqla saxlamaq üçün.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. İş kitabında hər bir iş səhifəsini fərdi PDF faylı olaraq saxlamaq lazımdır, sonra da basın Müəssisə > İş kitabı > Split İş Kitabı. Ekran görüntüsünə baxın:

2. İçində Split İş Kitabı informasiya qutusu içərisində bütün işləri görə bilərsiniz, xahiş edirik seçin PDF (* .pdf) seçimdən Tipi olaraq saxla açılan siyahıdan və sonra basın Split düyməsini basın. Və haşhaş üstündə Qovluq üçün göz atın informasiya qutusunda, PDF faylları saxlamaq istədiyiniz bir qovluq seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra aktiv iş kitabında bütün iş pages dərhal fərdi PDF fayl olaraq saxlanılır.

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.


Demo: Excel üçün Kutools ilə seçimi və ya hər iş səhifəsini PDF olaraq saxlayın

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!


Əlaqəli məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nzee · 4 months ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Nzee,
      I need to know your Excel version. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Randy · 8 months ago
    I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
  • To post as a guest, your comment is unpublished.
    Jo Colenso · 1 years ago
    I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      Dim xName As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      xName = xRg(1).Value
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\PDF\" & xName & ".pdf", _
      OpenAfterPublish:=False
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ian · 2 years ago
    Hi,
    How would one allow the user to enter the file name as opposed to "Export.pdf"?
    Thanks,
    Ian
    • To post as a guest, your comment is unpublished.
      Mayur · 1 years ago
      Sub SaveAsPDF()
      Application.Screen Updating = False
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=Application.InputBox("Enter File Name")

      strExcelPath = "H:\My Documents"

      Application.ScreenUpdating = True
      End Sub