كود الحذف والطباعة وحفظ Pdf في الاكسيل
Автор: Mahart Kabou - مهارة كعبو
Загружено: 2021-07-29
Просмотров: 1749
اكواد الحذف والطباعة وحفظ Pdf
كود الحذف
Sub Delete_Click()
Sheet2.Range("ac1").Value = Sheet1.Range("c2").Value
Dim P As Integer
P = Sheet2.Range("ae1").Value
Sheet2.Rows(P).Delete
Sheet1.Range("c4:c13").Value = ""
Sheet1.Range("g4:g13").Value = ""
End Sub
كود التنقل
Sub Sheet2Go_Click()
Sheet2.Activate
End Sub
كود الطباعة
Sub PRINT_form()
Sheet1.Range("a1:g15").PrintPreview
End Sub
كود حفظ Pdf
Sub SAVEform_PDF()
Dim FW As Variant
FW = "d:\kabou\DataForm - " & Range("c2").Value & ".PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FW, openafterpublish:=tuer
MsgBox ("Êã ÍÝÙ Pdf")
End Sub
تحميل الملف
https://www.upload-4ever.com/7l1dq1ku...
صفحتنا علي فيس بوك
https://2u.pw/GAcnk
لأي ملاحظة الرجاء التواصل معي
https://2u.pw/YHOeB
whatsapp
+966546378444
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке: