اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حماده سعد الله

02 الأعضاء
  • Content Count

    77
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

3 Neutral

1 متابع

عن العضو حماده سعد الله

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم ثانوي

اخر الزوار

749 زياره للملف الشخصي
  1. الأستاذ المحترمali mohamed ali شكرا لسرعة ردك واهتمامك ولكن ما أقصده عو أنني أريد طباعة صفحة شيت بها مثلا 100 صف و أريد أن يكون بكل صفحة طباعة 26 صف فقط دون زيادة أو نقصان فهل هذا ممكن عن طريق الكود حتي لا أحتاج إلي ضبط كل صفحة مرارا وتكرارا وخاصة عند زيادة أو نقصان حجم الخط أو ارتفاع الصف
  2. هل يمكن عمل كود لتحديد عدد الصفوف بصفحة الطباعة بمعني جعل عدد الصفوف 20 صف مثلا بالصفحة الواحدة عند الطباعة وشكرا مقدما أحبابي في الله
  3. الأخ الأستاذ أبو عيد هل يمكنك التعديل علي هذا العمل الرائع بحيث عند قفل الملف لا يظهر الا sheet1 الفارغ حتي وان كان هناك شيتات أخري لا تظهر عند الغلق بتاريخ وشكرا
  4. يا شباب أعتقد طلبي مش صعب قوي أنا عاوز التعديل علي صفحة الشهادة فقط بحيث تتفق مع الشيت اللي أرفقته وفي الشيت المطلوب المجموع فقط لكل ماده أرجوكم
  5. هل هناك من يرغب في مساعدتي في تعديل شيت الدرجات المرفق مكان الشيت الموجود ببرنامج الشهادات المرفق شكرا
  6. أستاذ بن علية حاجي عذرا لقد أخطأت في ارفاق الملف وشكرا لحضرتك في سرعة الرد برنامج شهادات المرحلة الأبتدائية2.rar
  7. الأستاذ العبقري أبو تامر قام بتصميم برنامج طباعة الشهادات المدرسية المرفق الأول وما أروع هذا العمل جعله الله في ميزان حسناته أطمع في كرمه أو كرم السادة المشرفين في عمل تعديل لهذا العمل الجميل ليتناسب مع شيت درجات المعهد الثانوي الأزهري ولكم مني ومن أسرة المعهد الشكر الجزيل ملحوطة لا يهمنا سوي المجموع النهائي لكل مادة وإضافة خانة للمجموع برنامج طباعة الشهادات المدرسية.rar شيت الدرجات.rar
  8. الأستاذ العبقري أبو تامرما أروع هذا العمل جعله الله في ميزان حسناتك أطمع في كرمك في أن تقوم بعمل تعديل لهذا العمل الجميل ليتناسب مع شيت درجات المعهد الثانوي الأزهري ولك مني ومن أسرة المعهد الشكر الجزيل شيت الدرجات.rar
  9. أحبائي في الله قد أكون أخطأت في التعبير عن سؤالي ولكن ما أقصده أن هذا الملف الذي أرفقته ناتج عملية نسخ هله من ملف أخر من خلال كود وما أتمناه أن يكون التج بدون معادلات أو أكواد أتمني من الله أن أكون استطعت توصيل طلبي هذه المرة والموديول من أحد خبراء المنتدي Sub COPY_TO_FILE_ONLY() Dim xPath As String Dim SH As Worksheet xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False ' الشيت الاول Set SH = Sheets("كشف 2 ج أدبي مستجد") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الثاني Set SH = Sheets("كشف المناداة أدبي مستجد") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الثالث Set SH = Sheets("كشف 2 ج أدبي معيد") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الرابع Set SH = Sheets("كشف المناداه أدبي معيد") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الخامس Set SH = Sheets("كشف 2 ج أدبي من الخارج") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت السادس Set SH = Sheets("كشف مناداه أدبي من الخارج") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
  10. السلام عليكم ورحمة الله وبركاته أحبائي في الله أريد أن أعرف ماهي كيفية قطع الإرتباطات بملف مرتبط بملف آخر علما بأن رسالة قطع الارتباط لا تظهر rttyt.rar
×
×
  • اضف...