إدخال علامات الطلاب من خلية واحدة

[سالم شباني]

السلام عليكم

لدي قائمة طلاب أريد تسجيل علاماتهم من خلال خلية واحدة

هل هذا ممكن ( أريد أن يبقى المؤشر في الخلية بعد كل entr )

المثال مرفق

علامات الطلاب.rar

تم تعديل نوفمبر 14, 2009 بواسطه سالم شباني

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

السلام عليكم

الكود ادناه في حدث الورقة "ورقة1"

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Last As Integer

If Target.Address = Range("A1").Address Then

If Target.Value = "" Then GoTo 1

    Last = Range("J600").End(xlUp).Row + 1

    Cells(Last, "J") = Target.Value

    Target.ClearContents

    Target.Select

End If

1 End Sub

تفضل المرفق

علامات الطلاب.rar

[سالم شباني]

السلام عليكم

جزاك الله خيرا أستاذنا خبور خير

جعل الله كل أيامك خيرا وبركة ورزقك العافية في كل شيء

لم أكن أتخيل أن هذا ممكن في إكسل فبارك الله فيك مرة أخرى

أرجو أن يستفيد منه الجميع

[قصي]

لو تم نقل الاعداد الموجودة في الخليه الصفراء الى اعمده نختار خلية البدايه منها يبقى عمل ولا في الاحلام

تسهل وضع درجات كل المواد للطلاب