تعليم اكسيل vba للمبتدئين الجزء السابع مع عماد غازى Exel vba

[@waelharb4368]

الله يبارك فيك

[@EsraaAhmed-fw8mt]

جزاكم الله خيرا وجعله في ميزان حسناتك الي يوم الدين

[@amineboulassel6658]

بارك الله فيك كمل المشوار احنا معاك للأخر اخوكم من الجزائر

[@Mizoxdbz]

اللهم اجعلها في ميزان حسناتك يا رب

[@basmalakhaled1274]

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

[@المالكيالمالكى-ت7ذ]

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

[@dounia1981]

تحية من المغرب

[@kareamemad1361]

رووووووووووعة

[@bobakerbokatwa1210]

السلام عليكم ورحمة الله بارك الله فيك على مجهودك بس عندي سؤال لو سمحة او استفسار هو اني مش عايز في كل مرة يفتحلي شيت جديد وعايز الادخال في نفس الشيت الي انسخوفي البيانات يعني عايز يكون عندي شيتين شيت الواجه الرئيسية وشيت المنسوخلة البيانات فقط

[@manarnazar2232]

لماذا end sub قبل end if؟

[@learnmore4785]

إذا في طريقة إنه يخلي اسم الصفحة مثل اسم خالية الطالب بتكون أحلى وأفضل

[@akramragoubi723]

السلام عليكم:لقد وجدت مشكلة حيث أن البرنامج لا يعمل بشكل سليم عند ادخال اسم المدينة لايظهر شيئ مع العلم أني أعمل على (EXCEL 2007)

[@EsraaAhmed-fw8mt]

رمن فضل حضرتك عندي ملف اكسل عايزه اربط صفحة فيجول للادخال وصفحه للمخرجاتاوالتقاري

[@محمدجدوي-ت6ج]

و أنا أود أن أطبع بهذه الدالة عدة أوراق مرة واحدة"rechrchev"الأخ محمد من الجزائر ..لو سمحت لدي ورقة اكسال و فيها الدالة

[@ahmedalsayed8142]

أستاذ عماد لو تكرمت هو الكود ده غلط مش عايز يشتغل معاياالكود خاص بعمل معادلة مع الشكرSub Reception() End Sub Function Rx1(W As Single, L As Single, R As Single, area As Single, street As Single) As SingleIf W - L - R 3000 And W - L - R 3000 And W - L - R 1 Then Rx1 = W - LElseIf W - L - R > 4500 And W - L - R 6500 And W - L - R 80 Then Rx1 = W / 2 - LElseIf W - L - R > 8000 And W - L - R 80 Then Rx1 = W / 2 - 1300 - L ElseIf W - L - R > 8000 And W - L - R 1 And a > 80 Then Rx1 = W / 2 - LElseIf W - L - R > 10500 And W - L - R 10500 And W - L - R 1 And a > 80 Then Rx1 = W / 2 - LElseIf W - L - R > 12500 And W - L - R 12500 And W - L - R 1 And a > 80 Then Rx1 = W / 3 - LElseIf W - L - R > 14500 And W - L - R 14500 And W - L - R 1 And a > 80 Then Rx1 = W / 4 - LElseIf W - L - R > 16500 And W - L - R 16500 And W - L - R 1 And a > 80 Then Rx1 = W / 5 - LElseIf W - L - R > 18500 And W - L - R 18500 And W - L - R 1 And a > 80 Then Rx1 = W / 6 - LElseIf W - L - R > 22500 And W - L - R 22500 And W - L - R 1 And a > 80 Then Rx1 = W / 7 - LElseIf W - L - R > 24500 And W - L - R 24500 And W - L - R 1 And a > 80 Then Rx1 = W / 8 - LElseIf W - L - R > 26500 And W - L - R 26500 And W - L - R 1 And a > 80 Then Rx1 = W / 9 - LElseIf W - L - R > 28500 And W - L - R 28500 And W - L - R 1 And a > 80 Then Rx1 = W / 10 - L Else: Rx1 = W / 11 - LEnd IfEnd Function

[@northksa2547]

ملف العمل =منتهي الصلاحية

[@wiemifaoui2358]

[@Emad_ghazi]

♥