محمد ممتاز قام بنشر نوفمبر 5, 2016 مشاركة قام بنشر نوفمبر 5, 2016 السلام عليكم الرجاء المساعدة من اساتذتنا الكرام / المطلوب هو ان يتم استبدال المعادلات الحسابية الخاصة بالجمع والضرب بكود برمجي وذلك تسهيلا وتسريع للشغل على الملف خاصة انة يوجد اكثر من 1000 موظف ويوجد 30 شيت نموذج لتغيير المعادلات لاكواد.rar رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر نوفمبر 5, 2016 مشاركة قام بنشر نوفمبر 5, 2016 8 ساعات مضت, محمد ممتاز said: المطلوب هو ان يتم استبدال المعادلات الحسابية الخاصة بالجمع والضرب بكود برمجي وذلك تسهيلا وتسريع للشغل على الملف خاصة انة يوجد اكثر من 1000 موظف ويوجد 30 شيت السلام عليكم تم استبدال المعادلات بكود من العلامة عبدالله باقشير جزاه الله عنا خير الجزاء وان كان غائبا بحضوره فاكواده حاضرة وندعو له بالصحة والعافية اخي اتمنى ان يكون المطلوب وهو يعمل الى 1000 New Microsoft Excel Worksheet.rar 1 رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 5, 2016 الكاتب مشاركة قام بنشر نوفمبر 5, 2016 وعليكم السلام اخى العزيز الاستاذ / عبدالله الصاري اولا وجب على ان اشكرك على هذا العمل الرائع المتقن منك وبهذا يكون المطلوب الثانى تم انجازة ولكن لدى استفسار هل ممكن ان يعمل الكود بدون ان اضغط على زر الميكرو تنفيذ يعنى يجمع تلقائي بدون الحاجة الى الضغط على زر المايكرو مثل المعادلات . وتبقى لى المطلوب الاول اتمنى من الاساتذة الافاضل ابداء ارائهم . وشاكر لك اخى العزيز عبدالله الصاري هذا العمل الرائع وجعل فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 6, 2016 الكاتب مشاركة قام بنشر نوفمبر 6, 2016 السلام عليكم الرجاء من الاساتذة الافاضل المساعدة فى عمل المطلوب او حتى الاطلاع على الافاكار الموجودة لدى العباقرة فى هذا المنتدى العظيم صاحب الفضل علي بصفة خاصة وللكل بصفة عامة. رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان