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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :عبدالقادر محمد مهدى
عدد النتائج (2) نتيجة
09-12-2017 09:51 مساء
icon مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات | الكاتب :عبدالقادر محمد مهدى |المنتدى: اكسيل اسئله واجابات
 أخى الكريم محمود
هذا ما أردت جزاك الله خيرا وذادك علماً ونفع بك
شكراً لك. يامحترم
وتحياتي وتقديرى لجميع القائمين على هذا الصرح العظيم
09-12-2017 06:55 مساء
icon مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات | الكاتب :عبدالقادر محمد مهدى |المنتدى: اكسيل اسئله واجابات
 [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 أبجدى من (أ : ي )
واكون لك من الشاكرين وادعو لك بظهر الغيب.





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