شرح كود عمل الشهاده للاخ عمر الحسينى

[هانى المعلم]

اخوانى اعضاء المنتدى السلام عليكم ورحمة الله وبركاته 

لفد تعلمت الكثير على ايدى اخوانى فى هذى المنتدى الرائع 

واريد من احد الاخوه عمالقة الاكسيل شرح الاكواد الموجوده فى الملف المرفق وهو ملف للاخ عمر الحسينى لعمل الشهادات 

انا لا اريد شرح لكود الدوائر الحمراء او كود التفقيط الموجود بالملف ولكن اريد شرح الاكواد الموجود باروراق العمل والبوك

ورقة الشهادة

 

الكود

Private Sub Worksheet_Activate()

Sh_Data = "SH"

EndRow = Sheets("SH").Cells(Rows.Count, 3).End(xlUp).Row

ActiveWorkbook.Names.Add Name:="Tb_1", RefersToR1C1:="=" & Sh_Data & "!R7C2:R" & EndRow & "C60"

ActiveWorkbook.Names.Add Name:="All_Names", RefersToR1C1:="=" & Sh_Data & "!R7C2:R" & EndRow & "C3"

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$19" And [AA3] = "Circle" Then

Application.ScreenUpdating = False

DelCircle

OmarCircle

Application.ScreenUpdating = True

End If

End Sub

 

والكود الموجود Workbook

وهو

Private Sub Workbook_BeforeClose(Cancel As Boolean)

DelCircle

With Sheets("الشهادة")

.Range("25:10000").Delete Shift:=xlUp

.[AA1:AA3] = ""

End With

End Sub

Private Sub workbook_BeforePrint(Cancel As Boolean)

If Not Sheets("الشهادة").Range("AA1") Then Cancel = True: MsgBox "  لا يـــوجـــد شـئ للعـــرض او الطبـــاعــة   ....... ", vbMsgBoxRtlReading + vbMsgBoxRight + vbExclamation, "             تنبيـــة ..."

End Sub

 

 

لانى حاولت تطبيقه ولكن كل محاولاتى فشلت لانى لم افهم الاكواد السابقه  وماذا تعنى   .[AA1:AA3

 

وشكرا لكم اخوانى

 

 

نموذج طباعة الشهادات المدرسية الاصدار الاول.rar

[هانى المعلم]

اين انتم يا عمالقه