نجوم المشاركات

بعد اذن الاستاذ kanory ومشاركة بفكرة تحويل مصدر القائمة الى مجموعة قيم وتعبئتها من الجدول بالتوفيق listbox.accdb

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

أحسنت استاذ سليم معادلة ممتازة

هذا احد الحلول ترحيل بيانات Salim.xlsx

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد.... بن علية حاجي كود الصنف 36.xlsx

ضع هذا الكود في حدث عند فتح النموذج عدل في الأرقام حسب ماتريد ....... 'عدل للارتفاع Me.Form.InsideHeight = 4150 'عدل للعرض Me.Form.InsideWidth = 9370

اخي الفاضل . الجدول الجديد يحدث نفسه تلقائي بالاعتماد على الجدول الاساسي في كل مرة يتم فتح النموذج ... دون تدخل منك .

ببساطة انظر المرفق ......... Photo.rar

اخي الفاضل . الحقل الموجود في الجدول عندك بهذا الاسم PicFile٢ وليس PicFile اذا اردتها بهذا الاسم فغير الاسم الموجود في جدول البيانات واستخدم كودك السابق . تحياتي لك

السلام عليكم ورحمة الله وبركاته في المثال ما يغني عن المقال changePic.rar

اشكرك جدا استاذ سليم هذا المطلوب

شكرا يا أخي الكريم جزاك الله الف خير

Right click on the worksheet tab and select Move or Copy.1 Select the Create a copy checkbox.2 Under Before sheet, select where you want to place the copy.3 Select OK.4

السلام عليكم ورحمة الله جرب المرفق بعد إضافة عمود المعدلات الفصلية... بن علية حاجي ن-الفصل الأول.xls

ممتاز أستاذ سليم بارك الله لك ودائماً ما أجدك في مثل هذه المواقف الأجمل مروركم الكريم أخي علي وبارك الله فيكم جميعاً

بعد اذن اخي بن علية للمزدوج =IF(ROWS($A$1:A1)>INT(COUNTA($I$4:$I$100)),"",INDEX($I$4:$I$100,2*(ROWS($A$1:A1)))) للمفرد =IF(ROWS($A$1:A1)>INT(COUNTA($I$4:$I$100)),"",INDEX($I$4:$I$100,2*(ROWS($A$1:A1))-1)) المعادلات لا توضع في العامود I

السلام عليكم ورحمة الله هذا حل آخر بالمعادلات لعل فيه ما تريد... بن علية حاجي محضر تصحيح.xls

السلام عليكم جرب المرفق لعل فيه ما تريد.... بن علية حاجي هام.xlsx

On Error GoTo ErrHandler Dim filename As Variant Dim SourceFile, DestinationFile Dim picturepaht picturepaht = GetOpenFile_CLT("", "اختر صورة :") With picturepaht If picturepaht <> "" Then Me.imgLogo.Picture = picturepaht logo = picturepaht Else MsgBox "No image selected." End If End With SourceFile = logo DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg" FileCopy SourceFile, DestinationFile MsgBox "تم تغيير الشعار " ErrHandler: If Err.Number = 94 Then 'لابقاء الصورة السابقة إذا لم يتم اختيار صورة If picturepaht <> "" Then imgLogo.Picture = CurrentProject.Path & "\" & "shar" & ".jpg" Else imgLogo.Picture = "" Exit Sub End If MsgBox "لم يتم تغيير الشعار" End If changePic -2.mdb

ابداااااااع استاذنا سليم جزاك الله خيرا وعذرا على المشكلة التى بالملف

جرب هذا الملف Book1_salim.xlsx

استاذ ابا ياسين لعل لكم هنا فائدة واعتقد لنفس الموضوع تحياتي

أحسنت استاذ سليم بارك الله فيك

الملف الذي رفعته مضروب بفيروس و قد رفض الجهاز التعامل معه لذلك ارفق لك ملفاً بديلاً فيه الجل بالتفصيل days_num.xlsx

عمل ممتاز بارك الله فيك وفى استاذنا الكبير محمد صالح واستاذنا محمد ابو مروان جزاكم الله جميعا كل خير

قاعدة البيانات تم انشائها بواسطة اصدار 32 بت وتحاولون فتحها بواسطة اصدار 64 بت لذلك لا تفتح

اين المرفق ؟؟؟؟

أخي الكريم بالطبع مثل أساتذتي العمالقة أ/ سليم و أ/ بن علية لم أعرف أي معدل هل هو للإجمالي أو لمادة معينة أرفق لك هذا الملف الذي أعددته لك لعلك تستفيد منه يستخرج الطلبة الأوائل وكذلك الطلبة التي أصغر من رقم معين ترتيب وأصغر من درجة معينة.xlsx

شكرا

اذا تريد ان يقسم على 6 اي الرقم المكتوب في حقل المدة فقط عليك ان تغير هذا السطر من الكود For I = 0 To Me.CmdCridi.Column(0) - 1 بهذا السطر For I = 0 To Me.Beriod - 1 واليك المرفق بعد تعديل v2برنامج التقسيط.rar

الموظفة المتزوجة تصرف لوالديها (إذا كانوا مقيمين معها) أما زوجها أو إخوانها لا علم لي بالأمر .. الموضوع ليس له علاقة بالإكسيل .. الموضوع عايز حد يكون شغال في الإدارات التعليمية وعنده فكرة تقبل تحياتي وأهلا بيك في المنتدى أخي الكريم سيد أحمد

اخي لو بحثت قليلاً لوجدت طلبك .. على العموم تفضل New folder.zip

لقد طبقت كل الخطوات السابقة .. ولكن بدون فائدة .. ولعل الله أن ييسر الأمر .. لأنه أمر غريب وليس على جهاز واحد بل عدة أجهزة ؟!!