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



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






موضوع مغلق


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

السلام عليكم


من فضلكم


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


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
.SortMethod = 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</pre>

[p]لكي يحدد المدي المعين في العمود ين (BوT)إلى غاية آخر سطر مساوي للسطر الذي الملف الرئيسي1.xlsmبه بيانات في العمود : D


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


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


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

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





look/images/icons/i1.gif طلب التغيير في كود الزر
  20-08-2020 12:08 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
وعليكم السلام ورحمه الله وبركاته

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

Selection.AutoFill Destination:=Range("T17:T72")


بهذا السطر
CODE

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


وهذا السطر
CODE

Selection.AutoFill Destination:=Range("B17:B172")


بهذا السطر
CODE

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

أثارت هذه المشاركة إعجاب: YasserKhalil، abouelhassan، Yasser Elaraby،



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

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



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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ارجو المساعدة في جلب بيانات حسب التغييرات في ورقة العمل dragon2007
1 901 dragon2007
كيفية التغيير في نطاق المعادلة وزيادة المدى أبو يوسف النجار
3 1554 YasserKhalil
التغيير بالبيانات في كافة الشيتات مرة واحد زيد2017
3 1953 محمود ابو الدهب
جلب اخر قيمة + معدل التغيير وعمل تنسيق شرطي للفورم عند تحقيق الشرط رمضان بكري
3 2630 رمضان بكري

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








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

الساعة الآن 03:48 PM.