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

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


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


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





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

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



05-01-2020 08:10 مساء
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 74
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 34
الاعجاب : 4
 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
المشاركات : 8424
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24568
الاعجاب : 2767
 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

أثارت هذه المشاركة إعجاب: ali mohamed ali، حسين مامون، أحمد يوسف،



06-01-2020 11:29 صباحا
مشاهدة مشاركة منفردة [2]
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 74
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 34
الاعجاب : 4
 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
المشاركات : 8424
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24568
الاعجاب : 2767
 offline 
look/images/icons/i1.gif اصافة زر استعلام أو هايبرلينك
نعم أخي الكريم يمكنك إضافة المزيد من الشروط للتعامل مع نظاقات وأعمدة أخرى مثل هذا السطر
If Target.Row > 11 And Target.Column = 19 Then

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

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

أثارت هذه المشاركة إعجاب: ali mohamed ali، أحمد يوسف، ayoub2007،



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

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



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




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سؤال عن استعلام البيانات khaled alborene
12 182 khaled alborene
البحث و الاستعلام فى الاكسيل salim5d
14 1107 Excelawy
طلب كود استعلام صوت الرحيل
5 296 صوت الرحيل
استعلام عن كلفة كل دار خالد ابوعوف
3 328 YasserKhalil
الاستعلام عن ارقام الفواتير بدون تكرار عبدالرحمن صبحى
3 324 YasserKhalil

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


 







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

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

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