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

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


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





طلب التغيير في كود الزر

السلام عليكم من فضلكم كيف أعدل على الكود التالي: Sub gestnoexamen() Application.ScreenUpdating = False Range(quot;T1 ..


موضوع مغلق


13-08-2020 11:16 مساء
hicham2610
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-07-2018
رقم العضوية : 7051
المشاركات : 1
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

السلام عليكم

من فضلكم

كيف أعدل على الكود التالي:
 

Sub gestnoexamen()
Application.ScreenUpdating = False
    Range("T17").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(R17C6:RC[-14],RC[-14])"
    Range("T17").Select
    Selection.AutoFill Destination:=Range("T17:T72")
    Range("T17:T172").Select
    ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
        "T16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("g").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Sortm*ethod = xlPinYin
        .Apply
    End With
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B17:B18").Select
    Selection.AutoFill Destination:=Range("B17:B172")
    Range("B17:B172").Select
    Range("T9").Select
    Application.ScreenUpdating = True
End Sub

لكي يحدد المدي المعين في العمود ين (BوT)إلى غاية آخر سطر  مساوي للسطر الذي لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريببه بيانات في العمود :    D

لأن البيانات قد تختلف فربما تكون أكثر أو أقل وليس دائما تفس عدد التلاميذ

الكود في زر توزيع المترشحين،الورقة : الملف مرفق

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

 
 
  الملف الرئيسي1.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(431.738) KB



أفضل إجابة مقدمة من hassona229 وهي:

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

استبدل هذا السطر

 

Selection.AutoFill Destination:=Range("T17:T72")
بهذا السطر


Selection.AutoFill Destination:=Range("T17:T" & Cells(Rows.Count, 4).End(xlUp).Row)
وهذا السطر


Selection.AutoFill Destination:=Range("B17:B172")
بهذا السطر


Selection.AutoFill Destination:=Range("B17:B" & Cells(Rows.Count, 4).End(xlUp).Row)
عرض الإجابة




20-08-2020 12:08 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif طلب التغيير في كود الزر

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

استبدل هذا السطر

 

Selection.AutoFill Destination:=Range("T17:T72")
بهذا السطر


Selection.AutoFill Destination:=Range("T17:T" & Cells(Rows.Count, 4).End(xlUp).Row)
وهذا السطر


Selection.AutoFill Destination:=Range("B17:B172")
بهذا السطر


Selection.AutoFill Destination:=Range("B17:B" & Cells(Rows.Count, 4).End(xlUp).Row)

20-08-2020 03:01 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif طلب التغيير في كود الزر
جزاك الله خيراً أخي الغالي حسونة ومشكور على التفاعل المثمر بالمنتدى.

20-08-2020 07:54 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif طلب التغيير في كود الزر
وجزاكم مثله استاذنا الغالى ربنا يوفقك ويرضى عنك وعن والديك 



الكلمات الدلالية
التغيير ، الزر ،


 










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

الساعة الآن 07:38 صباحا