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

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


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





استدعاء كود في حدث ورقة العمل

اساتذتي الكرام مرفق شيت اكسل يحتوي على رزنامة محتاج عند فتح شيت الاكسل يقوم بوضع تاريخ اليوم في الخلية AH وتحديد الخلية ..



05-02-2021 04:27 مساء
khaled alborene
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 11
قوة السمعة : 988
عدد الإجابات: 1
 offline 

اساتذتي الكرام 
مرفق شيت اكسل يحتوي على رزنامة محتاج عند فتح شيت الاكسل يقوم بوضع تاريخ اليوم في الخلية AH وتحديد الخلية التي تحتوي على تاريخ اليوم
 
 
  CALENDER.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(41.206) KB


05-02-2021 06:17 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استدعاء كود في حدث ورقة العمل
السلام عليكم
إليك الكود التالي (قد لا يكون الأفضل لكنه أعتقد يفي بالغرض إن شاء الله)
Private Sub Workbook_Open()
    Dim x, rng As Range, cl As Range, r As Long, c As Long
    x = Month(Date)
    If x >= 1 And x <= 4 Then
        r = 4
    ElseIf x >= 5 And x <= 8 Then
        r = 13
    ElseIf x >= 9 And x <= 12 Then
        r = 22
    End If
    If x = 1 Or x = 5 Or x = 9 Then
        c = 2
    ElseIf x = 2 Or x = 6 Or x = 10 Then
        c = 10
    ElseIf x = 3 Or x = 7 Or x = 11 Then
        c = 18
    ElseIf x = 4 Or x = 8 Or x = 12 Then
        c = 26
    End If
    With ThisWorkbook.Worksheets("Main")
        Set rng = .Range(.Cells(r + 2, c), .Cells(r + 7, c + 6))
        For Each cl In rng
            If cl <> "" Then
                If Day(cl.Value) = Day(Date) Then
                    cl.Select
                End If
            End If
        Next cl
    End With
End Sub

05-02-2021 06:26 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استدعاء كود في حدث ورقة العمل
إليك حل أفضل 
Private Sub Workbook_Open()
    Dim c As Range
    For Each c In ThisWorkbook.Worksheets("Main").UsedRange
        If c.Value2 = CDbl(Date) Then c.Select: Exit For
    Next c
End Sub

05-02-2021 06:34 مساء
مشاهدة مشاركة منفردة [3]
khaled alborene
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 11
قوة السمعة : 988
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif استدعاء كود في حدث ورقة العمل
استاذ ياسر اسم الشهر والايام تحتوي على تواريخ ولكن بنسيقات مختلفة 
بمعنى شهر ١ هو اصلا 01/01/2021 هل ممكن ان يحدث غلط في حال فتح الملف في نفس ذالك اليوم ويختار اسم الشهر بدلا من رقم اليوم

05-02-2021 10:06 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استدعاء كود في حدث ورقة العمل
الكود يبحث عن التاريخ الحالي في النطاق المستخدم في ورقة العمل فإذا وجد تم تحديد الخلية ..




الكلمات الدلالية
استدعاء ، ورقة ، العمل ،


 










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

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