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

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

من رخصة استاذي الجليل جعفر القدير اتفضل هذا استعلام لعل يفيدك db1 (13).rar

بداية الغيث قطرة.. وفر وقتك في كتابة الكودات، طريقة رائعة في إدراج الأزرار برمجياً وربطها بالماكرو بشكل تلقائي.. تحتاج لمسات العباقرة. إضافة أزرار برمجياً2.rar

الاخوه الافاضل اريد طريقه تمكننى من العمل على الملف فى نفس الوقت مع مستخدم اخر عن طريق الشبكه مع العلم بان الملف يحتوى على اكواد vba تقبلو تحياتى

اخ محمد سلامة وبعد اطيب تحية الكود لايحتاج مرفق شغله في اي مكان ومثلا تحت زر امر . فقط غير مكان الحفظ باول سطر xf لمسار موجود لديك . وكذلك xid اسم الملف xt الوقت بالثواني بالتوفيق

لازلت في انتظار الجواب على السؤال اعلاه ، لأنه سيفيدنا في جلب التاريخ الناقص في التقرير (انظر المربع الاحمر في الصورة الاخيرة): الاستعلام التالي تم اخذه من التقرير rpt_Follow4 وتحويله من SQL الى استعلام . ونتائجه 32 سجل . جلبت احد الجداول التي استعملها في الكثير من برامج ، tbl_Months ، وفيه ايام الاسبوع حسب ترقيمهم في الكود . عملت استعلام جديد فيه جميع ايام الاسبوع (ما عدا الجمعة والسبت والسجلات الفاضية) ، ولجلب eSIS من tbl_Follow4 ، وبما اننا سنحتاج الى الاسم ايضا ، فاضطررنا لإستخدام الجدول StudentNames . والنتيجة فيها الايام التي نريدها (الايام التي لا يكون فيها الطالب غائب او متأخر) ، لاحظ عندنا 35 سجل . والان الى الاستعلام الذي سيربط الاستعلامات السابقة ، ولاحظ العلاقة بين الاستعلامات . ونتيجته ، ورجاء الملاحظة اننا من الان سنعتمد على الحقل eSIS وليس IDnum في التقرير . والان نحن بحاجة الى تعديل في التقرير قليلا ليتماشى مع المتغيرات . والنتيجة النهائية للتقرير ، وستلاحظ ان التاريخ غير موجود (طبعا غير موجود ، لأن البرنامج يسجل تاريخ الغياب و التأخير) ، فاذا اردنا الحصول على هذا التاريخ ، فيجب الاجابة على سؤالي في المشاركة السابقة . جعفر 459.1.AbsentLate 2016.accdb.zip

جرب هذه المعادلة من دون IF =IF(A1="","",VLOOKUP(A1,{0,"ضعيف";35,"جيد";65,"جيد جداً";102,"ممتاز"},2))

هوا المطلوب جزاك الله خير أخى الكريم

شرح مبسط للكود Sub Test_Yasser() 'متغير واي ونستخدمه في الحلقة التكرارية الاولى ليرمز لرقم الشيت 'متغير اكس وهو خاص بالحلقة التكرارية الثانية ويقوم بعد عدد الاسطر الموجود باه بيانات لمقارنة كل بيان بصفحته 'المتغير اس تي ار متغير من نوع نصى ليشير الى اسم الشيت وهو يساوي العمود الخاص بأسماء الصفحات Dim Y, X, str As String 'هنا المتغير واي يبدأ من 2 الى 4 وهي عدد الصفحات من بعد الاولي حتى الاخيرة For Y = 2 To 4 'هنا يتم المرور على كل الشيتات المحددة في الحلقة بخلاف الشيت الاول ومسح محتوياتهم تمهيدا لجلب المحتوى الجديد Sheets(Y).Range("C6:F" & Sheets(Y).Cells(Rows.Count, 3).End(xlUp).Row).ClearContents Next 'هناحلقة تكرارية تبدأ بأول صف بيانات وهو 6 حتى نهاية البيانات بالصفحة الرئيسية For X = 6 To Cells(Rows.Count, 3).End(xlUp).Row 'المتغيرالخاص بخليه اسم الشيت حتى يتم نسخ البيانات اليه str = Cells(X, 6) 'هنا يتم نسخ كل صف داخل الحلقة التكرارية ووضعه في الشيت المذكور اسمه بجانب البيانات 'بفرض في هذا المثال ان المتغير اكس بيساوي 6 في اول حلقة له يبقي السطر البرمجي يصبح هكذا ' Range("C6:F6").Copy Sheets("الشركة").Range("C" & Sheets("الشركة").Cells(Rows.Count, 3).End(xlUp).Row + 1) Range("C" & X & ":F" & X).Copy Sheets(str).Range("C" & Sheets(str).Cells(Rows.Count, 3).End(xlUp).Row + 1) Next MsgBox "Done........", 64 End Sub

اتفضل اتمنى ان ينال اعجابك استخدمت هذا الكود Private Sub add_doc_AfterUpdate() Dim a As Integer a = DCount("[doc]", "tra", "[doc]='" & Me.add_doc & "'") If a >= 1 Then MsgBox "عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى" End If End Sub New (3).rar

وعليكم السلام ورحمة الله وبركاته 1- تفتح الاكسل وتذهب الى 2 - خانة البيانات من ضمنها اختيار 3 - من نص اي استيراد ملف نصي وبعدها 4 - تاتيك معالج النص 5 - تختار محدد وتضغط على التالي و 6- تحدد على فاصله ومسافات بعدها اضغط 7- التالي بعدها تحدد على عام 8- و اضغط على انهاء يحول لك الملف النصي الى اكسل ارجو اني افدتك

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة إخفاء الصف الذى قيمته صفر تم ارفاق كود الحل من الفاضل/ احمدزمان و لا تنسونا من صالح الدعاء ay_____2.rar

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