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

ربما يفيدك هذا الملف استيراد بيانات.rar

احبتى فى الله السلام عليكم ورحمة الله وبركاته أتشرف اليوم بنشر الاصدار الأول من برنامج ( شئون الطلبة ) ـ للمرحلة الابتدائية [ روابط التحميل فى نهاية الاعلان ] *** مميزات البرنامج **** : 1 ـ البرنامج يوجد بنسختين للعمل على أوفيس 2003 أو أوفيس 2010 2ـ حجم صغير حيت لا يتجاوز الملف 1.3 MB فقط 3ـ برمجة عالية وسرعة فى الأداء. 4 ـ يحتوى على شئون الطلبة وكافة السجلات الإدارية 5 ـ قوائم الفصول والأنشطة الاختيارية : ــ حيث يتيح البرنامج الحصول على قوائم الفصول بحد أقصى 72 طالب فى الفصل ــ و يتيح الحصول على قوائم الفصول بحد أقصى 80 طالب فى الفصل الواحد . 6 ـ يقوم البرنامج باستخراج التلاميذ الموزعين على الأنشطة الاختيارية تلقائيا . 7 ـ سجلات قيد الطللاب من الصف الأول إلى الصف السادس 8 ـ تعليمات التشغيل الضرورية توجد على شكل ملاحظات داخل الأوراق . 9 ـ اسم المستخدم المبدئى هو Mohamed وكلمة المرور هى 2018 يمكن تغيير اسم المستخدم وكلمة المرور ---------------------------------------------- روابط التحميل : نسخة تعمل على أوفيس 2010 أو أعلى https://up.top4top.net/downloadf-557ngs9o1-rar.html نسخة تعمل على أوفيس 2003 https://up.top4top.net/downloadf-557krtmo2-rar.html -------------------------------------- وإليكم بعض الصور من داخل البرنامج أعجبنيعرض مزيد من التفاعلات تعليق ================ ماسبق منقول من الفيس

برنامج_مخازن_جديد.xlsm

اولا احب ان اشكر كل اعضاء و مشرفى هذا المنتدى العظيم الذى تعلمت و لازلت اتعلم منه الكثير و الكثير و اليوم اقدم الى الجميع برنامج المخزون الشامل حيث قد طلب منى احد الاصدقاء برنامج لضبط حركه مخزون شركته وهى شركه مستحضرات تجميل فقد قمت بعمل هذا البرنامج الذى يصلح لكل انواع المخزون مع بعض التعديلات البسيطه نبذه صغيره عن البرنامج 1-برنامج يحتوى على صفحه فواتير المبيعات و المشتريات و المرتجعات 2-و يحتوى على صفحه كشف حسب العملاء التى توضح المدفوع و المستحق خلال فترات معينه 3- صفحه التقارير وتضم حركه الاصناف حركه الفواتير وتقرير شامل بالمبيعات و المشتريات خلال اى فتره انت تحددها 4- كما يمكنك ادخال اى سند سواء كان صرف او قبض من خلال فورم ادخال السندات 5- حركه المخزون و التى توضح الربح و الخساره لكل صنف على حده و المزيد و المزيد من المزايا الاخرى التى سوف تكتشفها بنفسك ملاحظات تم عمل البرنامج على اكسيل2010 وتم تجربته بنجاح على اكسيل 2010 الرقم السرى للدخول الى البرنامج هو 123 وانصح جميع الاخوه الذين يجربون البرنامج ان يتم تجريبه على نفس الاصدار تجنبا لحدوث اى مشاكل تم رفع البرنامج على موقع الميديا فير حيث ان حجم البرنامج 2 ميجا بايت كما ارحب براى الاخوه و الخبراء فى البرنامج سواء كان نصيحه او نقد او معلومه جديده كما انوه باننى جاهز لاى استفسار او تعديل لهذا البرنامج لمن يريد على حسب طبيعه عمله و على حسب وفت فراغى و اخيرا اشكر كل اعضاء ومشرفى هذا الصرح العظيم الذى تعلمت منه التحميل من الرابط التالى http://www.mediafire.com/file/u34hp2c38h6slc7/برنامج المخزون الشامل.rar برنامج المخزون الشامل.rar

تفضل جرب غائب: Val(Nz(DCount("[Sit_no]";"الدور الثاني";"[School_code]= " & [School_code] & "and code_kyab >5");0)) وياريت تشوف المشاركة دى هتفيدك

وعليكم السلام أخي الكريم كريم (حلوة القافية) جرب الكود التالي .. عله يفي بالغرض Sub Test() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ") ws.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(Time, "hhmmss") ws.Activate ws.Range("F12:H36").ClearContents MsgBox "Done ...", 64 End Sub أعتقد أن الملف المرفق به تلف أو شيء ما مريب حيث تتجمد أوراق العمل .. عموماً حاول تجرب الكود وتشوف .. ولو فيه مشاكل أنشيء الملف من جديد أفضل تقبل تحياتي كشوف معاشات استثنائية.rar

جرب هذا الكود Sub copy() Sheets("ورقة2").Range("b12").Resize(, 7).Value = _ Sheets("ورقة1").Range("B" & Rows.Count).End(xlUp).Rows.Resize(, 7).Value End Sub

نعم تتغير العلامات التي تحصر المقارنة انظر اسفل : الأول يبحث في الحق النصي والثاني يبحث بالحقل الرقمي rs.FindFirst "[text_field] = '" & Me![textSearch] & "'" rs.FindFirst "[number_field] = " & Me![textSearch]

السلام عليكم يوجد هناك برنامج جاهز يعطيك جميع هذه الخصائص و أكثر اسمه aSc TimeTables https://asc-timetables.ar.uptodown.com/windows

رغم ان موضوعك مكرر ولكن من باب عرض اكثر من حل تفضل بحث في النموذج بواسطة الاسم مثال اظهار بيانات السجلات2.rar

السلام عليكم من ابداعات عبدالله باقشير حفظه الله

جرب هذا التعديل Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Cells.CountLarge > 1 Then GoTo 1 If Target.Row > 5 And Target.Column = 4 Then Dim lr As Long, x As Long, y As Variant y = Target.Value lr = Cells(Rows.Count, Target.Column).End(xlUp).Row x = Application.WorksheetFunction.CountIf(Range("D6:D" & lr), y) If y < 1 Or y > 10 Or Not IsNumeric(y) Then MsgBox "Wrong Entry", vbExclamation: Exit Sub If x > 50 Or y < 1 Or y > 10 Then _ MsgBox "The Number " & Target.Value & " Exceeds 50" & Chr(10) & _ "this number will be deleted", vbExclamation: Target = "" End If 1: Application.EnableEvents = True End Sub

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

1-اختر اي خلية من العامود D 2-اضغط Alt+D+L تظهر لك نافذة والمعادلة المطلوبة من الخلية D6 لغاية الخلية D506

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

جزاك الله خيرا إذا نستطيع الآن أن نقول ان الأداة قدراتها فى تخفيض الأمان لم تتعد حدود الاصدار 2010 ولكن يمكن تطويرها لتشمل باقى الاصدارات بعد معرفة عنوان مفتاح الرجسترى الخاص بالاصدار المطلوب كـ 2013 و 2015 و 2016 هل من مشمر للتجربة معنا هل من منتقد للعمل هل من مقيم للعمل أين الشباب ؟

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

بسم الله الرحمن الرحيم هذه أول مشاركة لي في المنتدى الرائع مع أني عضو فيه منذ فترة وفعلت طريقة لعمل فهرس قد لا تكون هي الطريقة المثلى ولكنها تعمل معي : أولا : كتبت فهرس بيدي في الصفحة الثانية بعد الغلاف أو بعد المقدمة ثانيا : تذهب إلى العبارة التي تخص أول عنوان وتظللها ثم تختار INSERT ------BOOKMARK وتسميها باسم من كلمة واحدة أو أكثر بدون فواصل ثم ADD لنفترض أن العنوان في الفهرس الفصل الأول وفي صفحته بنفس الإسم طبعا فتكون البوك مارك مثلا : الأول ثالثا : تذهب إلى الفصل الأول في الفهرس وتظلله وتختار INSERT--------HYPERLINK -------PLACE IN THIS DOCOUMT ثم تختار BOOKMARK باسم الأول الذي تم عمله مسبقا وهكذا مع كل عنوان رابعا : لوضع رقم الصفحة التي بها كل عنوان تذهب إلى الفهرس وبجوار عنوان الفصل الأول تضع خط وفي آخره تختار INSERT---------REFRENCE ---------CROSS REFRNECE وفي خانة REFRENCE TYPE تختار BOOKMARK وتختار تحتها الأول ( طبقا للمثال) فيظهر في المربع المقابل له والمسمى INSERT REFRENCE TO تختار PAGE NUMBER سيضع لك رقم الصفحة خامسا : لتحديث الرقم تلقائيا يتم اختياره في أي وقت وعمل RIGHT CLICK واختيار REFRESH أرجو أن أكون قد ساعدتك