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

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


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


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





اصافة زر استعلام أو هايبرلينك

السلام عليكم أساتذة كل عام و انتم بخير اريد المساعدة في هذا الموضوع بحيث لما أقف على سطر يخص تلميذ معين مثلا السطر 12 ( ..



05-01-2020 08:10 مساء
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
قوة السمعة : 45
الاعجاب : 3
 offline 
السلام عليكم أساتذة
كل عام و انتم بخير
اريد المساعدة في هذا الموضوع بحيث لما أقف على سطر يخص تلميذ معين مثلا السطر 12 ( الشيخ سناء) , في العمود S (شهادة مدرسية ) لما ضغط على الخلية S12 يديني مباشرة لشيت شهادة مدرسية و عليها كل معلومات التي تخص هذا التلميذ (كعمل هايبرلينك) و نفس الشئ بخصوص العمود T (استدعاء) و العمود U (عقوبة)
و شكرا لكم
 
 
  copie.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(130.72) KB





05-01-2020 10:10 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8673
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25549
الاعجاب : 205
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
وعليكم السلام
جرب الكود التالي في حدث ورقة العمل المسماة data

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 11 And Target.Column = 19 Then
        Cancel = True
        
        With ThisWorkbook.Worksheets("شهادة مدرسية ")
            .Activate
            .Range("M5").Value = Target.Row - 11
        End With
    End If
End Sub




06-01-2020 11:29 صباحا
مشاهدة مشاركة منفردة [2]
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
قوة السمعة : 45
الاعجاب : 3
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
ألف شكر أستاذ ياسر
لو اردت تطبيق الكود على العمودين المتبقين # عقوبة -  استدعاء # فهل هذه هي المتغيرات المسطرة باللون الأحمر
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 11 And Target.Column = 19 Then
        Cancel = True
        
        With ThisWorkbook.Worksheets("شهادة مدرسية ")
            .Activate
            .Range("M5").Value = Target.Row - 11
        End With
    End If
End Sub
 
و هل أضيف الكود في نفس الموضع . و شكرا




06-01-2020 02:34 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8673
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25549
الاعجاب : 205
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
نعم أخي الكريم يمكنك إضافة المزيد من الشروط للتعامل مع نظاقات وأعمدة أخرى مثل هذا السطر
If Target.Row > 11 And Target.Column = 19 Then

ولا تنسى أن جملة الشرط تقفل بـ End If وفي الداخل تضع التعليمات المطلوبة كما تريد ...

جرب بنفسك أن تعدل على الكود لتتعلم شيء جديد




06-01-2020 02:41 مساء
مشاهدة مشاركة منفردة [4]
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
قوة السمعة : 45
الاعجاب : 3
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
ألف تحية و ألف شكر




06-01-2020 05:07 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8673
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25549
الاعجاب : 205
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير




06-01-2020 08:12 مساء
مشاهدة مشاركة منفردة [6]
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
قوة السمعة : 45
الاعجاب : 3
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
تم نسخ و تطبيق الكود على الأعمدة الأخرى بنجاج
فألف ألف تحية لكل الأساتذة و للأستاذ ياسر بالخصوص.






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اريد كيفية استخدام دالة SUMIFS في هذه الحالة واستعلام عن بيانات عبد الله السعيد
2 207 عبد الله السعيد
سؤال عن استعلام البيانات khaled alborene
12 341 khaled alborene
البحث و الاستعلام فى الاكسيل salim5d
14 1346 Excelawy
طلب كود استعلام صوت الرحيل
5 389 صوت الرحيل
استعلام عن كلفة كل دار خالد ابوعوف
3 399 YasserKhalil

الكلمات الدلالية
اصافة ، استعلام ، هايبرلينك ،


 







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

الساعة الآن 08:15 صباحا

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