28-04-18, 06:55 PM
السلام عليكم
انا في قرية قليلة الامكانيات و ها قد تحصانا على ربط لوسائل الاتصالات و احاول تعلم البرمجة عن طريق النت وصلت لعمل جدول بيانات بالاكسس عملت على الفيجوال و اتدرب على معرفة الفورم و الادوات والخصائص
اعمل على الاكسيل
و اريد تحويل العمل بالاكسيل الي مشروع فيجوال لاتدرب عليه
الان عندي صفحة للاكسيل بها نتيجة مواد لطالب
اريد تحويلها لمشروع بالفيجوال بيسك
اولا كيف اضع جداول بيانات بالاكسس
كيف عمل الفورم اللازم لهذه الجداول
و لكم مني جزيل الشكر و العرفان
المرفقات ورقة الاكسيل (نتيجة طالب)
وهذا الكود الذي استعملته كامكرو لترتيب المواد التي يرسب بها الطالب
Sub result()
Range("b23:b32").ClearContents
For Each df In Range("e8:e17")
If df.Value < [h5].Value Then
x = WorksheetFunction.CountA(Range("b23:b32"))
Cells(23, 2).Offset(x, 0) = df.Row() - 7
End If
Next df
End Sub
الرابط خيث ووجود المرفقات
http://vb4arb.com/vb/showthread.php?tid=24660
انا في قرية قليلة الامكانيات و ها قد تحصانا على ربط لوسائل الاتصالات و احاول تعلم البرمجة عن طريق النت وصلت لعمل جدول بيانات بالاكسس عملت على الفيجوال و اتدرب على معرفة الفورم و الادوات والخصائص
اعمل على الاكسيل
و اريد تحويل العمل بالاكسيل الي مشروع فيجوال لاتدرب عليه
الان عندي صفحة للاكسيل بها نتيجة مواد لطالب
اريد تحويلها لمشروع بالفيجوال بيسك
اولا كيف اضع جداول بيانات بالاكسس
كيف عمل الفورم اللازم لهذه الجداول
و لكم مني جزيل الشكر و العرفان
المرفقات ورقة الاكسيل (نتيجة طالب)
وهذا الكود الذي استعملته كامكرو لترتيب المواد التي يرسب بها الطالب
Sub result()
Range("b23:b32").ClearContents
For Each df In Range("e8:e17")
If df.Value < [h5].Value Then
x = WorksheetFunction.CountA(Range("b23:b32"))
Cells(23, 2).Offset(x, 0) = df.Row() - 7
End If
Next df
End Sub
الرابط خيث ووجود المرفقات
http://vb4arb.com/vb/showthread.php?tid=24660

