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

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


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





حلقة تكرارية

الملف المرفق فيه خطابات تعديل المنافست وامطلوب عمل هايبر لينك بحلقة تكرارية لانه ممكن يكون فى الشيت 500 طلب تعديل المطلو ..


موضوع مغلق


subject icon تمت الإجابة حلقة تكرارية
14-11-2022 08:09 صباحا
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 41
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 

الملف المرفق فيه خطابات تعديل المنافست وامطلوب عمل هايبر لينك بحلقة تكرارية لانه ممكن يكون فى الشيت 500 طلب تعديل المطلوب ادوس على رقم 1 ينقلى للخطاب رقم 1 واضغط على رقم 2 يتم الانتقال الى الخطاب رقم 2 وهكذا ولكم كل الشكر والاحترام
 
 
  Book1.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(42.941) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
بارك الله فيك أخي الكريم 
تفضل الكود التالي عله يفي بالغرض
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$1" Then
        Dim x
        x = Application.Match(Target.Value, Columns(3), 0)
        If Not IsError(x) Then
            Application.Goto Cells(x, 3)
        End If
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 3 Then
        Cancel = True
        Application.Goto Range("K1")
    End If
End Sub


الجزء الأول من الكود حدث التغير في الخلية K1 أي أنه بمجرد كتابة رقم المستند المراد الانتقال إليه والضغط على إنتر سينتقل بك للجزء المطلوب ، ويعتمد الكود ببساطة على البحث عن الرقم المطلوب في العمود الثالث من خلال استخدام Match فإذا وجد الرقم يتم الانتقال باستخدام طريقة GoTo 

الجزء الثاني إضافة لم تطلبها وهي لتسهيل الرجوع إلى الخلية K1 حيث بعد الانتقال للمستند المطلوب يتم النقر المزدوج في أي خلية في العمود الثالث فينقلك الكود إلى الخلية K1

تقبل وافر تقديري واحترامي
عرض الإجابة




14-11-2022 10:56 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حلقة تكرارية
السلام عليكم أخي الكريم
هل ستقوم بكتابة الأرقام من 1 حتى 500 ؟ وإذا اردت الانتقال لرقم معين سوف تبحث عن الرقم للضغط عليه والانتقال للجزء المطلوب؟!
ألا ترى أن هذا غير عملي بشكل كبير
من رأيي أن تقوم بالتعامل مع خلية محددة ولتكن الخلية K1 وتكتب فيها الرقم المطلوب ثم تنقر نقراً مزدوجاً على الخلية فينقلك إلى الجزء المطلوب بدون اللجوء إلى إنشاء هايبر لينك لكل جزء على حدا
إذا كان هذا الحل يناسبك أخبرني لأرشدك للخطوة التالية

15-11-2022 01:21 صباحا
مشاهدة مشاركة منفردة [2]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 41
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif حلقة تكرارية
استاذ ياسر يارب يخليك ويجازيك عنا كل الخير حضرتك استاذ كبير وانا لى الشرف ان حضرتك ترشدنى الى الطريق الصحيح 
انا موافق على اقتراحك فى الحل واشكرك بشدة وبارك الله فى صحتك وولادك

15-11-2022 09:34 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حلقة تكرارية
بارك الله فيك أخي الكريم 
تفضل الكود التالي عله يفي بالغرض
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$1" Then
        Dim x
        x = Application.Match(Target.Value, Columns(3), 0)
        If Not IsError(x) Then
            Application.Goto Cells(x, 3)
        End If
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 3 Then
        Cancel = True
        Application.Goto Range("K1")
    End If
End Sub


الجزء الأول من الكود حدث التغير في الخلية K1 أي أنه بمجرد كتابة رقم المستند المراد الانتقال إليه والضغط على إنتر سينتقل بك للجزء المطلوب ، ويعتمد الكود ببساطة على البحث عن الرقم المطلوب في العمود الثالث من خلال استخدام Match فإذا وجد الرقم يتم الانتقال باستخدام طريقة GoTo 

الجزء الثاني إضافة لم تطلبها وهي لتسهيل الرجوع إلى الخلية K1 حيث بعد الانتقال للمستند المطلوب يتم النقر المزدوج في أي خلية في العمود الثالث فينقلك الكود إلى الخلية K1

تقبل وافر تقديري واحترامي

15-11-2022 03:02 مساء
مشاهدة مشاركة منفردة [4]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 41
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif حلقة تكرارية
استاذ ياسر شكرا على الرد .
وحقيقى ماكنتش متخيل انة حايكون كدة.
ربنا يزيدك من فضلة ويرزقك الصحة ويبارك فى اولادك
حقيقى شكرا

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



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


 










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

الساعة الآن 05:50 مساء