تغيير المعادلات لاكواد

[محمد ممتاز]

السلام عليكم 

الرجاء المساعدة من اساتذتنا الكرام  / 

المطلوب هو  ان يتم استبدال المعادلات الحسابية الخاصة بالجمع والضرب 

بكود برمجي وذلك تسهيلا وتسريع للشغل على الملف خاصة انة يوجد اكثر من 1000 موظف ويوجد 30 شيت 

 

نموذج لتغيير المعادلات لاكواد.rar

[عبدالله بشير عبدالله]

8 ساعات مضت, محمد ممتاز said:

المطلوب هو  ان يتم استبدال المعادلات الحسابية الخاصة بالجمع والضرب 

بكود برمجي وذلك تسهيلا وتسريع للشغل على الملف خاصة انة يوجد اكثر من 1000 موظف ويوجد 30 شيت 

 

السلام عليكم

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

اخي اتمنى ان يكون المطلوب وهو يعمل الى 1000

New Microsoft Excel Worksheet.rar

[محمد ممتاز]

وعليكم السلام 

 

اخى العزيز الاستاذ  /  

عبدالله الصاري

 

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

 

ولكن لدى استفسار هل ممكن ان يعمل الكود بدون ان اضغط على زر الميكرو  تنفيذ 

يعنى يجمع تلقائي  بدون الحاجة الى الضغط على زر المايكرو مثل المعادلات .

 

وتبقى لى المطلوب الاول اتمنى من الاساتذة الافاضل ابداء ارائهم .

 

وشاكر لك اخى العزيز  

عبدالله الصاري

هذا العمل الرائع وجعل فى ميزان حسناتك 

[محمد ممتاز]

السلام عليكم 

 

الرجاء من الاساتذة الافاضل المساعدة فى عمل المطلوب 

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

 

صاحب الفضل علي بصفة خاصة وللكل بصفة عامة.

[محمد ممتاز]

 

 

 

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

بدون الحاجة الى الضغط على زر .

 

تم التوصل الى حل للمطلوب الاول وتم استخدام هذا الكود

وهو من اعمال الاستاذ  الفاضل  

ياسر خليل أبو البراء

 

ولكن ينقصنى جزئية بسيطة فى الكود وهى انة عند كتابة اى مبلغ فى المدى  ( Range("M4:M303"  يجمع تلقائي على على العمود E  فى المدى ( Range("M4:M303

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G4:G303")) Is Nothing Then
    VBA.Calendar = vbCalGreg

    If Len(Target.Cells(1).Value2) <> 0 Then
        Cells(Target.Row, 15).Resize(Target.Rows.Count).Value = Date
    Else
        Cells(Target.Row, 15).Resize(Target.Rows.Count).Value = vbNullString
    End If
End If
If Not Application.Intersect(Target, Range("M4:M303")) Is Nothing Then
    VBA.Calendar = vbCalGreg

    If Len(Target.Cells(1).Value2) <> 0 Then
        Cells(Target.Row, 14).Resize(Target.Rows.Count).Value = Date
    Else
        Cells(Target.Row, 14).Resize(Target.Rows.Count).Value = vbNullString
    End If
End If
End Sub
 

New Microsoft Excel Worksheet.rar