السلام عليكم
مبتدئ في البرمجة و حبيت اشارك بملف بسيط بالأكسيل لحساب نتيجة ست فصول و يحتاج الي تطوير ليظهر بمنظر احلى
الملف في الملحقات
هذا الماكرو الذي استعملته علي ملف الاكسيل لتنظيم ظهور اسماء المواد منظمة
ويتم ذلك بعد فتح ملف الاكسيل والضغط على المفتاحين alt+F11 وبعد ظهور شاشة الفيجوال بيزك نضغط ادخال و نختار موديول module
ونكتب او نلصق الكود الذي اسميته result
Sub result()
Range("b23:b32").ClearContents
For Each cd In Range("e8:e17")
If cd.Value < [h5].Value Then
x = WorksheetFunction.CountA(Range("b23:b32"))
Cells(23, 2).Offset(x, 0) = cd.Row() - 7
End If
Next df
End Sub
و عند حفظه و تشغيله يتم ترتيب اسماء المواد في ملف الاكسيل
و السلام عليكم و رحمة الله و بركاته
مبتدئ في البرمجة و حبيت اشارك بملف بسيط بالأكسيل لحساب نتيجة ست فصول و يحتاج الي تطوير ليظهر بمنظر احلى
الملف في الملحقات
هذا الماكرو الذي استعملته علي ملف الاكسيل لتنظيم ظهور اسماء المواد منظمة
ويتم ذلك بعد فتح ملف الاكسيل والضغط على المفتاحين alt+F11 وبعد ظهور شاشة الفيجوال بيزك نضغط ادخال و نختار موديول module
ونكتب او نلصق الكود الذي اسميته result
Sub result()
Range("b23:b32").ClearContents
For Each cd In Range("e8:e17")
If cd.Value < [h5].Value Then
x = WorksheetFunction.CountA(Range("b23:b32"))
Cells(23, 2).Offset(x, 0) = cd.Row() - 7
End If
Next df
End Sub
و عند حفظه و تشغيله يتم ترتيب اسماء المواد في ملف الاكسيل
و السلام عليكم و رحمة الله و بركاته