اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





استعلام عن درجات الطلبة حسب الفصول الثلاثة وعمل زر للطباعة متتالية

السلام عليكم اساتذتي الكرام عندي طلب حول عمل استعلام عن درجات الطلبة حسب مستوى و استعلام لثلاثة فصول وعمل زر للطباعة متت ..



04-12-2017 10:25 مساء
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 250
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 217
الاعجاب : 72
 offline 

السلام عليكم اساتذتي الكرام عندي طلب حول عمل استعلام عن درجات الطلبة حسب مستوى و استعلام لثلاثة فصول وعمل زر للطباعة متتالية 
السؤال على الشيت الاخير في ملف وبه المطوب وشكرا
جزاكم الله خيرا واكرمكم بالجنة ان شاء الله وجعل كل ماتقدمونه زيادة في ميزان حسناتكم 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  استعلام عن درجات طلبة حسب الفصول وعمل زر لطباعة الطلاب طباعة متتالية.rar   تحميل rar مرات التحميل :(23)
الحجم :(686.917) KB







31-12-2017 09:20 مساء
مشاهدة مشاركة منفردة [1]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 250
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 217
الاعجاب : 72
 offline 
look/images/icons/i1.gif استعلام عن درجات الطلبة حسب الفصول الثلاثة وعمل زر للطباعة متتالية
السلام عليكم اخواني جزاكم الله كل خير 
تم عمل المطلوب الذي قمت بطلبه حول استعلام  عن درجات الطلبة حسب الفصول وعمل زر للطباعة متتالية 
واشكر الاستاذ الفاضل  محمود ابو الدهب جزاه الله كل خير وندعو له بالصحة والهناء على اتمام  طلبي 
واليكم الكود لمن يريد نفس العمل هذا
Dim sh      As Worksheet
Dim ws      As Worksheet
Dim lr      As Long
Dim y       As Long
Dim yy      As Long, k As Long, i As Long, yyy As Long
Dim s       As String

Set sh = Sheets("كشف مدرسي")
s = sh.Range("v2").Value
Set ws = Sheets(s)
lr = ws.Range("a2").Value

For i = 1 To lr / 2 + 0.5
     
     sh.Range("g1").Value = i + k
yy = i + k
     If yy >= lr Then
     sh.Range("k1").Value = ""
     GoTo 100
     End If
     sh.Range("k1").Value = yy + 1
     k = k + 1
    Application.Wait (Now + TimeValue("00:00:01"))
    Call print_1
Next i
       sh.Range("g1").Value = ""
       sh.Range("k1").Value = ""
Exit Sub
100:
    Application.Wait (Now + TimeValue("00:00:01"))
    Call print_1

 

أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب،




01-01-2018 01:11 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3933
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11111
الاعجاب : 3939
 offline 
look/images/icons/i1.gif استعلام عن درجات الطلبة حسب الفصول الثلاثة وعمل زر للطباعة متتالية
بارك الله فيك أخي الكريم والشكر موصول للأخ الغالي محمود أبو الدهب
تقبلوا تحياتي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حل مشكلة توجد معلومات كبيرة في الحافظه عند نسخ الدرجات من ملف الى اخر بردواسطة كود Salamco
2 91 Salamco
المطلوب ترحيل الطلاب العشرة الضعفاء من قائمة الدرجات الى شيت الطلاب الضعفاء alyasryaamir
2 153 Eslam Abdullah
ترحيل عدة درجات لكل طالب نصر الإيمان
17 334 YasserKhalil

الكلمات الدلالية
استعلام ، درجات ، الطلبة ، الفصول ، الثلاثة ، وعمل ، للطباعة ، متتالية ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 08:32 صباحا

أعلن هنا
أعلن هنا
أعلن هنا