أبو أيمن٤٩ قام بنشر أبريل 23, 2020 مشاركة قام بنشر أبريل 23, 2020 تم عمل شيت لوضع الدرجات أثناء حضور الصلاة أرجوا منكم المساعدة في كيفة الحصول على المجموع مثل ما هو موضح في الشيت الصلاة١.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أبريل 23, 2020 أفضل إجابة مشاركة قام بنشر أبريل 23, 2020 وذلك بوضح هذه الأكواد بحدذ الصفحة Public oldval As Double Sub KH_TEST() oldval = 0 End Sub Private Sub Worksheet_Change(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then _ Target = oldval + Target Else Target = oldval Application.EnableEvents = True End If 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then oldval = Target Else oldval = 0 Application.EnableEvents = True End If 1 End Sub الصلاة١.xlsm 3 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أبريل 23, 2020 مشاركة قام بنشر أبريل 23, 2020 بعد اذن استاد علي كود بطريقة اخرى انقر على اي قيمة من الخلايا المحددة سيطلع مربع حوار اكتب القيمة وسيتم الاضافة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xRtn As Variant If Selection.Count = 1 Then If Not Intersect(Target, Range("c:m")) Is Nothing Then If IsNumeric(Target) And Target <> "" Then xRtn = Application.InputBox("Insert your value please") If xRtn <> False And IsNumeric(xRtn) Then Target.Value = Target + xRtn End If End If End If End If End Sub الصلاة2.xlsm 3 رابط هذا التعليق شارك More sharing options...
أبو أيمن٤٩ قام بنشر أبريل 23, 2020 الكاتب مشاركة قام بنشر أبريل 23, 2020 شكرا لك إستاذي العزيز علي وإن شاء الله في ميزان حسناتك مشكور استاذي عبد الفتاح وإن شاء الله في ميزان حسناتك 1 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر أبريل 23, 2020 مشاركة قام بنشر أبريل 23, 2020 شكر وتقدير للاساتذة الافاضل 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.