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

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


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





ترحيل إلى ورقة ثانية بدلالة التاريخ

السلام عليكم إخوتي أرجو المساعدة في الملف المرفق بحيث أود ترحيل النسبة المئوية لغياب التلاميذ في الخلايا M10:M13 من ور ..


موضوع مغلق


26-02-2022 04:41 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم إخوتي 



أرجو المساعدة في الملف المرفق بحيث أود ترحيل النسبة المئوية لغياب التلاميذ في الخلايا M10:M13 من ورقة RAP JOUR  إلى ورقة ARCH % ABS حسب الجدول بدلالة التاريخ اليومي 



و شكرا مسبقا

 
 
  01.xlsx   تحميل xlsx مرات التحميل :(12)
الحجم :(176.312) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim x, v, ws As Worksheet, sh As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    Set sh = ThisWorkbook.Worksheets(2)
    x = Application.Match(ws.Range("O4").Value2, sh.Rows(5), 0)
    If Not IsError(x) Then
        v = ws.Range("M10:M13").Value2
        With sh.Cells(6, x).Resize(UBound(v))
            .Value = v
            .NumberFormat = ws.Range("M10").NumberFormat
        End With
    End If
End Sub
عرض الإجابة




26-02-2022 05:14 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ترحيل إلى ورقة ثانية بدلالة التاريخ
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim x, v, ws As Worksheet, sh As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    Set sh = ThisWorkbook.Worksheets(2)
    x = Application.Match(ws.Range("O4").Value2, sh.Rows(5), 0)
    If Not IsError(x) Then
        v = ws.Range("M10:M13").Value2
        With sh.Cells(6, x).Resize(UBound(v))
            .Value = v
            .NumberFormat = ws.Range("M10").NumberFormat
        End With
    End If
End Sub

26-02-2022 08:22 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif ترحيل إلى ورقة ثانية بدلالة التاريخ
ألف شكر أستاذ ياسر

27-02-2022 05:05 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ترحيل إلى ورقة ثانية بدلالة التاريخ
بارك الله فيك والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
ترحيل ، ورقة ، ثانية ، بدلالة ، التاريخ ،


 










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

الساعة الآن 03:46 صباحا