محمد ممتاز قام بنشر نوفمبر 5, 2016 قام بنشر نوفمبر 5, 2016 السلام عليكم الرجاء المساعدة من اساتذتنا الكرام / المطلوب هو ان يتم استبدال المعادلات الحسابية الخاصة بالجمع والضرب بكود برمجي وذلك تسهيلا وتسريع للشغل على الملف خاصة انة يوجد اكثر من 1000 موظف ويوجد 30 شيت نموذج لتغيير المعادلات لاكواد.rar
عبدالله بشير عبدالله قام بنشر نوفمبر 5, 2016 قام بنشر نوفمبر 5, 2016 8 ساعات مضت, محمد ممتاز said: المطلوب هو ان يتم استبدال المعادلات الحسابية الخاصة بالجمع والضرب بكود برمجي وذلك تسهيلا وتسريع للشغل على الملف خاصة انة يوجد اكثر من 1000 موظف ويوجد 30 شيت السلام عليكم تم استبدال المعادلات بكود من العلامة عبدالله باقشير جزاه الله عنا خير الجزاء وان كان غائبا بحضوره فاكواده حاضرة وندعو له بالصحة والعافية اخي اتمنى ان يكون المطلوب وهو يعمل الى 1000 New Microsoft Excel Worksheet.rar 1
محمد ممتاز قام بنشر نوفمبر 5, 2016 الكاتب قام بنشر نوفمبر 5, 2016 وعليكم السلام اخى العزيز الاستاذ / عبدالله الصاري اولا وجب على ان اشكرك على هذا العمل الرائع المتقن منك وبهذا يكون المطلوب الثانى تم انجازة ولكن لدى استفسار هل ممكن ان يعمل الكود بدون ان اضغط على زر الميكرو تنفيذ يعنى يجمع تلقائي بدون الحاجة الى الضغط على زر المايكرو مثل المعادلات . وتبقى لى المطلوب الاول اتمنى من الاساتذة الافاضل ابداء ارائهم . وشاكر لك اخى العزيز عبدالله الصاري هذا العمل الرائع وجعل فى ميزان حسناتك
محمد ممتاز قام بنشر نوفمبر 6, 2016 الكاتب قام بنشر نوفمبر 6, 2016 السلام عليكم الرجاء من الاساتذة الافاضل المساعدة فى عمل المطلوب او حتى الاطلاع على الافاكار الموجودة لدى العباقرة فى هذا المنتدى العظيم صاحب الفضل علي بصفة خاصة وللكل بصفة عامة.
محمد ممتاز قام بنشر نوفمبر 7, 2016 الكاتب قام بنشر نوفمبر 7, 2016 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.