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

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


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



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





اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة

السلام عليكم اخوانى الاعزاء اتمنى من حضراتكم المساعدة فى اضافة امر ما فى هذا الكود والكود للاستاذ حسام الصقر وقام الاستا ..



18-06-2019 04:28 مساء
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 

السلام عليكم اخوانى الاعزاء اتمنى من حضراتكم المساعدة فى اضافة امر ما فى هذا الكود والكود للاستاذ حسام الصقر وقام الاستاذ حسام بالاجابة على هذا السؤال وهو انه لدى خلية وهى B3 اريد ان اكتب مثلا رقم 3 فيها يقوم كود ما بتحديد"تظليل مثلما اضغط زر كنترول مع زر الفأرة الايسر" يحدد كل الخلايا اللتى تساوى نفس قيمة B3 لكن فى العمود B ويبدأ العمل فى العمود من الخلية لB9 الى اخر البيانات و الان احتاج اضافة داخل هذا الكود وهى كل خلية قام الكود بتحديدها يحدد معها او امامها10صفوف فى نفس الصف يعنى قام الكود بتحيد خليه B15 يحدد حتى K15 وهكذا مع كل خلية تم تحديدها من قبل الكود وشكرا لكم جميعا
 
 
  نسخة من تحديد الخليه المطابق لقيمة خليه محدده.rar   تحميل rar مرات التحميل :(1)
الحجم :(35.438) KB







18-06-2019 08:41 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
ربما هذا الماكرو يفي بالغرض


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$3" Then
SALIM_MADRO
End If
Application.ScreenUpdating = True

End Sub
'=========================
Sub SALIM_MADRO()
If Range("B3") = "" Then Exit Sub
Dim My_rg As Range
Dim Ro%: Ro = 3
Dim my_ro%
Dim FR As Range

Range("B8").CurrentRegion.Offset(1).Interior.ColorIndex = xlNone
 Set FR = Range("B:B").Find(Range("B3"), after:=Cells(8, 2), LOOKAT:=1)
  If Not FR Is Nothing Then
   my_ro = FR.Row
   Do Until my_ro = Ro
        '=====================
        If My_rg Is Nothing Then
            Set My_rg = Cells(my_ro, 2).Resize(1, 9)
            Else
            Set My_rg = Union(My_rg, Cells(my_ro, 2).Resize(1, 9))
        End If
            '===========================
        Set FR = Range("B:b").FindNext(FR)
       my_ro = FR.Row
   Loop
    If Not My_rg Is Nothing Then _
    My_rg.Interior.ColorIndex = 6
  End If
End Sub


الملف مرفق
 
 
 
  SELECT_ROWS.rar   تحميل rar مرات التحميل :(5)
الحجم :(35.287) KB


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




18-06-2019 10:00 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1072
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4581
الاعجاب : 276
 Online 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
أحسنت استاذ سليم عمل رائع بارك الله فيك وجزاك الله خير الثواب

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


18-06-2019 11:10 مساء
مشاهدة مشاركة منفردة [3]
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة

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





18-06-2019 11:24 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
تم التعديل
 
 
  SELECT_ROWS_new.rar   تحميل rar مرات التحميل :(4)
الحجم :(35.024) KB


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




19-06-2019 03:58 مساء
مشاهدة مشاركة منفردة [5]
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
استاذ سليم انا جربت الكود لكن الكود ده وظيفته انه يحدد بتنسيق شرطى وهذا ليس المطلوب المقصود هو. ان الكود  يعمل تحديد اى اختيار للخلايا اللى هى select للخلايا لانى هنسخ اللى تم تحديده لملف اخر  انا مش عايز تنسيقات اصلا استاذى اسف على ازعاجك





21-06-2019 04:16 مساء
مشاهدة مشاركة منفردة [6]
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
الاخوة الاعضاء اريد المساعدة من حضراتكم فى موضوعى





21-06-2019 07:09 مساء
مشاهدة مشاركة منفردة [7]
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 280
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 445
الاعجاب : 7
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
أعتقد استاذ عمر انه لا يوجد مساعدة افضل مما تقدم لك من الأستاذ الكبير سليم فقد قدم لك افضل الأكواد وليس هناك اكثر من ذلك





21-06-2019 09:45 مساء
مشاهدة مشاركة منفردة [8]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
المشاركة الأصلية كتبت بواسطة: Omar2
الاخوة الاعضاء اريد المساعدة من حضراتكم فى موضوعى

استبدل الكود الى هذا  (فقط لتحديد)

Sub SALIM_Selct_Range()
If Range("B3") = "" Then Exit Sub
Dim My_rg As Range
Dim Ro%: Ro = 3
Dim my_ro%
Dim FR As Range

'Range("B8").CurrentRegion.Offset(1).Interior.ColorIndex = xlNone
 Set FR = Range("B:B").Find(Range("B3"), after:=Cells(8, 2), LOOKAT:=1)
  If Not FR Is Nothing Then
   my_ro = FR.Row
   Do Until my_ro = Ro
        '=====================
        If My_rg Is Nothing Then
            Set My_rg = Cells(my_ro, 2).Resize(1, 9)
            Else
            Set My_rg = Union(My_rg, Cells(my_ro, 2).Resize(1, 9))
        End If
            '===========================
        Set FR = Range("B:b").FindNext(FR)
       my_ro = FR.Row
   Loop
    If Not My_rg Is Nothing Then _
    My_rg.Select
  End If
End Sub

 

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




22-06-2019 01:15 مساء
مشاهدة مشاركة منفردة [9]
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
استاذ سليم كل لما اضغط على زر تشغيل الماكرو يعطينى خطأ وصورت الخطأ لحضرتك
 
  IMG20190622130722[1].jpg   تحميل jpg IMG20190622130722[1].jpg مرات التحميل :(1)
الحجم :(2927.552) KB
 






22-06-2019 01:25 مساء
مشاهدة مشاركة منفردة [10]
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
المشاركة الأصلية كتبت بواسطة: هانى على
أعتقد استاذ عمر انه لا يوجد مساعدة افضل مما تقدم لك من الأستاذ الكبير سليم فقد قدم لك افضل الأكواد وليس هناك اكثر من ذلك

استاذ هانى اعلم الاستاذ سليم ساعدنى هذه المرة وقبل ذلك مرات عدة ولا اريد ان اجهده فى حل سؤالى لكن اخى هانى الاستاذ سليم اعطانى الحل الاول وليس هو المطلوب لى فماذا اصنع الا ان اطلب الطلب مرة اخرى فعذرا لتعبه ومجهوده اللذى يبذله لنا جزاه الله خيرا





27-06-2019 10:15 صباحا
مشاهدة مشاركة منفردة [11]
Omar2
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2019
رقم العضوية : 11381
المشاركات : 54
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
يتابعهم : 18
يتابعونه : 0
قوة السمعة : 61
الاعجاب : 13
 offline 
look/images/icons/i1.gif اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة
اعضاء المنتدى الطيب اليس من احد يساعدنى فى مطلبى هذا من فترة وانا رفعت الموضوع وانتظر المساعدة من حضراتكم






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة محمد الدسوقى
23 1163 sobhi67
كيف يتم تحديد الشيت المراد التعديل عليه من خلال كود التعديل: تعالوا حليتها aljathmai
11 559 aljathmai
كود كود لتحديد اى ورقة عمل ابراهيم الحداد
4 820 ابراهيم الحداد

الكلمات الدلالية
المحددة ، الخلية ، قيمة ، تساوى ، قيمتها ، تكون ، اللتى ، الخلايا ، تحديد ، اضافة ،


 







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



الساعة الآن 10:26 مساء

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