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


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


نتائج البحث عن ردود العضو :hben
عدد النتائج (6) نتيجة
01-12-2017 11:02 مساء
icon اسماء طلاب الدور التاني | الكاتب :hben |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
خلل طفيف في ملف أخي الكريم  زيزو العجوز فيما يخص مادة "الدراسات"، حيث تم وضع النطاق B7:AK لعمود "تقديرات" هذه المادة في الكود والصحيح هو AK7:AK... والله أعلم
بن علية حاجي
 
01-12-2017 01:18 مساء
icon اسماء طلاب الدور التاني | الكاتب :hben |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
أخي العزيز أبو أحمد، تعرف أني دائما ألجأ إلى المعادلات، وقد وضعت في الملف معادلات تفي بالغرض، ربما تجعل حجم الملف كبيرا وعمله بطيئا (حسب البيانات) لأن في عمود "رقم الجلوس" لكل قائمة معادلات صفيف... قد استعنت أيضا بترقيم عمود "تقديرات" لكل مادة في كل من شيت "رصد الترم الثاني" وشيت "مناداة الثاني" واستعنت أيضا بالتسمية Rng لئلا تكون المعادلات طويلة... أرجو أني وُفقت في الأمر في انتظار من يفيدنا بكود VBA لتسهيل عمل الملف..
أخوك بن علية

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
30-11-2017 09:08 صباحا
icon اضافه المسلسل لكود | الكاتب :hben |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
وهذا الملف الذي قمت بالتعديل عليه... مواضع التعديل تجدها بين سطرين من الشكل '=============================================================
أخوك بن علية

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
30-11-2017 01:21 صباحا
icon اداه لتفعيل الاوفيس والويندوز | الكاتب :hben |المنتدى: اكسيل شروحات ودروس
 السلام عليكم
لم أقل إن الملف هو الذي يحمل فيروسا بل الموقع الذي تم الرفع عليه... لذا طلبت رفع الأداة على سيرفر المنتدى ليستفيد الأعضاء (إذا أردت!)...
30-11-2017 01:07 صباحا
icon اضافه المسلسل لكود | الكاتب :hben |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
إذا أردت أن يكون التسلسل في العمود A فاستبدل الكود بالأعلى بالكود التالي:
    Sub Test()
    Dim arr     As Variant
    Dim temp    As Variant
    Dim lr      As Long
    Dim i       As Long
    Dim j       As Long
    Dim Main As Worksheet
    Dim sh As Worksheet
    Dim targt
    Set Main = Sheets("Received shipments")
    Set sh = Sheets("Shipments")
    targt = sh.Range("C1").Value
    sh.Range("A5:G5000").ClearContents
    lr = Main.Cells(Rows.Count, 1).End(xlUp).Row
    arr = Main.Range("A5:G" & lr).Value
    ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2))
    j = 1
    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 1) Like targt Then
                temp(j, 1) = j
                temp(j, 2) = arr(i, 1)
                temp(j, 3) = arr(i, 2)
                temp(j, 4) = arr(i, 4)
                temp(j, 5) = arr(i, 3)
                temp(j, 6) = arr(i, 5)
                temp(j, 7) = arr(i, 6)
            j = j + 1
        End If
    Next i
    With sh
        .Range("A5").Resize(j, UBound(temp, 2)).Value = temp
        .Range("A5:G" & Rows.Count).Borders.Value = 0
        .Range("A5:G" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1
    End With
End Sub

أخوك بن علية
30-11-2017 12:37 صباحا
icon اضافه المسلسل لكود | الكاتب :hben |المنتدى: اكسيل اسئله واجابات
 السلام عليكم 
أخي أبو أحمد، يُستحسن الملف الذي يحوي هذا الكود مع ذكر العمود الذي تريد أن يكون فيه التسلسل....
بن علية حاجي





الساعة الآن 04:42 صباحا