فايز العميسي

السلام عليكم اساتذتي المبرمجين أرجو التعديل على الكود الذي تم نشروه في هذا الموقع الصرح التعليمي الشامخ من قبل الأستاذ أبا عمر ليعمل على نظام 64 بت Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Function LaunchCD(strform As Form) As String Dim OpenFile As OPENFILENAME Dim lReturn As Long Dim sFilter As String OpenFile.lStructSize = Len(OpenFile) OpenFile.hwndOwner = strform.Hwnd sFilter = "Access Databases (*.mdb;*.accdb)" & Chr(0) & "*.mdb;*.accdb" & Chr(0) & _ "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) OpenFile.lpstrFilter = sFilter OpenFile.nFilterIndex = 1 OpenFile.lpstrFile = String(257, 0) OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1 OpenFile.lpstrFileTitle = OpenFile.lpstrFile OpenFile.nMaxFileTitle = OpenFile.nMaxFile OpenFile.lpstrInitialDir = "C:\" OpenFile.lpstrTitle = "Officena.net ... Find The location of Back End File" OpenFile.flags = 0 lReturn = GetOpenFileName(OpenFile) If lReturn = 0 Then MsgBox "A file was not selected!", vbInformation, _ "Select a file using the Common Dialog " Else LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1)) End If End Function ولكم جزيل الشكر والتقدير

برنامج_مدرسي.rarالأساتذة مشرفي وأعضاء المنتدى في المرفق اريد 1 ) أن يتم التعديل في جدول الترم الأول أساسي بمجرد التعديل في في جدول الدرجات 2 ) أو أن يتم تفريغ جدول الدرجات بحسب رقم الطالب ورقم المادة إلى المكان المخصص له في جدول الترم الأول أساسي

الله يجزيكم خيرا على ما تقدمونه من معلومات قيمة

السلام عليكم اساتذتي الأجلاء ممكن شرح هذا الكود وعمل حل للأسماء المركبة ( عبد الرحمن ، ضيف الله ، شمس الدين ) التي يوجد بينهما فاصلة. Function PartOfName(InName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim i As Integer, U As Integer InName = NoSpaces(InName) PartOfName = "" If InName = "" Then Exit Function Do U = i i = InStr(i + 1, InName, " ", 1) If i <> 0 Then TheSpaceNumber = TheSpaceNumber + 1 If TheSpaceNumber = NumberOfPart Then Exit Do ElseIf TheSpaceNumber + 1 = NumberOfPart Then i = Len(InName) + 1 Exit Do Else Exit Function End If Loop PartOfName = Trim(Mid(InName, U + 1, i - U - 1)) End Function

السلام عليكم ورحمة الله وكل سنة وانتم طيبين أساتذتي الأجلاء ارجوا مساعدتي في أخذ الرقمين الأولين من السنة كأن ناخذ 14 من 2014 / 2015 في مربع نص داخل تقرير

السلام عليكم استاذ حسين جزاك الله خير على ماقدمت وعندي ملاحظة يا ليت تنظر فيها نريد تحويل الدينار إلى ريال والفلس إلى هللة هناك خطأ في تفقيط الفلس في الدالة

أخي الشهابي بارك الله لك في عقلك وعلمك وأثاب الله أستاذنا القدير عماد الحسام خير الثواب على عطائه وكرمه العمل قيم وفي غاية الروعة وارجو مراعاة التذكير والتأنيث في الأول و الأولى وكذا الثاني والثانية. ولكم أرجو أن يوفقكم الله للتوصل إلى دالة نستطيع من خلالها معرفة ترتيب الطلاب في عمود الترتيب AU من ورقة نتيجة 2012 - 2013 دون الحاجة إلى استدعائه إلى الورقة الأخرى كما في ورقة الترتيب والأوائل

السلام عليكم ورحمة الله أساتذتي المبرمجين في الملف المرفق ملف أكسس أريد فيه معرفة كم يحتاج الطالب من الدرجات للنجاح كما هو مبين في عمود الاحتياج في ملف الأكسل المرفق درجات احتياج الطالب للنجاح.rar

هنى ورقة أكسل فيها العمل استخراج أوائل الطلاب على مستوى الصف والجنس.rar

السلام عليكم ورحمة الله وبركاته اساتذتي المبرمجين وزملائي طلبة علم البرمجة أخواني جزاكم الله خير على علمكم افتمونا بدوالكم ولدي استفسار حول استخدام دالة العشرة الأوائل لاستخراج اوائل كل صف على مستوى الجنس في ورقة عمل واحدة أي طلاب الصف الأول الذكور يليهم طالبات الصف الأول اناث يلهم طلاب الصف الثاني ذكور يلهم طالبات الصف الثاني اناث وهكذا حتى آخر طلاب آخر صف دراسي ولكم خالص تقديري وامتناني

السلام عليكم قادة البرمجة السلام عليكم نجوم العلم السلام عليكم قدوتنا واساتذتنا فضلاً منكم وتكرماً على تلاميذكم الذين يطلبون مساعدتكم اريد استخراج العشرة الأوائل على مستوى الصف وعلى مستوى الجنس من ورقة عمل واحدة في الملف المرفق ترتيب الأوائل على مستوى الصف والجنس.zip

اريد دالة استخراج العشرة الأوائل على مستوى الصف والجنس في الملف اللمرفق وجزاكم الله خيرا على علمكم وعملكم الرائعترتيب الأوائل على مستوى الصف والجنس.zip