ضاحي الغريب

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

اخي الكريم / محمد مصطفي ماشاء الله لا اجد كلمات ترد علي تلك الدلات الجميلة الا جزاك الله خيرا تقبل تحياتي

أخي الكريم // محمد مصطفي تسلم ايديك حيلة جميلة ورائعة بارك الله فيك تقبل تحياتي

أخي الكريم / محمد مصطفي بارك الله فيك افكار جديدة وجميلة جزاك الله كل خير تقبل تحياتي

اخي الكريم // عبدالرحمن في حدث الفتح في ThisWorkbook ضـع الكـود التالي Private Sub Workbook_Open() UserForm1.Show End Sub يفتح لك الفورم بفرض ان الفورم لديك اسمه UserForm1

اخي الحبيب الاستاذ / سعيد بيرم (أبو سلمي) السلام عليكم ورحمة الله وبركاته أحببت ان اتوجه بالشكر لشخصكم الكريم علي تلك المبادرة الاولي من نوعها لمناقشة مرتبات السادة العاملين بالتربية والتعليم جعلها الله في ميزان حسناتك ونفع بها اخواننا بالتربية والتعليم وجعلنا الله واياك من الذين يعطون كل ذي حقا حقه تقبل تحياتي

اخي الحبيب الأستاذ// حمادة عمر ( روح المنتدي ) دائما وابدا مرورك يشرف اي موضوع ويشرفني انا شخصيا جزاك الله كل خير وبارك الله فيك تقبل تحياتي

اخي // عبدالرحمن بعد عناء في فهم المعادلة الاولي توصلت لحلها جرب واعلمني بالنتيجة المعادلة الثانية والتالية لحساب قيمة (Z) أرسلتها ناقصة اكملها ElseIf ComboBox1.Value = "Hall - Youbrough" Then R = 1 Y = 3 tt = 1 / Tpr Do Until R < 0.0001 a = ((0.06125 * Ppr ^ T)) * Exp((-1.2 * (1 - T) ^ 2)) b = (((Y) + (Y ^ 2) + (Y ^ 3) - (Y ^ 4)) / (1 - Y) ^ 3) c = (-((14.76 * tt) - (9.76 * tt ^ 2) + (4.58 * tt ^ 3)) * Y ^ 2) d = ((90.7 * tt) - (242.2 * tt ^ 2) + (42.4 * tt ^ 3)) * (Y ^ (2.18 + (2.82 * tt))) f = a + b + c + d df = ((1 + 4 * Y + 4 * Y ^ 2 - 4 * Y ^ 3 + Y ^ 4) / (1 - Y) ^ 4) - ((29.52 * tt) - (19.52 * tt ^ 2) + (9.16 * tt ^ 3)) * Y + (2.18 + 2.82 * tt) * (90.7 * tt - (242.2 * tt ^ 2) + (42.2 * tt ^ 3)) * (Y ^ (1.18 + 2.82 * tt)) Yn = Y - (f / df) R = Abs((Yn ^ 2) - Y ^ 2) Y = Yn Loop End If شركة البترول.rar

أستاذنا ومعلمنا

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

أخي الحبيب // ابوعلي التعديلات علي الملف القديم بالمرفقات تم اضافة الخيارات الجديدة راجع المرفق واعلمني بالنتيجة استمارة كتاب تأييد لحي القاهرة المعدل.rar

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

أخي // عبدالرحمن انا قمت باخذ الكود وقمت بتصيحيح ما استطعت فيه لكن في متغييرين مو عارف ووين مصدرهم ولا اساس حسابهم Ppr = P / PC Tpr = t / Tc المشكلة في P و T Tc موجودة pc موجودة

أخوي // عبدالرحمن انا المسميات التي اتبعتها فهمتها من الكود انت اشرح لي كل تكست بوكس معطياته وشروطه التي اضعها فيه وبعد نحاول نركب المعادلات بعد ما نضبط المسميات والشروط

وكذلك اين تظهر قيمة Z في الفورم واشرحلي استخدام التكسات في الفورم وانا احاول اركب لك المعادلة امسك الفورم الذي ارسلت ووضح لي كل تكست بوكس استخدامه وحدد لي التكسات التي تظهر فيها نتيجة z بالمرفقات ما توصلت اليه بعد عدة محاولات لكن الكود المرسل منكم ناقص وايضا وضح لي الخمس معادلا ت الخاصة بقيمة ((z)) شركة البترول.rar

اخي الكريم // عبدالرحمن السلام عليكم ورحمة الله وبركاته انا حاولت افك المعادلات التي ارسلتها اول مرة لكن يتفصني الفهم يعني قيمة z التي تبيها Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) وهذا الكود الذي ارسلت لي ياه مسبقا Private Sub ComboBox1_Change() If comboboxuniet.Value = "atm" Then P = Txt19.Value * 14.7 Else P = Txt19.Value End If If ComboBox3.Value = "F" Then t = TextBox10.Value + 460 Else t = TextBox10.Value End If Dim yc1 As Double Dim yc2 As Double Dim yc3 As Double Dim yic4 As Double Dim ync4 As Double Dim yic5 As Double Dim ync5 As Double Dim yc6 As Double Dim yc7 As Double Dim tt As Double yc1 = Txt1.Value Pc1 = 673 Tc1 = 343.5 yc2 = Txt2.Value Pc2 = 708 Tc2 = 550.1 yc3 = Txt3.Value Pc3 = 617 Tc3 = 666.2 yic4 = Txt4.Value Pcic4 = 527 Tcic4 = 734 ync4 = Txt5.Value Pcnc4 = 551 Tcnc4 = 765.6 yic5 = Txt6.Value Pcic5 = 490.4 Tcic5 = 929 ync5 = Txt7.Value Pcnc5 = 485 Tcnc5 = 847 yc6 = Txt8.Value Pc6 = 434 Tc6 = 914.6 yc7 = Txt9.Value Pc7 = 397 Tc7 = 972.8 Pc = Pci * yi = ((Pc1 * yc1) + (Pc2 * yc2) + (Pc3 * yc3) + (Pic4 * yic4) + (Pnc4 * ync4) + (Pic5 * yic5) + (Pnc5 * ync5) + (Pc6 * yc6) + (Pc7 * yc7)) Tc = Tci * yi = ((Tc1 * yc1) + (Tc2 * yc2) + (Tc3 * yc3) + (Tic4 * yic4) + (Tnc4 * ync4) + (Tic5 * yic5) + (Tnc5 * ync5) + (Tc6 * yc6) + (Tc7 * yc7)) If ComboBox1.Value = "Pay Pay" Then Ppr = P / Pc Tpr = t / Tc Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) TextBox20.Value = Zp ElseIf ComboBox1.Value = "Hall - Youbrough" Then R = 1 Y = 3 tt = 1 / Tpr Do Until R < 0.0001 a = ((0.06125 * Ppr ^ t)) * Exp((-1.2 * (1 - t) ^ 2)) b = (((Y) + (Y ^ 2) + (Y ^ 3) - (Y ^ 4)) / (1 - Y) ^ 3) c = (-((14.76 * tt) - (9.76 * tt ^ 2) + (4.58 * tt ^ 3)) * Y ^ 2) d = ((90.7 * tt) - (242.2 * tt ^ 2) + (42.4 * tt ^ 3)) * (Y ^ (2.18 + (2.82 * tt))) f = a + b + c + d df = ((1 + 4 * Y + 4 * Y ^ 2 - 4 * Y ^ 3 + Y ^ 4) / (1 - Y) ^ 4) - ((29.52 * tt) - (19.52 * tt ^ 2) + (9.16 * tt ^ 3)) * Y + (2.18 + 2.82 * tt) * (90.7 * tt - (242.2 * tt ^ 2) + (42.2 * tt ^ 3)) * (Y ^ (1.18 + 2.82 * tt)) Yn = Y - (f / df) R = Abs((Yn ^ 2) - Y ^ 2) Y = Yn Loop انا قدرت اخمن اسماء التكسات لكن لو استطعت ترسل لي موديل الذي يحتوي علي حساب z يكون افضل للدقة واعذرني ليس ملم بالعمليات الهندسية كثيرا

أخي ابوعلي ان كنت تقصد الأعمدة التي قمت بحذفها من شيت البيانات فقد ارجعتها لك في النموذج التالي تأييد حيدرb6.rar

أخي الكريم // أبو علي الأستاذ / حيدر بارك الله فيك وجزاك خيرا الملف بالمرفقات بعد التعديل واضافة خيارات التعديل والبحث واضافة بحث بجزء من الاسم جرب وشاهد التعديلات وان كان هناك اي شيء اخر لا تتردد بالنسبة للتاييدات احفظ كما تشاء لكن ان عديت ال (10000) غير الرقم في الاسم المعرف الي الرقم التي تريده تقبل تحياتي تأييد حيدر6.rar

الملف بعد اضافة العناصر للكمبوبوكس شركة البترول.rar

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

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

الأخ الكريم // تم تفعيل مفتاح الادخال والاغلاق بالمرفقات ACC.rar

اخي الكريم // مصطفي في حدث الفتح في ThisWorkbook ضـع الكـود التالي Private Sub Workbook_Open() On Error Resume Next UserForm1.Show 0 End Sub التطبيق بالمرفقات ترحيل فصول.rar

الأخ الكريم // محمود لقد اجريت العديد من التعديلات علي الملف والطلبات الجديدة تحتاج الي وقت مني وانا الان لا امتلك الوقت لظروف العمل وامتحانات الاولاد فكل منا يساهم حسب مقدرته ووقته لكن عن استخدامك الملف من عدمه هذا يرجع لك انا عملي خالص لوجه الله وحده تقبل تحياتي