محمد يحياوي

الاخ الحبيب "خبور خير" تشرفت بمرورك ...تقبل الله منا و منك الصيام و القيام

كود لتحويل المعادلات الى قيم للاستاذ الفاضل "خبور خير" بارك الله فيه. Option Explicit Sub Kh_Formula_To_Value() Dim MyCalcu As XlCalculation With Application MyCalcu = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With '===================================== '////////////////////////////////////// '===================================== ' هنا تضع النطاق والمعادلة التي تريد تحويلها قيم ' Formula_To_Value باستخدام '===================================== ' T هنا المعادلة اللي في العمود Formula_To_Value Range("T5:T30"), "=RC[-2]*RC[-1]" ' x هنا المعادلة اللي في العمود ' مثل عمل كود الاخ كيماس Formula_To_Value Range("X5:X30"), "=IF(COUNTIF(RC16:R30C16,RC16)=1,SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20)),"""")" ' Y هنا المعادلة اللي في العمود Formula_To_Value Range("Y5:Y30"), "=SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20))" '===================================== '////////////////////////////////////// '===================================== With Application .ScreenUpdating = True .Calculation = MyCalcu End With End Sub ================================================= Sub Formula_To_Value(MyRng As Range, MyFormula As Variant) With MyRng .ClearContents .Formula = MyFormula .Cells = .Value End With End Sub كود تحويل المعادلات الى قيم.rar

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

الاخ الحبيب "يحي حسين" بارك الله فيك و شكرا لانك طمنتنا على الاخوة الكرام "ابواسامة العينبوسي" "زياد علي" "ابو ثامر" و ندعوا الله في هذه الايام المباركة ان يفرج همهم و يوفقهم و يعيدهم الينا سالمين غانمين ان شاء الله

كود تعطيل قائمة زر الماوس الايمن Sub DisableAllShortcutMenus() Dim cb As CommandBar For Each cb In CommandBars If cb.Type = msoBarTypePopup Then _ cb.Enabled = False Next cb End Sub DisableAllShortcutMenus.rar

كل عام وانتم بخير تعديل بسيط على كود استاذنا طارق و ذلك لتحديد النطاق دون التعبئة select rang2.rar

كود حفظ ملف باسم في مجلد المستندات save file.rar

كود فتح ملف موجود في المستندات open file.rar

الاخ الكريم مشاركة بسيطة ...الكود : Sub yh_OpenExcelFile() Dim FN As String FN = Range("A1") Workbooks.Open Filename:=FN End Sub open file.rar

الاخ الحبيب "كيماس" بارك الله فيك و تقبل الله منا ومنك

الاخ الحبيب "ابو الحارث" بارك الله فيك و تقبل منا ومنك صالح الاعمال

شكرا لك اخي الحبيب "ابو عبد الله" و تقبل الله منا ومنك

الاخ الحبيب "ابو احمد" بارك الله فيك و تقبل منا ومنك صالح الاعمال

الاخ الحبيب و الاستاذ الفاضل "عادل حنفي" شكرا و تقبل الله منا ومنك

اخواني الكرام تحية طيبة بمناسبة قدور شهر رمضان المبارك اعاده الله على الامة الاسلامية بالخير و البركة و تقبل الله منا ومنكم صالح الاعمال كود لفتح منتدى الاكسل في منديات اوفيسنا كود فتح منتدى اوفيسنا.rar

اخواني الكرام تحية طيبة بمناسبة قدور شهر رمضان المبارك اعاده الله على الامة الاسلامية بالخير و البركة و تقبل الله منا ومنكم صالح الاعمال كود لفتح منتدى الاكسل في منديات اوفيسنا كود فتح منتدى اوفيسنا.rar

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

الاخ الكريم المعادلة الاولى واضحة F3-E3 بالنسبة للمعادلة الثانية IF(G3="";0;H3+I3-G3) اذا الخلية G3 فارغة فاعطيني القيمة 0 حتى لايكون خطأ في النتيجة اما غير ذلك احتسب مجموع الخليةH3 و الخليةI3 التي قيمتها 24 سا(مخفية) و نطرح منها قيمة الخلية G3 في الاخير نجمع المعادلتين =F3-E3+IF(G3="";0;H3+I3-G3) ثم دور جمه ساعات العمل نستعمل المعادلة =SUM(J3:J21) لا ننسى تنسيق الخلايا [h]:mm

الاخ الكريم زيادة في اثراء الحلول بعد التحية لكل الاخوان و الاستاذ هشام هذا مثال اخر حسب المثال الذي رفعته سابقا احتساب ساعات العمل.rar

الاخ الكريم يفيدك هذا الرابط النسخ الاحتياطي

الاخ الكريم لا تصرف النظر عن حل المشكلة ارجوك... فكلنا نريد ان نتعلم من بعض و الاراء قد تختلف و تتنوع و هذا لاثراء الموضوع و زيادة في التعلم وفقك الله

الاخ العزيز "ابو احمد" بارك الله فيك و تقبل الله منا و منك

شكرا جزيلا اخي khhanna بارك الله فيك

الاخ العزيز كيماس جزاك الله خيرا... شكرا على الرابط