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



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





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

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



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

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







22-04-2018 05:38 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 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
المشاركات : 507
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 21
قوة السمعة : 2607
الاعجاب : 802
 Online 
look/images/icons/i1.gif كتابة المعادلات في محرر الاكواد
جزاك الله كل خير استاذنا الكريم
حقا كود رائع-بارك الله فيك وجعله فى ميزان حسناتك

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


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


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

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




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

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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حمايه المعادلات للاستاذ عماد غازي سوزي كارم
27 2436 YasserKhalil
ادخال دالة التقريب على كل المعادلات التي تحتوي على القسمة jjebril
32 268 YasserKhalil
تأمين و حماية المعادلات لحمايتها محمد النيل
15 217 salim
بطىء الملف ومشاكل فى المعادلات مهند محسن
4 67 YasserKhalil
طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات زياد عبد الجليل
8 136 YasserKhalil

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


 







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



الساعة الآن 02:09 صباحا

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