أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





ضبط درجه واستبدالها

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بكل خير لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب



02-08-2020 06:56 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
كل عام وحضراتكم بكل خير
MTg3NTUwMQ7171456
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ضبط درجات..واستبدالها.rar   تحميل rar مرات التحميل :(6)
الحجم :(99.319) KB


02-08-2020 09:29 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ضبط درجه واستبدالها
1-تغيير اسم الشيت الى  Data لا أحب اسماء الشيتات باللغة العربية
2- الكود المطلوب

Option Explicit

Sub change_to_Min()
Dim D As Worksheet, Le%
Dim Re As Range, cel As Range
Const X = 64
Const m_colr = 24

Set D = Sheets("Data")
Le = D.Cells(Rows.Count, "E").End(3).Row
Set Re = D.Range("E5:E" & Le).SpecialCells(2)
For Each cel In Re.Cells
  If Val(cel) > 0 And cel.Interior.ColorIndex = m_colr Then
     If cel > X Then cel = X
 End If
Next

End Sub


02-08-2020 10:29 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif ضبط درجه واستبدالها
جزاك الله خيرا استاذ سليم...
NDI0NTI2MQ9393282782
 
 


02-08-2020 10:53 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ضبط درجه واستبدالها
ممكن طبعاً

Sub change_to_Min()
Dim D As Worksheet, Le%
Dim Re As Range, cel As Range
Const X = 64
Const m_colr = 24

Set D = Sheets("Data")
Le = D.Cells(Rows.Count, "E").End(3).Row
Set Re = D.Range("E5:E" & Le).SpecialCells(2)
For Each cel In Re.Cells
  If Val(cel) > 0 And cel.Interior.ColorIndex = m_colr Then
     If cel > X Then
      cel.Offset(1) = cel
      cel = X
     End If
 End If
Next

End Sub

02-08-2020 11:03 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif ضبط درجه واستبدالها
شاكر فضلك ..جداااااااا..الله يكرمك اخي الفاضل...جزاك الله كل خير3

03-08-2020 09:03 صباحا
مشاهدة مشاركة منفردة [5]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif ضبط درجه واستبدالها
بارك الله بيك استاذنا العزيز سليم دائما مبدع في تقديم الحلول للجميع

03-08-2020 12:52 مساء
مشاهدة مشاركة منفردة [6]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif ضبط درجه واستبدالها
MTc2ODAzMQ4747278586استفسار بسيط استاذ سليم هل ممكن ايضا تحويل (   (م)...الى....(ل) ايضا ...بارك الله فيك
هذا ما توصلت اليه بعد اضافة هذا السطر لكود حضرتك ..cel.Offset(3) = "ل"
.. هل هو صحيح..ام ممكن يحدث اخطاء
Sub change_to_Min()
Dim D As Worksheet, Le%
Dim Re As Range, cel As Range
Const X = 64
Const m_colr = 24

Set D = Sheets("Data")
Le = D.Cells(Rows.Count, "E").End(3).Row
Set Re = D.Range("E5:E" & Le).SpecialCells(2)
For Each cel In Re.Cells
  If Val(cel) > 0 And cel.Interior.ColorIndex = m_colr Then
     If cel > X Then
      cel.Offset(1) = cel
      cel.Offset(3) = "ل"
      cel = X
     End If
 End If
Next

End Sub

 
 
 





الكلمات الدلالية
درجه ، واستبدالها ،


 










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

الساعة الآن 01:10 مساء