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

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


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


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





الترحيل وفقا لتاريخ اليوم

بسم الله الرحمن الرحيم وبه نستعين الملف التالى لترحيل غياب الطلبة وفقا لتاريخ اليوم إعتمادا على الرقم المسلسل الخاص بالط ..



15-03-2020 12:24 مساء
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 224
الاعجاب : 12
 offline 
بسم الله الرحمن الرحيم
وبه نستعين
الملف التالى لترحيل غياب الطلبة وفقا لتاريخ اليوم إعتمادا على الرقم المسلسل الخاص بالطلبة فى الورقة data
الكود يعمل بشكل رائع لكن أواجه مشكلة فى سطر محدد من هذا الكود حيث يقتصر الترحيل على طلبة الصف الاول فقط
ك اولى اول - اولى ثانى - الى أخره
If InStr(c.Offset(, 2).Value, "اولى") Then

فكيف يمكن تعديل هذا السطر من الكود ليشمل باقى الصفوف الدراسية
ك ثانيه اول - ثانيه ثانى - ثالثه اول - ثالثه ثانى - الى أخره
فضلا لا أمرا إضغط على الزر " ترحيل "  ثم قم بنسخ عينة البيانات من ورقة sheet1  
ولصقها بداية من الصف 13 فى ورقة data ومن ثم تنفيذ الكود مرة أخرى لمعرفة ما أعنيه
قد يكون الأمر يسيرا لكن هناك ضبابية بعض الشيىء فى تعديل هذا السطر من الكود
جزاكم الله خيرا وبارك فيكم  
 
 
  الترحيل وفقا لتاريخ اليوم.xlsb.rar   تحميل rar مرات التحميل :(4)
الحجم :(62.859) KB





15-03-2020 03:34 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 492
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3816
الاعجاب : 65
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
للمرة الالف أكرر يجب ان يكون اي جدول في اكسل مستقلاً عن اي بيانات خارجية و خاصة اذا كان هناك خلايا مدمجة
تم ادراج صف فارغ في كل جدول من الصفحة الاولى والثانية (مخفيين)
جرب هذا الماكرو

Option Explicit
Sub extract_Abscent()
Application.ScreenUpdating = False
Dim O As Worksheet, D As Worksheet
Dim RgO As Range, RgD As Range, Col%, Ro%, i%
Dim My_date As Date, My_str$: My_str = "غ"
Set O = Sheets("Output"): Set D = Sheets("data")
Set RgO = O.Range("A8").CurrentRegion
Set RgD = D.Range("A7").CurrentRegion
Ro = RgD.Rows.Count
If Ro > 1 Then
 RgD.Offset(1).Resize(Ro - 1).ClearContents
 End If
My_date = D.Range("D1")
Col = O.Range("D7:AH7").Find(My_date, LOOKAT:=1).Column
RgO.AutoFilter Col, My_str
For i = 1 To 3
RgO.Columns(i).SpecialCells(12).Copy
 D.Range("A8").Offset(0, i - 1).PasteSpecial (xlPasteValues)
Next

D.Range("A9").Select
If O.AutoFilterMode Then
 O.ShowAllData: RgO.AutoFilter
 End If
 Application.ScreenUpdating = True
End Sub

الملف مرفق
 
 
  Tarhil_by_date.xlsm   تحميل xlsm مرات التحميل :(19)
الحجم :(132.85) KB


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



15-03-2020 07:01 مساء
مشاهدة مشاركة منفردة [2]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 224
الاعجاب : 12
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
بداية جزاكم الله خيرا أخى سليم وبارك فيكم على هذا المجهود الرائع
ثانيا حضرتك بتشخط ليه *** حضرتك متعرفشى أنى 58 سنة وربع ههههههههههههه " إبتسامة "
الكود المشار إليه بالمشاركة الاولى يعمل بشكل رائع
فى وجود خلايا مدمجة بسبب تصميم ورقة العمل على هذا النحو
فهل يمكنك أخى الفاضل تعديل السطر المشار اليه فى مشاركتى الأولى لتحقيق هذه النقطة
نظرا لإرتباط الكود الأصلى بأكواد أخرى فى الملف الأصلى
وافر تقديرى وإحترامى وجزاكم الله خيرا

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



16-03-2020 08:31 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 492
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3816
الاعجاب : 65
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
جرب هذا الكود
ليس عليك لا ان تكتب رقم الطالب واكسل يتكفل بالباقي (بعد الضغط على زر ترحيل)

Option Explicit
Sub test()
Dim x, y, D As Worksheet, O As Worksheet
Dim c As Range, s As String, cnt As Long
Dim Ro_Out As Range, Ro_In As Range
Dim F_rg As Range
Dim F_date As Range
Dim Claer_rg As Range

Set D = Sheets("data")
Set O = Sheets("Output")
Set Ro_Out = O.Range("A8:A" & O.Cells(Rows.Count, 1).End(xlUp).Row)
Set Ro_In = D.Range("A8:A" & D.Cells(Rows.Count, 1).End(xlUp).Row)
Ro_In.Offset(, 1).Resize(, 2).ClearContents

Set Claer_rg = O.Range("D7:AH7").Find(D.Range("d1"), lookat:=1)
    If Claer_rg Is Nothing Then
       MsgBox "This Date Not Exists": Exit Sub
    Else
      y = Claer_rg.Column
      O.Cells(8, y).Resize(1000).ClearContents
    End If

For Each c In Ro_In.Cells
'********************************
    Set F_rg = Ro_Out.Find(c, lookat:=1)
      If F_rg Is Nothing Then
        MsgBox "No data For cells:" & c.Address(0, 0)
        GoTo Next_C
      Else
        cnt = cnt + 1
        x = F_rg.Row
        O.Cells(x, y) = "X"
        c.Offset(, 1) = O.Cells(x, 2)
        c.Offset(, 2) = O.Cells(x, 3)
      End If
Next_C:
Next c
If cnt > 0 Then
  MsgBox "That is ALL " & cnt, vbInformation
End If
End Sub

الملف مرفق
 
 
  Tarhil_Abscents.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(130.545) KB


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



17-03-2020 01:20 صباحا
مشاهدة مشاركة منفردة [4]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 224
الاعجاب : 12
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
أخى واستاذى الفاضل / سليم
السلام عليكم ورحمة الله وبركاته
تمت الافادة بحول الله تعالى بتعديل الكود المرفق بمعرفتكم هذا من جهة
ومن جهة أخرى تم تعديل السطر المشار إليه بمشاركتى الاولى الى جعل القيمة فراغ وليست قيمة نصية
والأمور تسرى على ما يرام
 If InStr(c.Offset(, 2).Value, "") Then

وافر تقديرى واحترامى *** وجزاكم الله عنى خير الجزاء

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



17-03-2020 03:18 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
الحمد لله أن هديت للحل .. لكن سؤال هل الشرط بالفعل أن تكون الخلية فارغة ؟




17-03-2020 09:47 مساء
مشاهدة مشاركة منفردة [6]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 224
الاعجاب : 12
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
أخى العزيز ابو البراء
السلام عليكم ورحمة الله وبركاته
بداية أرجو قبول اعتذراى للتأخير فى الرد نظرا للبطىء الشديد فى النت
بشأن سؤال حضرتك فى الواقع اننى حاولت تعديل هذا السطر بعدة طرق ولكن باءت بالفشل
فرأيت أنه من المنطق إلغاء اى شروط نصية فى المتغيرC بجعل القيمة النصية فراغ
خاصة واننى أريد ترحيل غياب الصفوف الدراسية الثلاثه فى شيت واحد بدلا من ترحيل كل صف فى شيت منفصل
تقبل وافر تقديرى وجزاكم الله خيرا

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



17-03-2020 10:42 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif الترحيل وفقا لتاريخ اليوم
وعليكم السلام أخي العزيز أبو عبد الرحمن
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لدي بيانات اريد ان استخلص المبالغ وفقاً للتاريخ عبد الله السعيد
21 551 YasserKhalil
تغير السعر وفقا للتاريخ كريم نظيم
4 475 كريم نظيم

الكلمات الدلالية
الترحيل ، وفقا ، لتاريخ ، اليوم ،


 







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

الساعة الآن 11:25 مساء

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