ضرب وقسمة بنفس الخلية

[ياسر فاروق]

الساده

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

هل يوجد كود لعمل هذه الخطوة 

كتابة رقم فى الخلية A1 (الرقم ×50 /1000) وتظهر النتيجة مباشرة فى نفس الخلية

بمعنى (أى رقم يكتب فى هذه الخلية يتم إظهار الناتج بعد إجراء العملية السابقة عليه  مثال (5×50/1000=0.25)

وشكرا على المساعده

[سليم حاصبيا]

جرب هذا الملف

 

Book_salim.xls

[ياسر فاروق]

أ/سليم حاصبيا

شكرا على المساعده

يوجد نقطه للتوضيح

1-  انه جدول واشخاص أخرين يعملون عليه ولا أريد اى رقم أخر موجود بالملف حتى إذا يتم إخفاءه

2- الرقم يتم ضربه فى 50 ويتم قسمته على 1000

وشكرا مره اخرى

 

أ/سليم

هل من الممكن إدخال العملية الحسابية داخل الكود

[Ali Mohamed Ali]

بعد اذن أستاذى سليم

تفضل أخى هذا تعديل بسيط على نفس الكود

 

Book_salim.xls

تم تعديل مارس 18, 2018 بواسطه ali mohamed ali

[ياسر فاروق]

أ/سليم

أرفق إليك الملف المراد العمل عليه

مراجعة حصص الدقيق.rar

أ/ali mohamed ali

أشكرك على هذه المساعده

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

 

مراجعة حصص الدقيق.rar

[Ali Mohamed Ali]

تفضل أخى -ولكن فى الأعمدة المقسومة على 100

بعد كتابة الرقم الذى تريده اضغط عليه مرتين اى Double Click

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

مراجعة حصص الدقيق.xlsm

[سليم حاصبيا]

ممكن هذا الكود ان يقوم بالواجب

Private Sub Worksheet_change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Row >= 14 And Target.Row <= 25 _
        And Target.Column <= 12 And IsNumeric(Target) _
        And Target.Cells.Count = 1 Then
            Select Case Target.Column Mod 3
                Case 2
                Target = Target * 50 / 1000
                Case 0
                Target = Target / 100
            End Select
     End If
 Application.EnableEvents = True
End Sub

 

[ياسر فاروق]

الاساتذه الأفاضل

أ/سليم حاصبيا

أ/ali mohamed ali

شكرا على مجهودكم وجزاكم الله خيرا على المساعده