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





مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات

اخواتى: الخبراء مطلوب: 1- ضافة حدود للخلايا التى بها بيانات كما فى الجدول 2- اضافة تسلل للبيانت بالعمود B وفقكم الله راب ..



07-12-2017 12:15 صباحا
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
اخواتى: الخبراء
مطلوب:
1- ضافة حدود للخلايا التى بها بيانات كما فى الجدول

2- اضافة تسلل للبيانت بالعمود B
وفقكم الله

رابط الملف
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 




07-12-2017 02:23 صباحا
مشاهدة مشاركة منفردة [1]
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
الانتظار صعب خاصة عندما يكون الشيء الذي تنتظره تحتاج اليه بشدة
 




07-12-2017 02:17 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
أخي العزيز عبد القادر
أعلم ما تقوله جيداً ولكن الأمر ليس بأيدينا فلكل منا ما يشغله في حياته .. ولو كان الأمر بيدي لقضيت لك حاجتك في أسرع وقت
إن شاء الله ننتظر مشاركات الأخوة الكرام .. ولعلها تكون قريبة

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



08-12-2017 01:17 مساء
مشاهدة مشاركة منفردة [3]
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
أشكرك أخى الكريم ياسر
وانا فى انتظار مشاركات الأخوة الكرام.
 




08-12-2017 04:59 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
لانى الان افتح المنتدى من موبايل ولا استطيع المشاركة باجابية اكثر من الاتى 
يمكنك استاذ عبد القادر متابعة الموضوع التالى وتقف منه على الاكواد الخاصة بالتنسيق وتطوعها كما تحب 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 

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


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



08-12-2017 05:01 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
لانى الان افتح المنتدى من موبايل ولا استطيع المشاركة باجابية اكثر من الاتى 
يمكنك استاذ عبد القادر متابعة الموضوع التالى وتقف منه على الاكواد الخاصة بالتنسيق وتطوعها كما تحب 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
وان شاء الله تقدر تطوعهم كنا تحب او عند التفرغ ننظر في الامر اكثر 
او ان شاء الله الخبراء يسعدوك

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


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



08-12-2017 11:42 مساء
مشاهدة مشاركة منفردة [6]
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
أخى الكريم محمود انا مش خبير انا بس بحاول اتعلم من بحركم الواسع
وانا مازلت فى انتظار حضارتكم
وأشكركم على اهتمامكم وكرم أخلاقكم.




09-12-2017 01:06 صباحا
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
تفضل التعديلين 
الاول الترقيم
الثانى التنسيق 

    Dim txt     As String
    Dim lr      As Long
    Dim i       As Long
    Dim r       As Long

    If Not Target.Address = Range("F5").Address Then Exit Sub

    Range("b7:g36").Clear 'Contents

    txt = Trim(Target)
    If Len(txt) < 1 Then Exit Sub

    With Sheets("31")
        lr = .Cells(.Rows.Count, "D").End(xlUp).Row
        For i = 1 To lr
            If txt = CStr(.Cells(i, "D")) Or txt = CStr(.Cells(i, "D")) Or InStr(CStr(.Cells(i, "C")), txt) Then
                Cells(r + 7, "C").Resize(1, 1).Value = .Cells(i, "C").Resize(1, 1).Value
                'Cells(r + 6, "C").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value
                'Cells(r + 6, "F").Value = .Cells(i, "H").Value
                Cells(r + 7, "b").Resize(1, 1).Value = r + 1
                r = r + 1
                If r = 30 Then Exit For
            End If
        Next i
    End With
    With Sheets("35")
    lr = .Cells(Rows.Count, 3).End(xlUp).Row

        .Range("b7:g" & lr).Borders.Weight = 3
        .Range("b7:g" & lr).VerticalAlignment = xlCenter
        .Range("b7:g" & lr).HorizontalAlignment = xlCenter
        .Columns("b:b").ColumnWidth = 10: .Columns("c:c").ColumnWidth = 35
        .Columns("d:f").ColumnWidth = 12: .Columns("g:g").ColumnWidth = 15
        .Cells.Font.Size = 12: .Cells.Font.Bold = True

    End With


والملف على المنتدى حتى يستفيد الاخوه الاعضاء
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تقبل تحياتى وتقديرى
 
 
  كود بحث.rar   تحميل rar مرات التحميل :(18)
الحجم :(12.807) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ناصر سعيد1،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 06:55 مساء
مشاهدة مشاركة منفردة [8]
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
[quote=محمود ابو الدهب]تفضل التعديلين 
الاول الترقيم
الثانى التنسيق 

    Dim txt     As String
    Dim lr      As Long
    Dim i       As Long
    Dim r       As Long

    If Not Target.Address = Range("F5").Address Then Exit Sub

    Range("b7:g36").Clear 'Contents

    txt = Trim(Target)
    If Len(txt) < 1 Then Exit Sub

    With Sheets("31")
        lr = .Cells(.Rows.Count, "D").End(xlUp).Row
        For i = 1 To lr
            If txt = CStr(.Cells(i, "D")) Or txt = CStr(.Cells(i, "D")) Or InStr(CStr(.Cells(i, "C")), txt) Then
                Cells(r + 7, "C").Resize(1, 1).Value = .Cells(i, "C").Resize(1, 1).Value
                'Cells(r + 6, "C").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value
                'Cells(r + 6, "F").Value = .Cells(i, "H").Value
                Cells(r + 7, "b").Resize(1, 1).Value = r + 1
                r = r + 1
                If r = 30 Then Exit For
            End If
        Next i
    End With
    With Sheets("35")
    lr = .Cells(Rows.Count, 3).End(xlUp).Row

        .Range("b7:g" & lr).Borders.Weight = 3
        .Range("b7:g" & lr).VerticalAlignment = xlCenter
        .Range("b7:g" & lr).HorizontalAlignment = xlCenter
        .Columns("b:b").ColumnWidth = 10: .Columns("c:c").ColumnWidth = 35
        .Columns("d:f").ColumnWidth = 12: .Columns("g:g").ColumnWidth = 15
        .Cells.Font.Size = 12: .Cells.Font.Bold = True

    End With


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

أخى الكريم محمود
هذا ما أردت جزاك الله خيرا وزادك علماً
ولى طلب بعد اذنك أخى الفاضل هو ترتيب الأسماء فى العمود C أبجدى من (أ : ي )
واكون لك من الشاكرين وادعو لك بظهر الغيب.




09-12-2017 07:14 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
تفضل هذا هو التعديل 


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim txt     As String
    Dim lr      As Long
    Dim i       As Long
    Dim r       As Long
    Application.ScreenUpdating = False

    If Not Target.Address = Range("F5").Address Then Exit Sub

    Range("b7:g36").Clear 'Contents

    txt = Trim(Target)
    If Len(txt) < 1 Then Exit Sub

    With Sheets("31")
        lr = .Cells(.Rows.Count, "D").End(xlUp).Row
        For i = 1 To lr
            If txt = CStr(.Cells(i, "D")) Or txt = CStr(.Cells(i, "D")) Or InStr(CStr(.Cells(i, "C")), txt) Then
                Cells(r + 7, "C").Resize(1, 1).Value = .Cells(i, "C").Resize(1, 1).Value
                'Cells(r + 6, "C").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value
                'Cells(r + 6, "F").Value = .Cells(i, "H").Value
                Cells(r + 7, "b").Resize(1, 1).Value = r + 1
                r = r + 1
                If r = 30 Then Exit For
            End If
        Next i
    End With
    With Sheets("35")
    lr = .Cells(Rows.Count, 3).End(xlUp).Row

        .Range("b7:g" & lr).Borders.Weight = 3
        .Range("b7:g" & lr).VerticalAlignment = xlCenter
        .Range("b7:g" & lr).HorizontalAlignment = xlCenter
        .Columns("b:b").ColumnWidth = 10: .Columns("c:c").ColumnWidth = 35
        .Columns("d:f").ColumnWidth = 12: .Columns("g:g").ColumnWidth = 15
        .Cells.Font.Size = 12: .Cells.Font.Bold = True

     .Range("b6:g" & lr).Sort Key1:=.Range("c7:c" & lr), Order1:=xlAscending, Header:=xlYes
    End With
    Application.ScreenUpdating = True
End Sub



تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:09-12-2017 07:16 مساء


أثارت هذه المشاركة إعجاب: ناصر سعيد1، الصقر،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 09:51 مساء
مشاهدة مشاركة منفردة [10]
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
أخى الكريم محمود
هذا ما أردت جزاك الله خيرا وذادك علماً ونفع بك
شكراً لك. يامحترم
وتحياتي وتقديرى لجميع القائمين على هذا الصرح العظيم

أثارت هذه المشاركة إعجاب: ناصر سعيد1، الصقر،



10-12-2017 12:03 صباحا
مشاهدة مشاركة منفردة [11]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
الاستاذ المحترم محمود ابو الدهب
ربنا يبارك فيك يارب
نريد شرحا لهذا الكود وخاصه لو اردنا زياده عدد الاعمده المستدعاه






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في تعديل الكود رمضان بكري
4 90 رمضان بكري

الكلمات الدلالية
مطلوب ، تعديل ، الكود ، لاضافة ، حدود ، للخلايا ، التى ، بيانات ،


 







الساعة الآن 03:01 صباحا