تكت كتابة الاستمارات للصف الثالث الاعدادى

[ابن عبدالرازق]

السلام عليكم ورحمة الله وبركاته

استأذنكم فى عمل برنامج (اكسل 2003) لاستخراج وطباعة (كل 4 تكتات فى صفحة )

تكت كتابة الاستمارات للصف الثالث الاعدادى.

وجزاكم الله خير الجزاء

تكت كتابة الاستمارات للصف الثالث الاعدادى.xlsx

[ابن عبدالرازق]

للرفع

 

 

[احمد بدره]

تم عمل المطلوب ولكن إذا لم يشتغل  الماكرو على أوفيس 2003 

اذهب لمحرر الأكواد وقم بإدراج موديول وقم بلصق هذين الكودين

الكود الأول لطباعة كل الاستمارات

الكود الثاني لطباعة مدى من الاستمارات

Sub Print_All()
   ActiveSheet.Unprotect
   Range("M3").Value = 1
  For I = [M3] To [N3] Step 4
       If I >= [M3] And I <= [N3] Then
       [k1] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     End If
  Next
     [k1] = [N3]
    Range("k1").Value = 1
  ActiveSheet.Protect
End Sub
Sub Print_FROM_TO()
   ActiveSheet.Unprotect
   Range("k1").Value = Range("M3").Value
  For I = [M7] To [N7] Step 4
       If I >= [M7] And I <= [N7] Then
       [k1] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     End If
  Next
   
     ActiveSheet.Protect
End Sub

 

 

تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

[ابن عبدالرازق]

اللهم ارزق عبدك ahmedkamelelsayed0

من العلم أنفعه ومن العمل أرفعه ومن الرزق أوسعه ومن القول أصدقه ومن اليقين أوفقه ومن الخير أكمله ومن الصبر أجمله

شكرا جزيلا

 

[ابن عبدالرازق]

انا آسف جدا

لى تعديل  فى خانة رقم القيد (لم ادرجه فى البيانات سابقا سهوا منى )

فهو يخرج فى التكت مكان المسلسل

علما بأننى لم ادخل المعادلة (جهلا منى)  وجربته على 2007 وهو فوق الممتاز

جزاك الله خير الجزاء

 

اتكت كتابة الاستمارات للصف الثالث الاغدادة بغد التعديل.xls

للرفع

 

[Ali Mohamed Ali]

تفضل بعد اذن الأستاذ أحمد

 

تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

[ابن عبدالرازق]

شكرا جزيلا

اثابكم الله خيرا