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

الى اخوانى واساتذتى معلمى المرحلة الابتدائية هدية متواضعة منى اليكم .. كشوف درجات الفصل الدراسى الاول 2013 / 2014 طبقا للقرار 313 ( التقويم الشامل ) من الصف الاول الى الصف السادس مواد الصفوف_ اول_ثانى_ثالث.rar

السلام عليكم هذا تعديل على كود اخي الحبيب احمد عبد الناصر ليتوافق مع اكسل 2003 Sub Dahmour() d1 = Format(DateSerial([c2], [c1], 1), "mm/dd/yyyy") d2 = Format(DateSerial([c2], [c1] + 1, 0), "mm/dd/yyyy") r = Range("b3:j" & Cells(Rows.Count, 2).End(xlUp).Row).Address Range(r).AutoFilter Field:=1, Criteria1:=">=" & d1, Operator:=xlAnd _ , Criteria2:="<=" & d2 End Sub شاهد المرفق 2003 +فرز حسب الشهر.rar

التقرير لا يمكن ان يتمدد افقيا كالاستعلام لذا لزم اخراج الاحصائية بطريقة رأسية انظر الاستعلام بعد التعديل ، يمكنك الآن بناء تقريرك عليه db6.rar

شاهد المرفق تطبيق للكود السابق جرب انقر على الزر وشاهد النتائج امل ان يكون ماتريد علامه.rar

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

aa: IIf([hh]-[jj]<=0;"خالص";[hh]-[jj]) اريد كلمه خالص.rar

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

ويمكن الاكتفاء عن الوحدة النمطية بهذا السطر نضعه في مصدر عنصر الحقل المحدد =Day(DateSerial(Year(Date());Month(Date())+1;1)-1)

بتوفيق الله وفضله هذه وحدة نمطية صغيرة تقوم بالطلب Public Function MonthDays() Dim myMonth As Long myMonth = Month(Date) MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1) End Function عدد ايام الشهر الحالي.rar

السلام عليكم شاهد المرفق 2010 بحث بواسطة حرف اول.rar

السلام عليكم كود الترحيل Sub kh_Start() Dim x Dim Cont As Integer, M As Integer, Z As Integer Dim r As Integer, rr As Integer, c As Integer, cc As Integer 1: x = InputBox("ادخل عدد الارقام . ") If x = Cancel Then Exit Sub x = Val(x) If x = 0 Then GoTo 1 Cont = Abs(Int(-x / 30)) M = x Mod 30 rr = 1 Z = 30 Sheets("02").UsedRange.ClearContents For r = 1 To x Step 30 c = c + 1 cc = cc + 1 If cc = Cont Then If M Then Z = M Sheets("02").Cells(rr, c).Resize(Z, 1).Value = Sheets("01").Cells(r, 1).Resize(Z, 1).Value If c = 7 Then c = 0: rr = rr + 30 Next End Sub كود المسح Sub kh_Clear() Sheets("02").UsedRange.ClearContents End Sub شاهد المرفق 2010 ترحيل الى جدول.rar

حماية البيانات في الاكسل 1-3

قلوبنا دائما مع سوريا

الاخوه الكرام في بعض الاحيان نقوم بتصميم برامج على الاكسيل ولا نحتاج الى تصفح الملف لان العمل ينفذ بالكامل من خلال الفورم ولا ننسى ان المنظر الجمالي للبرنامج يكون بشكل ارقى بكثير حينما يظهر الفورم فقط المرفق المرسل هو ملف دليل الهاتف الذي ارسلته منذ عشرة ايام تقريبا ولكني فضلت ان يكون في موضوع منفصل حتي يتيح للجميع التعرف على كيفية اخفاء الملف بالكامل * في حال انك رغبت في اظهار الملف ،ستجد في اسفل الفورم من الجهه اليسرى زر امر بدون عنوان ارجوا المعذره ان كانت الفكره قديمه او مطروحه من قبل ، لكنني شخصيا لم اعلمها الا اليوم PHONE BOOK.rar