رامي الخبيري قام بنشر ديسمبر 5, 2012 قام بنشر ديسمبر 5, 2012 الحمد لله . . . قربت من الإنتهاء من الملف لكن تبقى جزء بسيط جدا , و هو عند تطبيق الخطة تتعارض أيام الأجازات مع أيم العطلات عند تطبيق المعادلة HOLIDAYS PROB.zip يا ريت المساعدة مرفق المثال
رامي الخبيري قام بنشر ديسمبر 6, 2012 الكاتب قام بنشر ديسمبر 6, 2012 مشكور على الرد أستاذي الفاضل الملف من غير كلمة سر و أرفقته مرة أخرى . . . HOLIDAYS PROB...zip
طارق محمود قام بنشر ديسمبر 12, 2012 قام بنشر ديسمبر 12, 2012 السلام عليكم أخي العزيز جرب المرفق ولاتنس عمل ريفريش للفورميلا بالضغط علي الزر HOLIDAYS PROB....rar
طارق محمود قام بنشر ديسمبر 12, 2012 قام بنشر ديسمبر 12, 2012 نسيت أعرفك ، لاداعي للعمود M الذي به أسماء (أرقام) الريجيليتورز فالدالة التي أنشئتها Reg تقوم بهذا الدور
رامي الخبيري قام بنشر ديسمبر 12, 2012 الكاتب قام بنشر ديسمبر 12, 2012 وعليكم السلام و رحمة الله و بركاته أستاذنا الفاضل هذا تماماً ما كنت أبحث عنه ,, لكن هناك بعض الملاحظات :- - أولا عدد الخلايا التي أريد أن أعمل لها concatd ليس ثابت , في المثال هنا 4 لكن ممكن يتغير . - أريد أن يكون نهاية العد عند نهاية الشهر و لا يدخل في شهر أخر ملحوظة أخيرة : لو يمكن أن يتم update للمعادلة أوتوماتيكيا ,, وللتوضيح أكثر أرفقت لك الملف النهائي الذي كنت أعمل عليه للتوضيح أكثر ,, حيث أنني لا أجيد vba أبدا أبدا و لا أعرف عنها شيئ
طارق محمود قام بنشر ديسمبر 12, 2012 قام بنشر ديسمبر 12, 2012 السلام عليكم أخي العزيز أضفت للدالة Reg عامل يمكنك من تحديد العدد ، يعني إستبدلنا reg() reg(n) حيث n هو عدد الريجيليتورز المطلوب وأنشئتها دالة مماثلة Valv تقوم بنفس الدور للمحابس وتم فصل كل شهر لوحده لكن موضوع الريفريش ، آسف ماعنديش وقت الآن يمكنك الإنتظار حتي يكون لدي وقت أو المرور علي كل خلية والضغط F2 ثم إنتر MAIN PLAN V1 0_2.rar بـ
رامي الخبيري قام بنشر ديسمبر 12, 2012 الكاتب قام بنشر ديسمبر 12, 2012 أشكر هذا المجهود العظيم جدا جدا جد لكن أفضــــل الإنتظـــــار , , لأن الموضوع يبدو أنه فيه نقاش كتير ,, بس ما تنساني أهم شيئ Rami و أسف لتعبك ,,
الـعيدروس قام بنشر ديسمبر 19, 2012 قام بنشر ديسمبر 19, 2012 السلام عليكم جرب هذا الكود لعمل تحديث Public Sub A_Ref() With Application .Volatile False Cells.Replace What:="=", Replacement:="=", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End With End Sub
رامي الخبيري قام بنشر ديسمبر 19, 2012 الكاتب قام بنشر ديسمبر 19, 2012 أخي أبو نصار . . . وجدت أكواد للتحديث . . . ولكن سأجرب هذا الكود لكن مازالت هناك بعض المشاكل في الكود الأصلي . .
طارق محمود قام بنشر ديسمبر 20, 2012 قام بنشر ديسمبر 20, 2012 السلام عليكم أخي أبو نصار . . . وجدت أكواد للتحديث . . . ولكن سأجرب هذا الكود لكن مازالت هناك بعض المشاكل في الكود الأصلي . . أخي العزيز بالنسبة لأكواد للتحديث ، فقد حاولت لك ولم اوفق الأفضل ان تضعها في مشاركة (حيث أنك وجدتها) ليستفيد بها من أراد ثم ماهي المشاكل التي عندك بالكود الأصلي
رامي الخبيري قام بنشر ديسمبر 20, 2012 الكاتب قام بنشر ديسمبر 20, 2012 أخي الكريم أ / طارق أسف جدا . . . لعلي أسأت التعبير كنت أقصد أن هناك مشاكل في فهمي للكود الأصلي و كنت أرجو مناقشتها معك أعتــــــذر
رامي الخبيري قام بنشر ديسمبر 20, 2012 الكاتب قام بنشر ديسمبر 20, 2012 وجدت أكواد تحديث في هذا الرابط http://www.excelforum.com/excel-general/610733-how-to-automatically-refresh-formulas.html و ما زلت أجربها
طارق محمود قام بنشر ديسمبر 20, 2012 قام بنشر ديسمبر 20, 2012 لابأس أخي المهم بعد تجربتها أخبرنا حتي كود أخونا الغالي / أبانصار (حفظه الله) أنا جربته لم يعمل فما نحتاجه هو عمل ريفريش لدالة مستحدثة تأخذ بياناتها من دالة مستحدثة أخري حتي الآن : أنا لم أستطع عملها وبالنسبة للكود الأصلي ، حدد ماتريد من نقاط للمناقشة
الـعيدروس قام بنشر ديسمبر 20, 2012 قام بنشر ديسمبر 20, 2012 هذا الكود فعلا يحدث المعادلات من الموقع الذي اشرت اليه Sub UpdateFormulae() Application.ScreenUpdating = False On Error Resume Next Dim ws As Worksheet Dim rRange As Range Dim curCell As Range Set rRange = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) For Each curCell In rRange curCell.Select curCell.FormulaR1C1 = curCell.FormulaR1C1 Next Application.ScreenUpdating = True End Sub
رامي الخبيري قام بنشر ديسمبر 20, 2012 الكاتب قام بنشر ديسمبر 20, 2012 اليوم الثاني في الشهر الأول عدد V فيه غير مكتمل 3 فقط و ليس 5 كباقي الأيام في أي خليه يمكنني تحديد عدد reg و Valve
طارق محمود قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 السلام عليكم أخي العزيز اليوم الثاني في الشهر الأول عدد V فيه غير مكتمل 3 فقط و ليس 5 كباقي الأيام أنا متعمد أغير الرقم لأوضح لك أن الدالة مرنة وتأخذ بعد ماسبقها بالعدد الذي تحدده أنت ففي هذه الحالة الدالة تكتب لك أرقام 3 فالفات (محابس) بعد آخر رقم محجوز أعلاها يعني الخلية التي تسبقها بالأعلي بها حتي V5 ، إذن فهي ستبدأ أوتوماتيكيا من V6 وبالعدد الذي تضعه نت بالدالة 3 أو 5 أو حتي 1 ، كما تحب في أي خليه يمكنني تحديد عدد reg و Valve من فهمي للموضوع أنشئت لك دالتين الأولي Valv للمحابس Valves الثانية reg للمنظمات regulators تستخدمهما كما تشاء ، مثلا العمودين C,D بهما محابس فالأولي إستخدام الأولي أرجو أن أكون وفقت في الشرح
طارق محمود قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 السلام عليكم أخي الحبيب الغالي / أبانصار جزاك الله خيرا هذا الكود فعلا يحدث المعادلات من الموقع الذي اشرت اليه Sub UpdateFormulae() Application.ScreenUpdating = False On Error Resume Next Dim ws As Worksheet Dim rRange As Range Dim curCell As Range Set rRange = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) For Each curCell In rRange curCell.Select curCell.FormulaR1C1 = curCell.FormulaR1C1 Next Application.ScreenUpdating = True End Sub أخي الحبيب هذا الكود يحدث المعادلات في ملفات أخري و لكن لايعمل مع ملفنا هذا ، كمت أشرت من قبل فما نحتاجه هو عمل ريفريش لدالة مستحدثة تأخذ بياناتها من دالة مستحدثة أخري وحتي الآن الطريقة التي أراها أن يتم التحديث يدويا ولابد أن يكون من أعلي لأسفل لتفهم قصدي، إرجع للملف - ثم حدث مثلا الخلية C15 ثم إرجع للأعلي وحدث الخلية C12 والآن إرجع مرة أخري للخلية C15 وحدثها ستتغير النتيجة عما كانت عليه أرجو أن تكون وضحت المشكلة
رامي الخبيري قام بنشر ديسمبر 21, 2012 الكاتب قام بنشر ديسمبر 21, 2012 جزاك الله عنا كل خير أخي الكريم . . سأكمل و لو هناك مشاكل واجهتني . . سأعتبر نفسي أخيك الصغير و لا أتردد في طرحها
الـعيدروس قام بنشر ديسمبر 22, 2012 قام بنشر ديسمبر 22, 2012 السلام عليكم استاذي الحبيب طارق محمود ارجو تجربة هذا الكود في حدث الورقة رغم اني لم افهم طريقة التحديث التي تنشط الدوال المركبه هل المقصود F2 ثم Enter اكثر من مره للخليه ؟ Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Count = 1 And Target.HasFormula = True Then Target.Calculate End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.