وليد عبدالغني

الاخ YasserKhalil الف الف الف شكر

تسلم الف الف الف شكر ربنا يكرمك

برجاء تطبيق قاعدة if علي هذة الورقة حيث ان العمود الاول هو اجمالي عدد الورق العمود الثاني هو النقدية التي لاتكون رزمة نقدية اي اقل من 100 ورقة فاذا كن عدد الورق في العمود الاول 21 يكون الثاني 21 واذا كان العمود الاول 121 يكون الثاني 21 واذا كان العمود الاول 221 يكون الثاني 21 واذا كان العمود الاول 321 يكون الثاني 21 واذا اختلفت الارقام في العمود الاول تبقي قاعدة if في العمود الثاني وشكرا If.rar

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

استاذ علي المصري بعد التحية والشكر الملف يقبل الكسور من خلال ورقة الاكسيل لكن عند كتابة الرقم بالكسور من خلال الفورم لا يقبل العلامة العشرية

اين الاجابة يا اخواني

السادة اعضاء المنتدي الكرام برجاء المساعدة فى المثال الصغير التالي حيث ان textbox لا يقبل كسور الارقام (الارقام العشرية ) وبالاخص عند الارتباط ب value مرتبط بورقة عمل اكسيل فى المثال التالي لايمكن اضافة رقم بة كسور 12.25 مثلا 0-1 (2).rar

الا يوجد حل فى ظهور الارقام بالعربي فى اليوزفورم

تسلم لكن التطبيق علي ورقة الاكسيل اريد التطبيق علي التكست بوكس فى اليوزر فورم شكرا

شكرا عل الرد الارقام فى ورقة الاكسيل تم تنسيق الارقام كلها عربي المشكلة التكست بوكس عايز الارقام كلها بالعربي مثال صغير مرفق 0.rar

كيف يتم اجبار اليوز فورم عل كتابة الارقام بالعربي وشكرا

للاسف وائل باشا لم تضبط اعتقد ان المشكلة فى التعليمات البرمجية لورقة close لو قمت بمسحها تنحل المشكلة لكن تبقى مشكلة تحويل البيانات من ورقة العمل الى الفورم فى حالة ان الاثنين مفتوحان فى نفس الوقت فهل يكمن التعيل علي الكود Private Sub Worksheet_Change(ByVal Target As Range) 'تيلر 1 On Error Resume Next UserForm_wam_close.TextBox1.Value = Sheets("close").Range("c20").Value UserForm_wam_close.TextBox2.Value = Sheets("close").Range("c21").Value UserForm_wam_close.TextBox3.Value = Sheets("close").Range("c22").Value UserForm_wam_close.TextBox4.Value = Sheets("close").Range("c23").Value UserForm_wam_close.TextBox5.Value = Sheets("close").Range("c24").Value UserForm_wam_close.TextBox6.Value = Sheets("close").Range("c25").Value UserForm_wam_close.TextBox7.Value = Sheets("close").Range("c26").Value UserForm_wam_close.TextBox8.Value = Sheets("close").Range("c27").Value UserForm_wam_close.TextBox9.Value = Sheets("close").Range("c28").Value UserForm_wam_close.TextBox19.Value = Sheets("close").Range("c29").Value '+++++++++++++++++++++++++ UserForm_wam_close.TextBox21.Value = Sheets("close").Range("c6").Value UserForm_wam_close.TextBox22.Value = Sheets("close").Range("c7").Value UserForm_wam_close.TextBox23.Value = Sheets("close").Range("c8").Value UserForm_wam_close.TextBox24.Value = Sheets("close").Range("c9").Value UserForm_wam_close.TextBox25.Value = Sheets("close").Range("c10").Value UserForm_wam_close.TextBox26.Value = Sheets("close").Range("c11").Value UserForm_wam_close.TextBox27.Value = Sheets("close").Range("c12").Value UserForm_wam_close.TextBox28.Value = Sheets("close").Range("c13").Value UserForm_wam_close.TextBox29.Value = Sheets("close").Range("c14").Value 'تيلر 2 UserForm_wam_close.TextBox32.Value = Sheets("close").Range("f20").Value UserForm_wam_close.TextBox33.Value = Sheets("close").Range("f21").Value UserForm_wam_close.TextBox34.Value = Sheets("close").Range("f22").Value UserForm_wam_close.TextBox35.Value = Sheets("close").Range("f23").Value UserForm_wam_close.TextBox36.Value = Sheets("close").Range("f24").Value UserForm_wam_close.TextBox37.Value = Sheets("close").Range("f25").Value UserForm_wam_close.TextBox38.Value = Sheets("close").Range("f26").Value UserForm_wam_close.TextBox39.Value = Sheets("close").Range("f27").Value UserForm_wam_close.TextBox40.Value = Sheets("close").Range("f28").Value UserForm_wam_close.TextBox50.Value = Sheets("close").Range("f29").Value '+++++++++++++++++++ UserForm_wam_close.TextBox52.Value = Sheets("close").Range("f6").Value UserForm_wam_close.TextBox53.Value = Sheets("close").Range("f7").Value UserForm_wam_close.TextBox54.Value = Sheets("close").Range("f8").Value UserForm_wam_close.TextBox55.Value = Sheets("close").Range("f9").Value UserForm_wam_close.TextBox56.Value = Sheets("close").Range("f10").Value UserForm_wam_close.TextBox57.Value = Sheets("close").Range("f11").Value UserForm_wam_close.TextBox58.Value = Sheets("close").Range("f12").Value UserForm_wam_close.TextBox59.Value = Sheets("close").Range("f13").Value UserForm_wam_close.TextBox60.Value = Sheets("close").Range("f14").Value 'تيلر 3 UserForm_wam_close.TextBox63.Value = Sheets("close").Range("i20").Value UserForm_wam_close.TextBox64.Value = Sheets("close").Range("i21").Value UserForm_wam_close.TextBox65.Value = Sheets("close").Range("i22").Value UserForm_wam_close.TextBox66.Value = Sheets("close").Range("i23").Value UserForm_wam_close.TextBox67.Value = Sheets("close").Range("i24").Value UserForm_wam_close.TextBox68.Value = Sheets("close").Range("i25").Value UserForm_wam_close.TextBox69.Value = Sheets("close").Range("i26").Value UserForm_wam_close.TextBox70.Value = Sheets("close").Range("i27").Value UserForm_wam_close.TextBox71.Value = Sheets("close").Range("i28").Value UserForm_wam_close.TextBox81.Value = Sheets("close").Range("i29").Value '+++++++++++++++++++ UserForm_wam_close.TextBox83.Value = Sheets("close").Range("i6").Value UserForm_wam_close.TextBox84.Value = Sheets("close").Range("i7").Value UserForm_wam_close.TextBox85.Value = Sheets("close").Range("i8").Value UserForm_wam_close.TextBox86.Value = Sheets("close").Range("i9").Value UserForm_wam_close.TextBox87.Value = Sheets("close").Range("i10").Value UserForm_wam_close.TextBox88.Value = Sheets("close").Range("i11").Value UserForm_wam_close.TextBox89.Value = Sheets("close").Range("i12").Value UserForm_wam_close.TextBox90.Value = Sheets("close").Range("i13").Value UserForm_wam_close.TextBox91.Value = Sheets("close").Range("i14").Value 'تيلر 4 UserForm_wam_close.TextBox94.Value = Sheets("close").Range("l20").Value UserForm_wam_close.TextBox95.Value = Sheets("close").Range("l21").Value UserForm_wam_close.TextBox96.Value = Sheets("close").Range("l22").Value UserForm_wam_close.TextBox97.Value = Sheets("close").Range("l23").Value UserForm_wam_close.TextBox98.Value = Sheets("close").Range("l24").Value UserForm_wam_close.TextBox99.Value = Sheets("close").Range("l25").Value UserForm_wam_close.TextBox100.Value = Sheets("close").Range("l26").Value UserForm_wam_close.TextBox101.Value = Sheets("close").Range("l27").Value UserForm_wam_close.TextBox102.Value = Sheets("close").Range("l28").Value UserForm_wam_close.TextBox112.Value = Sheets("close").Range("l29").Value '+++++++++++++++++++ UserForm_wam_close.TextBox114.Value = Sheets("close").Range("l6").Value UserForm_wam_close.TextBox115.Value = Sheets("close").Range("l7").Value UserForm_wam_close.TextBox116.Value = Sheets("close").Range("l8").Value UserForm_wam_close.TextBox117.Value = Sheets("close").Range("l9").Value UserForm_wam_close.TextBox118.Value = Sheets("close").Range("l10").Value UserForm_wam_close.TextBox119.Value = Sheets("close").Range("l11").Value UserForm_wam_close.TextBox120.Value = Sheets("close").Range("l12").Value UserForm_wam_close.TextBox121.Value = Sheets("close").Range("l13").Value UserForm_wam_close.TextBox122.Value = Sheets("close").Range("l14").Value End Sub ليعمل بشكل افضل

مرفق الملف المشكلة فى تبويب close

ما سبب هذا الخطأ وقد قمت بالبحث بجوجل والنتيجة انى وجدت هذا الخطا كثيرا ولكني لم اتوصل لحل اليوز فورم يفتح عادي جدا فى حالة عدم وجود بيانات وعند وجود مبالغ يحدث الخطأ هل يمكن امدادي بكود يجعل بعض الخلايا فى Worksheet تحمل value فقط وشكرا

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

جزيل الشكر على الرد المشكلة ان خاصية locked تجعل الماوس متاح في التنقل اليها وانا اريدها غير متاحة

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

الف شكر علي الرد عند اضافة On Error Resume Next يتم تنفيذ الماكرو مرة صح وثاني مرة يعطي خطأ ورسالة الخطا تكون في الماكرو الاول end_userform

اذا كان لدي ماكرو ينفذ ضمن ماكرو اخر الاول Sub end_userform() userform1.Hide End Sub عند تنفيذ الماكرو الثاني واليوزر فورم مفتوح ليس هناك مشكلة لكن اذاكان مغلق يقف تنفيذ الماكرو الثاني المطلوب صيغة اغلاق اذا كان مفتوح واذا كان مغلق يكمل التنفيذ

تسلم استاذ علي المصري الف شكر لكن بعد اذنكم لي سؤال اذا كان الكود التالي ينفذ عملية الجمع مع تحريك الماوس Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox95.Value = Val(TextBox50) + Val(TextBox73) + Val(TextBox84) TextBox94.Value = Val(TextBox51) + Val(TextBox72) + Val(TextBox83) TextBox93.Value = Val(TextBox52) + Val(TextBox71) + Val(TextBox82) TextBox92.Value = Val(TextBox53) + Val(TextBox70) + Val(TextBox81) TextBox91.Value = Val(TextBox54) + Val(TextBox69) + Val(TextBox80) TextBox90.Value = Val(TextBox55) + Val(TextBox68) + Val(TextBox79) TextBox89.Value = Val(TextBox56) + Val(TextBox67) + Val(TextBox78) TextBox88.Value = Val(TextBox57) + Val(TextBox66) + Val(TextBox77) TextBox87.Value = Val(TextBox58) + Val(TextBox65) + Val(TextBox76) TextBox85.Value = Val(TextBox60) + Val(TextBox63) + Val(TextBox97) '---- TextBox86.Value = Val(TextBox59) + Val(TextBox64) + Val(TextBox75) TextBox96.Value = Val(TextBox61) + Val(TextBox62) + Val(TextBox74) '--------- TextBox59.Value = Val(TextBox50) + Val(TextBox51) + Val(TextBox52) + Val(TextBox53) + _ Val(TextBox54) + Val(TextBox55) + Val(TextBox56) + Val(TextBox57) + Val(TextBox58) TextBox61.Value = Val(TextBox60) + Val(TextBox59) '------ TextBox64.Value = Val(TextBox73) + Val(TextBox72) + Val(TextBox71) + Val(TextBox70) + _ Val(TextBox69) + Val(TextBox68) + Val(TextBox67) + Val(TextBox66) + Val(TextBox65) TextBox62.Value = Val(TextBox64) + Val(TextBox63) '----------- TextBox75.Value = Val(TextBox84) + Val(TextBox83) + Val(TextBox82) + Val(TextBox81) + _ Val(TextBox80) + Val(TextBox79) + Val(TextBox78) + Val(TextBox77) + Val(TextBox76) TextBox74.Value = Val(TextBox97) + Val(TextBox75) End Sub الايوجد كود اخر غير تحريك الموس لانة لا يظهر النتائج مباشرة وكذلك غير وضع المعادلات في Private Sub TextBox80_Change() مثلا لانها تحتاج معادلات كثيرة ولكم جزيل الشكر علي التعاون جزاكم اللة خيرا

الف شكر تسلم

وعند جعل الجمع فى الفورم منفصل والجمع فى ورقة الاكسيل منفصل يظهر الجمع فى الفورم صحيح وفى ورق الاكسيل صفر لا اعرف السيب مع اني حذفت الربط بين خلية الجمع بالاكسيل والفورم وشكرا 0-1.rar

عند محاولة الربط بين الفورم والاكسيل يضيع تنسيق المعادلات بمجرد فتح الفورم اوحتي بدون فتحة فى الخلية b2 رقم وفى الخلية b3 رقم والمفروض b5 تساوي =SUM(B3:B4) ولكنها تعطي صفر برجاء المساعدة وشكرا 0.rar

تسلم ربنا يكرمك الف شكر

لو تكرمت وائل باشا بالنسبة للكود Private Sub UserForm_Activate() TextBox1 = Range("B3") End Sub هل يمكن تحديد الورقة قبل مكان الخلية بحيث اذاتم فتح الفورم من علي ورقة اخرى اخذ TextBox قيمة الخلية من الورقة الاولي ( كالمرفق ) ولك جزيل الشكر 0-1.rar