تسجيل نقاط في خلية عند اختيار النقطة من خلية اخرى

[ابومريم]

السلام عليكم ورحمة الله وبركاته

ايها المشرفون والاعضاء الكرام ونشكركم على ماتبذلوه من جهد في خدمة الاعضاء الجدد

شرح السؤال موضح في الفديو بس اضيف

تسجيل النقاط من 1 الى 48 سيكون في الخلايا c15 , c17 , c19, c21

d15 , d17 , d19 , d21

...............................

N15 , N17 , N19 , N21

مع بقاء تحديد الخلية المسجل فيها النقطة

هذا بالنسبة للنقاط في المنطقة الحمراء

ونفس العملية تعاد على المنطقة الزرقاء

الشرح بالفيديو لمشاهدته

التحميل من هنا - 3.45 MB

او حمل من المرفق

http://www.mediafire...sshd22u64vb2lee

وجزاكم الله خير

PointsRecord.rar

تم تعديل مايو 21, 2012 بواسطه ابوسلام

[ابومريم]

سبحان الله ..والحمد لله .. ولااله الا الله .. والله اكبر

سبحان الله وبحمده ... سبحان الله العظيم

[ابومريم]

السلام عليكم

سبحان الله والحمد لله

هل طلبي مش مفهوم؟

[عبدالله المجرب]

السلام عليكم

هذا الكود يقوم بالاتي

بكل ضغطة زر سيضيف للخلية 1 حتى يصل الى 48 ثم ينتقل الى الخلية التي بعدها وهكذا بنفس تسلسل طلبك

Sub Abu_Ahmed_NewTwzee3()

Application.ScreenUpdating = False

c = 3: r = 1: T = 15

Do Until Cells(T, c) = ""

If Cells(T, c) < 48 Then Exit Do

If r > 48 Then Exit Sub

T = T + 2

If T > 21 Then

T = 15

c = c + 1

End If

Loop

Cells(T, c).Select

Cells(T, c) = Cells(T, c) + 1

Exit Sub

Application.ScreenUpdating = True

End Sub