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

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

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




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





كتابة المعادلات في محرر الاكواد

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



22-04-2018 03:48 مساء
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 61
الاعجاب : 21
 offline 

اساذتي الاعزاء السلام عليكم ورحمة الله وبركاته 
بارك الله فيكم على مجهوداتكم المبذولة لمساعدة الاعضاء في هذا المندى الجيد ...الرجاء مساعدتي في الاجابة على السؤال الموجود في الملف المرفق
 
 
  كتابة المعادلات في محررالاكواد.rar   تحميل rar مرات التحميل :(13)
الحجم :(16.313) KB







22-04-2018 05:38 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5201
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 341
قوة السمعة : 15065
الاعجاب : 5638
 offline 
look/images/icons/i1.gif كتابة المعادلات في محرر الاكواد
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim a           As Variant
    Dim x           As Variant
    Dim y           As Double
    Dim c           As Long
    Dim i           As Long
    Dim j           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        a = ws.Range("C5:X" & ws.Cells(Rows.Count, 3).End(xlUp).Row).Value
    
        For i = LBound(a, 1) To UBound(a, 1)
            If a(i, 3) <> "" Then
                y = 0: c = 4
                x = Application.Match(a(i, 3), sh.Columns(3), 0)
    
                If Not IsError(x) Then
                    For j = 4 To 19 Step 3
                        a(i, j + 1) = sh.Cells(x, c).Value
                        a(i, j + 2) = Val(a(i, j)) + Val(a(i, j + 1))
                        If a(i, j + 2) = 0 Then a(i, j + 2) = ""
                        y = y + Val(a(i, j + 2))
                        c = c + 1
                    Next j
                    a(i, 22) = IIf(y = 0, "", y)
                Else
                    For j = 4 To 22
                        a(i, j) = ""
                    Next j
                End If
            End If
        Next i
    
        ws.Range("C5").Resize(UBound(a, 1), UBound(a, 2)).Value = a
    Application.ScreenUpdating = True
End Sub

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




22-04-2018 06:01 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 675
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 30
قوة السمعة : 3380
الاعجاب : 1087
 offline 
look/images/icons/i1.gif كتابة المعادلات في محرر الاكواد
جزاك الله كل خير استاذنا الكريم
حقا كود رائع-بارك الله فيك وجعله فى ميزان حسناتك

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


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


22-04-2018 09:09 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5201
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 341
قوة السمعة : 15065
الاعجاب : 5638
 offline 
look/images/icons/i1.gif كتابة المعادلات في محرر الاكواد
وجزيت خيراً بمثل ما دعوت لي أخي العزيز علي ومشكور على مرورك العطر

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




23-04-2018 09:03 مساء
مشاهدة مشاركة منفردة [4]
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 61
الاعجاب : 21
 offline 
look/images/icons/i1.gif كتابة المعادلات في محرر الاكواد
احسنت اخي الكريم ياسر الكود شغال زي الفل بس ياريت لو بالامكان شرح الكود بالتفصيل لأن البيانات اكثر من الموجود في الشيت المرفق 
وجزاك الله كل خير استاذنا الكريم

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




24-04-2018 02:53 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5201
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 341
قوة السمعة : 15065
الاعجاب : 5638
 offline 
look/images/icons/i1.gif كتابة المعادلات في محرر الاكواد
بارك الله فيك أخي الكريم
أعتذر عن شرح الكود لأنني لا أملك الوقت الكافي لذلك .. ربما يتبرع أحد الأخوة الأفاضل ويشرح الكود إن شاء الله






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حذف محتوى نطاق محدد مع الاحتفاظ بالمعادلات - أكاديمية الصقر للتدريب الصقر
41 2126 خالد عيسى
دمج وتجميع عدة ملفات خارجية فى ملف واحد بالمعادلات ali mohamed ali
4 450 محمد الهمامي
ربط مصنفين بالمعادلات محمد إبراهيم شرف
1 57 محمد إبراهيم شرف
ترحيل وفصل الناجحين والراسبين بالمعادلات أحمد يوسف
11 468 mohamed_omar
ترتيب الطلاب حسب الدرجة ثم السن الأصغر باستخدام المعادلات أباالحسن
8 145 الصقر

الكلمات الدلالية
المعادلات ، محرر ، الاكواد ، كتابة ،


 







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



الساعة الآن 03:44 مساء

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