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

بفضل الله ثم مجهودك زادك الله من علمه النافع

جزاك الله عنى خيرا

آسف أخي تفضل comb.rar

العفو اخي صالح ،،، لا شكر على واجب

السلام عليكم اتمنى أني فهمت المطلب انظر المرفق officena.rar

شكرا جزيلا أستاذي الوزير لقد وفيت و كفيت بارك الله لك وجعلها في ميزان حسناتك إن شاء الله الآن تقريبا إكتملت لدي معلومات التصدير و الإستيراد بفضل الله عز وجل الذي سخرك لنا لتساعدنا و تأخذ أجرك من عنك رب السموات و الأراضين. تقبل الله صيامك و قيامك بمزيد من الأجر و الثواب

في المرفق عند الضغط على استيراد يتم استيراد جميع اوراق ملف اكسل وادراجها في جدول جديد يتم استخلاصه من الجدول الاساسي الخاص بك بعد ذلك تستطيع عمل زر الحاق بالسجل الرئيسي مع معيار رقم الصف :: تحياتي ImpExPortToEXCEl.rar

تشكر على المعلومة بارك الة فيك &[Page] / &[Pages]

جواب شافي ووافي ... احسنت اخي العزيز ... بارك الله بعمرك ومن تحب .

=IF(B5="";"";IF(AND((COUNTIFS(C5:AX5;"غائب")=0);(COUNTIFS(C5:AX5;"دون المستوى")=0));"ناجح";"راسب")) انظر الى المعادلة (هذا العمل للمحترم الاستاذ محمد ابو البراء ) لو لاحظنا في هذه الدالة سنجد ان االدالة ليس فيها الا نطاق واحد متكرر مرتان وهو c5:ax5 هذا النطاق هو نطاق اول طالب فيه تقديراته من اول مادة الى اخر مادة فبالتالي اذا اردنا استخدامها نستطيع وبسهولة وكل ما علينا الا تغيير هذا النطاق ليتناسب مع عدد موادنا دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح. =IF(B5="";"";IF(COUNTIF(C5:AX5;"غائب")+COUNTIF(C5:AX5;"دون المستوى")=0;"ناجح";"راسب")) للاستاذ المحترم جمال عبد السميع دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح. ====================================================== ====================================================== شرط النجاح للطالب ان يكون حاصل علة 30% من درجه امتحان اخر العام ان يكون الطالب حاصل على نصف او اكبر من نصف درجة المجموع لنفس الماده لايكون غائب في امتحان اخر العام لنفس الماده abo_abary_Book1.ra =IF(OR(H13<$H$10;H13="غ";I13<$I$10);"راسبة";"ناجحة")

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

السلام عليكم في الويندوز عندك ادخل المسار التالي بعد ما تقفل كافة البرامج المفتوحة ويفضل تعمل ريستارت قبل ما تنفذ الخطوات C Windows System32 المفترض وجود ملف يسمى Fm20.dll اذا لم يكن موجود يمكن تحميله بكتابة اسمه في جوجل أو ممكن نجبهولك مفيش مشكلة ثانيا في حالة وجود الملف او اضافته الخطوة الثانية من قائمة ستارت تشغيل Run واكتب التالي Regsvr32.exe fm20.dll واضغط انتر المفترض يظهرلك رسالة كالتالية تفيد نجاح تثبيت الملف DllRegisterServer in c:\windows\system32\fm20.dll succeeded. اضغط أوكي وجرب تفتح الاكسل عسى خير ان شاء الله

Private Sub food_Change() Me.Txt = Me.food.Text Txt.SetFocus 'food.Requery food.SetFocus Txt = "" End Sub حياك الله اخي محمد اوقف التحديث في حدث عند التغيير للكومبو Food

السلام عليكم و رحمة الله تعالى وبركاته .بارك الله فيك يا أخي و أحسن الله إليك على المساعدة و الشكر موصول أيضا للأستاذ ياسر خليل أبو البراء الحمد لله لقد نجحت معي الفكرة بعد إجراء بعض التغييرات على الكود و أصبح كما يلي: lr = ws.Range("A1").CurrentRegion.Rows.Count .Range("f2").Formula = "=SUM(c2:e2)/count(c2:e2)" .Range("f2").AutoFill Destination:=.Range("f2:f" & lr), Type:=xlFillDefault .Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" .Range("h2").AutoFill Destination:=.Range("h2:h" & lr), Type:=xlFillDefault

جزاكم الله كل خير على أعمالكم

ممكن نشارككم استاذ عبدالفتاح وبكود مختصر من وجهة نظري قبل التحديث افضل وعدم تصفير العنصر لكي لا يتم الادخال من جديد Private Sub CHqawmy_BeforeUpdate(Cancel As Integer) If Len(CHqawmy) <> 14 Then Cancel = MsgBox("الرقم غير صحيح") End Sub

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

السلام عليكم لم استطع تحميل الملف ، و لا ادري ما السبب ============================= تم حل المشكلة و كانت في بطئ الانترنات جرب المرفق اخي ابو عبد الرحمان و اخبرني بالنتائج أبو حنين 2.rar

جرب هذا الماكرو Sub fix_Them() lr = Sheets("ورقة1").Cells(Rows.Count, "A").End(3).Row Sheets("ورقة1").Range("f2").Formula = "=Average(d2:e2)" Range("f2").AutoFill Destination:=Range("f2:f" & lr), Type:=xlFillDefault Range("f2:f" & lr).Value = Range("f2:f" & lr).Value Sheets("ورقة1").Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" Range("h2").AutoFill Destination:=Range("h2:h" & lr), Type:=xlFillDefault Range("h2:h" & lr).Value = Range("h2:h" & lr).Value End Sub

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

تفضل أخي الكريم: لم يفتح معي لاني ايضا لا املك الا اوفيس 2007 اضف حقل التعريف لديك في استعلام البحث وغير رقم العمود (7) حسب مكان حقل المعرف لديك، من خلال الصورة بعد اضافة المعرف في الاخر يكون (7) ضع هذا الكود في حدث عند النقر المزدوج على الاسم بعد التصفية Dim stLinkCriteria As String stLinkCriteria = "[رقم المعرف لديك]=" & Me.[اسم القائمة التي يظهر فيها البحث].Column(7) If IsNull(Me.[اسم القائمة التي يظهر فيها البحث].Column(0)) Then MsgBox ("يجب اختيار اسم قبل النقر المزدوج") Else DoCmd.OpenForm "اسم النموذج الذي تريد فتحه", , , stLinkCriteria DoCmd.Close acForm, "اسم نموذج البحث" End If :: جرب ووافني بالنتيجة واذا لم تستطع ارفق مثالاً بصيغة 2007 تحياتي

تمام شكراً لك اخي الكريم وبارك الله بك

عوداً حميداً أخي الغالي الجموعي لقد اشتقنا لرؤية مشاركاتك كل عام وأنت بخير

فقط اكتب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) With [a15] .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .VerticalAlignment = -4108 .HorizontalAlignment = -4108 End With End Sub

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

حياك الله اخي الكريم الحقل (Txt) لم يكن موجوداً وكان ناقصاً.

السلام عليكم اخي الكريم جرب هذا الملف يظهر رقم الفلاشة ويمكن حفظه في جدول flash Disk Serial.rar

الحل : ICDL_TrainingCenter_ver2.rar