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


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





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

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



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

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

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

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



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




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

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



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




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

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


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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

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

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


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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

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




09-12-2017 01:06 صباحا
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 501
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 84
قوة السمعة : 1421
الاعجاب : 503
 offline 
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 مرات التحميل :(22)
الحجم :(12.807) KB


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


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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

09-12-2017 06:55 مساء
مشاهدة مشاركة منفردة [8]
عبدالقادر محمد مهدى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2035
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 13-4-1964
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 23
الاعجاب : 5
 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 أبجدى من (أ : ي )
واكون لك من الشاكرين وادعو لك بظهر الغيب.

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



09-12-2017 07:14 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 501
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 84
قوة السمعة : 1421
الاعجاب : 503
 offline 
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
يتابعونه : 1
قوة السمعة : 23
الاعجاب : 5
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات
أخى الكريم محمود
هذا ما أردت جزاك الله خيرا وذادك علماً ونفع بك
شكراً لك. يامحترم
وتحياتي وتقديرى لجميع القائمين على هذا الصرح العظيم

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



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




19-12-2017 08:30 صباحا
مشاهدة مشاركة منفردة [12]
karwan
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 83
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 88
الاعجاب : 34
 offline 
look/images/icons/i1.gif مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات

جزاكم الله خيرا








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

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


 







الساعة الآن 11:07 صباحا

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