ياسر خليل أبو البراء

الأخ الحبيب الشاب عمار روح لمحرر الأكواد Alt + F11 (لو صعبة أشرحها بالتفصيل أو ادخل على سلسلة حلقات افتح الباب) تعال في الموديول اللي عايز تنسخه للورد ضع المؤشر في أي مكان داخل الموديول من لوحة المفاتيح اضغط Alt + Shift يمين لتغيير لغة الكتابة للغة العربية اكتب حرف واتأكد إنه بيكتب عربي اتأكدت إنه بيكتب عربي امسح الحرف اللي كتبته حدد الكود بالكامل عن طريق Ctrl + A أو بالماوس اسحب المطلوب نسخه روح للورد وافتحه وبعدين الصق اللي نسخته هتلاقي إن شاء الله بإذن الله العربي مبقاش فرنساوي ..هتلاقيه عربي بخيره

بسم الله ما شاء الله أخي شوقي موسوعة .... في انتظار حلقة منك لشرح المصفوفات Arrays من البداية نظراً لأهميتها القصوى وفائدتها الكبيرة وقلة علمنا بها

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

بارك الله فيك يا مستر محمد وفي انتظار المزيد من طلباتك المفيدة والجديدة ، وفي انتظار أيضاً مساهماتك الفعالة في المنتدى (كن معطاءاً .. عندها ستستفيد أكثر مما تفيد) : حكمة اليوم

تسلم يا أبو إيمان فكرة جميلة جداً بارك الله فيك ..شكلك بدأت تشتغل شغل عالي .. شكلنا هنطلع ع المعاش قريب .. تقبل تحياتي القلبية

الأخ الفاضل نور وحيد (وبعدين إزاي وحيد وإنت في منتدى أوفيسنا) أشرت إليك أنني وضعت تعليق على آخر سطر بالكود قبل نهاية End Sub فقط ليتم تفعيله قم بإزالة علامة Apostrophe اللي في أول السطر .. عشان يكون السطر فعال WS.Range("B3:H100").ClearContents بالنسبة للشرح .. هل تحتاج إلى معرفة الأجزاء المراد التعديل عليها أم معرفة كل أسطر الكود

أخي الفاضل عمار عند النسخ اجعل اتجاه الكتابة للغة العربية ثم قم بالنسخ وإن شاء الله تظبط معاك ..

الأخ الحبيب أيمن جرب الملف التالي ... وإن شاء الله يفي بالغرض Print All Schools.rar

الأخ الفاضل نور وحيد جرب المرفق التالي .. آخر سطر بالكود قمت بوضع تعليق عليه وهو خاص بمسح المحتويات بعد عملية الترحيل Transfer Data To Different Sheets.rar

الأخ الفاضل محمود بك إليك شرح للخطوط العريضة فقط وليس لتفاصيل المعادلة Transfer Data Based On Two Conditions By Formulas Help.rar

جرب الملف التالي إذا كانت المشكلة في التسلسل .قمت بعمل معادلة بسيطة تسيتطيع بها أن تتغلب على التسلسل طباعة.rar

أخي أيمن .. المدارس كما لاحظت في ملفك تظهر بمجرد التغيير في الخلية AA2 ...ما المطلوب إذاً إذا كانت كل مدرسة تظهر بمجرد أن تغير الرقم في الخلية المذكورة .؟؟ وضح بشكل أكثر لو سمحت

أخي الفاضل يرجى عدم الالحاح في الطلب .. من لديه القدرة على المساعدة ، سيقوم بذلك بدون إلحاح .. تفضل الملف المرفق بالمعادلات .. ومتنساش تحدد أفضل مشاركة اللي فيها الإجابة المطلوبة كأفضل إجابة تقبل تحياتي Transfer Data Based On Two Conditions By Formulas.rar

الحمد لله الذي بنعمته تتم الصالحات الحمد لله أن تم المطلوب على خير .. رغم إني مكنتش فاهم ايه المطلوب بالضبط ! حدد مشاركتي كأفضل إجابة (عشان عايز أزعل حمادة حبيبي) تقبل تحياتي

الأخ الفاضل الغندور إليك المرفق التالي .. Transfer Data Based On Two Conditions.rar

بعد تجربة الكود .. قمت بتجربة الكود مرة .. وعند تشغيل الملف للمرة الثانية ظهرت رسالة

الأخ الحبيب مختار بارك الله فيك وجزاك الله خير الجزاء بقالك أسبوع في بالي (بس مش عارف أوصلك إزاي وأسأل عليك إزاي .. متبقاش تتأخر علينا .. بالي ارتاااااااااح والحمد لله) تقبل تحياتي

قم بضغط ملفك وقم برفعه ليسهل مساعدتك

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

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

لم أدرك جيدا المطلوب لكن جرب التالي Private Sub Workbook_Open() If Date > DateValue("10/3/2015") Then If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then MsgBox "كلمة المرور خطائة " ThisWorkbook.Close If CloseMode = vbFormControlMenu Then Cancel = True MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً " Application.DisplayAlerts = False Application.Quit End If Else MsgBox "تفضل بالدخول كلمة المرور صحيحة " UserForm2.Show Sheet3.Select Range("B1").Select Exit Sub End If End If End Sub

أخي الفاضل جرب الكود بهذا الشكل : Sub ClearSpeicific() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Range("A4:Z" & Cells(Rows.Count, 1).End(xlUp).Row) On Error Resume Next If Cell.Value = "ــ" Or Cell.Value = "ــــــ" Or Cell.Value = "*" Or Cell.Value = "//" Or Cell.Value = "لا يوجد" Then Cell.Value = "" Next Cell Application.ScreenUpdating = True End Sub وبعد إذنك بلاش رسائل خاصة ..قم بالمشاركة في الموضوع ، هذا لأنني أنسى الموضوعات أساسا التي شاركت فيها .. كل ما عليك أن تطرح مشكلتك الجديدة في المنتدى ، ليقوم بمساعدتك من لديه الوقت والعلم ، وأنا مش هبخل عليك في المرة التانية .. مبخلتش عليك في الأول يبقا مش هبخل عليك تاني (مش كدا ولا ايه)

الأخ الكريم أبا اسماعيل الموضوع بسيط بعد إذن أخي وحبيبي في الله سليم Sub Clear_not_Formulas() Dim wks As Worksheet Set wks = ActiveSheet wks.Rows("10:54").SpecialCells(xlCellTypeConstants, 23).ClearContents Set wks = Nothing End Sub

جرب هذه الدالة .. Function VOL(Rad, Length, Height) Dim X, Y X = Application.WorksheetFunction.Acos((Rad - Height) / Rad) * 2 Y = Sin(X) / 2 VOL = Rad * Rad * (X - Y) * Length End Function

ممكن تعطينا مثال حي .. بأرقام ونتائج معمولة بشكل يدوي .. حتي نتأكد من خطوات سير الدالة