برنامج اظهار نتيجة الطلاب

[عبدالباري البنا]

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

بناء على طلب احد الاخوه الافاضل ....طلب منى فورم لاظهار النتيجة بعيدا عن الشيت...

اليك ما طلبت ملف لاظهار نتيجة الطلاب عن طريق فورم

ما عليك الا نسج النتيجة من الشيت ولصقها فى صفحة الدرجات .... (بنفس الترتيب)

بالتوفيق ان شاء الله ....

برنامج النتيجة.rar

[زائر]

فكرةعمل رائع استاذ // عبد الباري

جعله الله في ميزان حسناتك والى الامام دوما..

[ياسر خليل أبو البراء]

روعة أخي الحبيب عبد الباري

بارك الله فيك ونفع بك الإسلام والمسلمين وجزاكم الله خير الجزاء

[خزاني]

جزاك الله خيرا اخي في الله 

[علي المصري]

جزاك الله خيرا استاذ عبدالباري البنا

عمل ممتاااااااااااااااااااااااااااااااااااااااااز

عند اقتراح بالنسبة للأكواد

لاحظ تكرار جملة عدة مرات في الكود

 

اقتراحي اختصار هذه الاكواد بالطريقة التالي

 

 

 

 

مثلا الكود التالي

 

 

 

'TX55 = ActiveCell.Offset(0, 1).Text
'TX56 = ActiveCell.Offset(0, 2).Text
'TX57 = ActiveCell.Offset(0, 3).Text
'TX58 = ActiveCell.Offset(0, 4).Text
'TX59 = ActiveCell.Offset(0, 5).Text
'TX60 = ActiveCell.Offset(0, 6).Text
'TX61 = ActiveCell.Offset(0, 7).Text
'TX62 = ActiveCell.Offset(0, 8).Text
'TX63 = ActiveCell.Offset(0, 9).Text
'TX64 = ActiveCell.Offset(0, 10).Text
'TX65 = ActiveCell.Offset(0, 11).Text
'TX66 = ActiveCell.Offset(0, 12).Text
'TX67 = ActiveCell.Offset(0, 13).Text
'TX68 = ActiveCell.Offset(0, 14).Text
'TX69 = ActiveCell.Offset(0, 15).Text
'TX70 = ActiveCell.Offset(0, 16).Text
'TX71 = ActiveCell.Offset(0, 17).Text
'TX72 = ActiveCell.Offset(0, 18).Text
'TX73 = ActiveCell.Offset(0, 19).Text
'TX74 = ActiveCell.Offset(0, 20).Text
'Tx75 = ActiveCell.Offset(0, 21).Text
'Tx76 = ActiveCell.Offset(0, 22).Text
'TX77 = ActiveCell.Offset(0, 23).Text

يمكن اختصاره كالتالي

 

 

Dim i, j As Integer
For i = 55 To 77
j = i - 54
Me.Controls("TX" & i) = ActiveCell.Offset(0, j).Text
Next i 

والكود

 

 

 

'TX55 = ""
'TX56 = ""
'TX57 = ""
'TX58 = ""
'TX59 = ""
'TX60 = ""
'TX61 = ""
'TX62 = ""
'TX63 = ""
'TX64 = ""
'TX65 = ""
'TX66 = ""
'TX67 = ""
'TX68 = ""
'TX69 = ""
'TX70 = ""
'TX71 = ""
'TX72 = ""
'TX73 = ""
'TX74 = ""
'Tx75 = ""
'Tx76 = ""
'TX77 = ""
'TX78 = ""

يمكن اختصاره

Dim i As Integer
For i = 55 To 78
Me.Controls("TX" & i) = ""
Next i

هذا اقتراحي  ولكم الرأي

 

شكرا جزيلا ً

 

[جلال محمد]

استاذ : عبد الباري

بارك الله فيك 

عمل والله رائع 

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

[عبدالباري البنا]

اخى الحبيب محمد أبو البراء.... جزاك الله خيرا

اخى واستاذى الغالى YasserKhalil ... دائما اتلقى منك الدعم والتشجيع... بارك الله فيك

اخى الحبيب خزاني... اشكرك جزاك الله خيرا

اخى واستاذى علي المصري ...اشكر مرورك ...وايضا اشكرك على اختصار الكود الذى ذاده جمالا وروعه...كعادتك مبدع

اخى الحبيب جلال محمد ... مرورك اسعدنى ... جزاك الله خيرا

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

[عادل زكى]

رائع ويستحق الاشادة بذلك

 

 

[ابن بنها]

ربنا يبارك فيك اخي الكريم