اذهب الي المحتوي
أوفيسنا

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

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    110

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه وليد عبدالغني

    برجاء تطبيق قاعدة if علي هذة الورقة

    في منتدى الاكسيل Excel

    قام بنشر

    برجاء تطبيق قاعدة if علي هذة الورقة

    حيث ان العمود الاول هو اجمالي عدد الورق

    العمود الثاني هو النقدية التي لاتكون رزمة نقدية اي اقل من 100 ورقة

    فاذا كن عدد الورق في العمود الاول 21    يكون الثاني 21

    واذا كان العمود الاول 121  يكون الثاني 21

     

    واذا كان العمود الاول 221  يكون الثاني 21

     

    واذا كان العمود الاول 321  يكون الثاني 21

    واذا اختلفت الارقام في العمود الاول تبقي قاعدة if   في العمود الثاني

    وشكرا

    If.rar

    لماذا لا يقبل textbox كسور الأرقام (الأرقام العشرية )

    في منتدى الاكسيل Excel

    قام بنشر

    السادة اعضاء المنتدي الكرام

    برجاء المساعدة فى المثال الصغير التالي حيث ان  textbox لا يقبل كسور الارقام (الارقام العشرية ) وبالاخص عند الارتباط  ب value مرتبط بورقة عمل اكسيل

    فى المثال التالي لايمكن اضافة رقم بة كسور 12.25 مثلا

    0-1 (2).rar

    ما سبب هذا الخطأ

    في منتدى الاكسيل Excel

    قام بنشر

    للاسف وائل باشا لم تضبط اعتقد ان المشكلة فى

    التعليمات البرمجية  لورقة 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




    ليعمل بشكل افضل

    ما سبب هذا الخطأ

    في منتدى الاكسيل Excel

    قام بنشر

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

    اليوز فورم يفتح عادي جدا فى حالة عدم وجود بيانات وعند وجود مبالغ يحدث الخطأ

    هل يمكن امدادي بكود يجعل بعض الخلايا فى Worksheet تحمل value فقط

     

    yiASQw.jpg

    وشكرا

    تغيير لون textbox عندما يكون enabled false

    في منتدى الاكسيل Excel

    قام بنشر

    استخدم الاثنين معا بمعني

    locked=True

    enabled=False

     

    نفس النتيجة اللون رمادي

     

    جزيل الشكر على الرد

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

    وانا اريدها غير متاحة

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

     

     

    لازم تكست بوكس لان عليها عمليات حسابية كثيرة

     

    وشكرا

    اريد كود اخفاء userform اذا كان مفتوح

    في منتدى الاكسيل Excel

    قام بنشر

    اذا كان لدي ماكرو ينفذ ضمن ماكرو اخر

    الاول

    Sub end_userform()
    userform1.Hide
    End Sub

    عند تنفيذ الماكرو الثاني واليوزر فورم مفتوح ليس هناك مشكلة

    لكن اذاكان مغلق يقف تنفيذ الماكرو الثاني

     

     

    المطلوب صيغة اغلاق اذا كان مفتوح واذا كان مغلق يكمل التنفيذ

    برجاء المساعدة فى التعديل علي هذا الملف الصغير

    في منتدى الاكسيل Excel

    قام بنشر

    تسلم استاذ علي المصري الف شكر

    لكن بعد اذنكم لي سؤال

    اذا كان الكود التالي ينفذ عملية الجمع مع تحريك الماوس

    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() مثلا لانها تحتاج معادلات كثيرة

    ولكم جزيل الشكر علي التعاون

    جزاكم اللة خيرا

    برجاء المساعدة فى التعديل علي هذا الملف الصغير

    في منتدى الاكسيل Excel

    قام بنشر

    عند محاولة الربط بين الفورم والاكسيل

    يضيع تنسيق المعادلات بمجرد فتح الفورم

    اوحتي بدون فتحة

    فى الخلية b2 رقم وفى الخلية b3 رقم والمفروض b5 تساوي =SUM(B3:B4) ولكنها تعطي صفر

    برجاء المساعدة

    وشكرا

    0.rar

    السادة اعضاء المنتدي الكرام الرجاء المساعدة بكود واحد فقط

    في منتدى الاكسيل Excel

    قام بنشر

    لو تكرمت وائل باشا

    بالنسبة للكود

    Private Sub UserForm_Activate()
    TextBox1 = Range("B3")
    End Sub

    هل يمكن تحديد الورقة قبل مكان الخلية بحيث اذاتم فتح الفورم من علي ورقة اخرى اخذ TextBox قيمة الخلية من الورقة الاولي ( كالمرفق )

    ولك جزيل الشكر

    0-1.rar

×
×
  • اضف...

Important Information

  I accept