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



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







15-03-2020 12:24 مساءً
بسم الله الرحمن الرحيم
وبه نستعين
الملف التالى لترحيل غياب الطلبة وفقا لتاريخ اليوم إعتمادا على الرقم المسلسل الخاص بالطلبة فى الورقة data
الكود يعمل بشكل رائع لكن أواجه مشكلة فى سطر محدد من هذا الكود حيث يقتصر الترحيل على طلبة الصف الاول فقط
ك اولى اول - اولى ثانى - الى أخره
CODE
If InStr(c.Offset(, 2).Value, "اولى") Then

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





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

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 مرات التحميل :(20)
الحجم :(132.85) KB


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



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

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



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

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 مرات التحميل :(10)
الحجم :(130.545) KB


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



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

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

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



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




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

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



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




اضافة رد جديد اضافة موضوع جديد



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

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








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

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