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

يمكن ان يكون ما تريد تم استبدال الملف لان الجهاز رفض التعامل معه (يحتوي على فيروس) first_sec semester.rar

السلام عليكم ورحمة الله تم التعديل على الجزئية التالية بالكود: With Sheet2 X = .Range("A" & .Rows.Count).End(xlUp).Row For R = 10 To X If .Range("G" & R).Value = "مستجد" Then M = M + 1 Cells(M + N, 2) = M For C = 1 To 14 CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22) Cells(M + N, C + 2) = .Cells(R, CC) Next C If M Mod 30 = 0 Then N = N + 8 End If Next R End With حسب ما يلي : With Sheet2 X = .Range("B" & .Rows.Count).End(xlUp).Row For R = 8 To X If .Range("G" & R).Value = "مستجد" Then M = M + 1 Cells(M + N, 2) = M For C = 1 To 11 CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22) Cells(M + N, C + 2) = .Cells(R, CC) Next C If M Mod 30 = 0 Then N = N + 8 End If Next R End With (التعديل كان في الأسطر 2 - 3 - 7 من هذه الجزئية) بن علية 41 مستحدين.rar

شرح الكود: ابحث عن price في جدول outcome عندما تكون قيمة codTy = قيمة الحقل، ضمن معيار codDe = قيمة الحقل الموجود في حقل X اعمل زر أمر وضع في حدث عند النقر الكود التالي: Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Total") rst.AddNew rst("coDde").Value = Me.X rst("totall").Value = Me.totall rst("date").Value = Me.Date rst.Update :: تحياتي

السلام عليكم ورحمة الله ويركاتة اقدم لكم برنامج ثوابى الاصدار الاول للمخازن وحسابات العملاء والموردين البرنامج مفتوح المصدر لكى يستفيد منه الجميع وتحياتى الى كل الاخوا الكرام اعضاء ومشرفين تم تبديل المرفق بالنسخة الأخيرة بحسب طلبك منتدى اوفسنا "جرجس" مصر محافظة بورسعيد girgis_girgis22@yahoo.com

السلام عليكم الأخ باديس وضعت طريقتين جربهما و استعمل الافضل الطريقة 1 في Feuil1 و الطريقة 2 في Feuil3 factureexemple 1.rar

الأخ الكريم محمد خليل السيد بعد التحية اليك المرفق التالى لعلة يفى بالغرض abo_abary_دمج كودين.rar

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

ليس من الضروري ذلك

أخى فى الله وحبيب قلبى استاذى ومعلمى // ابو حنين السلام عليكم ورحمته الله وبركاته هههههههه *** هههههههههه *** ههههههههه والله زمااااااان ياأبو حنين والله العظيم حضرتك اللى ليك وحشة كبيرة رغم اننى حذفت السطر المشار اليه إلا اننى لم أنتبه ان المرفق غير مرتب على النحو الصحيح من القلب قنديل الهوى ما بينطفي والحـر شــو ما صار بيضله وفي ياللي ما عنده كبير بيقول المتل يبرم ع شخص كبير ياخود معرفة قديش حلوة هالشيبة بتنقط حسن وهيبة ولو كنا بالعمر كبار عنا قلوب ولاد زغار مين قال الهوى عيبة حلوة كتير كتير كتير يقولوا هالانســــان كبير بيخلق طير الحب زغير وغير ما بيكبر ما بيطير مين قال الهوى عيبة كل مالك عم تتحلـّي صبية رح بتضلـّي ليكي القمر شو ختيار بعده بيعطي الليل نهار مين قال الهوى عيبه كبير السن كبير القلب كبير النفس كبير الحب ما في شب بيبقى شب ومن غير آخد ما في درب يالله بعد هالغيبه نحط الشيبة عالشيبة بارك الله فيكم وأسعدك الله تعالى فى الدارين تمت الافادة بكلا المرفقين وجزاكم الله خيرا

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

الإخوة الكرام السلام عليكم الكود المرفق في الملف لترحيل الطلبة المستجدين من ورقة الأول الي ورقة كشف 41 مستجدين ولكن يبدو اني لم ادخل المعطيات في الكود بشكل صحيح .... ويوجد خطأ .... وبالتالي لم يتم النرحيل فما الخطأ ؟؟؟؟ 41 مستحدين.rar

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

شكرا لك اخي الوزير لكن هل من الممكن ان تشرح لي الكود الذي قمت بوضعة ؟ F2 = DLookup("[price]", "outcome", "[CodTy] = 1 And CodDe=X") مع مطلب اخير اذا ممكن نسيت اذكرة .. احتاج عمل زر حفظ عندما اضغط عليه ياخذ ال coddy من حقل ال X ويضعة في جدول total في خانة coddy ايضاً وباقي المعلومات المجموع الكلي والتاريخ تحفظ تلقائياً

SELECT Fieldname FROM Tablename WHERE (((Tablename.Fieldname)=DMax("Fieldname","Tablename"))) OR (((Tablename.Fieldname)=DMax("Fieldname","Tablename"))); وهكذا ... :: تحياتي

معذرة احبتي في بعض الاحيان نضطر لتطبيق النظام الموضوع مخالف : عدم كتابة عنوان مناسب يصف الموضوع ْxxx يغلق xxx

=IF($B2<=$K$3:$K$13;VLOOKUP($F2;$L$4:$N$13;MATCH($D2;$L$3:$N$3;0);0);"") السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية H2 واسحب نزولا ولا تنسى ان تضغط CTRL + SHIFT+ ENTER

حفظ قاعدة البيانات بأخذ نسخة ووضعها على D:\ عند إغلاق قاعدة البيانات ( أي في كل مرة تغلق فيها قاعدة البيانات ) وتسميتها بالعام مثلا 1429/1430 يتم تحديث بيانات النسخة الاحتياطية عند كل إغلاق ، وفي نهاية السنة وبداية سنة جديدة يتم نسخ قاعدة جديدة باسم العام الجديد ليبقى لكل عام قاعدة تخصه . تقبلوا تحيات أخيكم ... ابو خليل.. في المرفقات المثال قم بعمل التالي : 1 - اجلب الوحدة النمطية SaveFolder الموجودة في المثال إلى قاعدة بياناتك فقد تحتاج اليها مستقبلا عندما تود تحديد مكان النسخة 2- يوجد في النموذج مربعي نص مخفية قم بنسخهما إلى النموذج الرئيسي في قاعدة بياناتك 3 في حد ث عند الإغلاق للنوذج الرئيسي الصق هذا الكود : كود On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = [DBOld] DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub وفي حدث عند التحميل الصق هذا الكود : كود '[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية [DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة [DBNew] = "D:\" 'اختيار مكان حفظ النسخة __________________.rar

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى فى الله وجدت اداه لتحسين شكل الفورم هى قديمه وحتى الموقع التابع لها لم يعد يعمل ولكن وجدتها ومعها تسجيل لها الاداه اسمها نايس بانل تمنياتى لكم بالتوفيق والنجاح ConectExcel3.rar

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

أخي العزيز أبو صلاح بالنسبة للسطر المشار إليه يقوم بجلب رقم العمود المستهدف (أي العمود المطلوب إظهاره فقط) وهنا قام الأخ سليم باستخدام الدالة MATCH حيث يتم البحث عن التاريخ الموجود في الخلية C2 ضمن النطاق E4:AI4 وعند وجود التاريخ المطلوب يتم تحديد العمود ، والإضافة + 4 لأن العمود الذي سيتعامل معه يلي الأعمدة الأربعة الأولى مثال : لنفترض أن الخلية C2 بها التاريخ 3/10/2016 أي العمود G .. سيتم البحث عن التاريخ ضمن النطاق E4:AI4 وستكون النتيجة عبارة عن رقم 3 ثم يضاف الرقم 4 ليصبح رقم العمود الذي سيتم التعامل معه هو العمود السابع ويمكن الاستغناء عن الرقم 4 بتعديل النطاق وجعله A4:AI4 بدلاُ من E4:AI4 وكل عام وأنتم بخير

وعليكم السلام ورحمة الله وبركاته رمضان كريم ،،، وتقبل الله منك اخي الكريم في المرفق : - يتم انشاء ملف اكسل على سطح المكتب يحتوي على جميع قوائم الصفوف كل حسب صفه - الملف الناتج فيه خلايا محمية وانا قمت بتحديد خلايا العلامات فقط وتستطيع التغيير حسب ما تريد من الوحدة النمطية - لا حاجة لاختيار القسم قبل التصدير كما هو معمول في مثالك -وضعت لك وحدة نمطية للتحكم بتنسيق ملف الاكسل تستطيع تصميمه حسب ما تريد -لحماية الورقة بكلمة سر فقط فعل امر الحماية الموجود في الوحدة النمطية الخاصة بالتنسيق -اي استفسار انا في الخدمة ... :: تحياتي Alwazeer-Tangeet.rar

اخي الكريم: هل تقصد بالحماية: حماية الملف المصدر بكلمة سر؟؟؟ أم حماية خلاية محددة من الكتابة فيها؟؟؟ اذا كان حماية خلايا محددة تستطيع ذلك باستخدام امر : objWkb.Worksheets(اسم الورقة).Range("A1:B1").Locked = False ولحماية الورقة تستطيع استخدام امر: objWkb.Worksheets(اسم الورقة).Protect "", True وللحماية بكلمة سر نستطيع استخدام امر: wrkbk.Sheets("اسم الورقة").Protect Password:="كلمة السر", DrawingObjects:=True, _ Contents:=True, Scenarios:=True wrkbk.Protect Structure:=True, Windows:=False وهكذا ... ان لم تستطع التطبيق ارفق ملفك وسوف اقوم باجراء اللازم :: تحياتي

تم التعديل قليلاً على الملف ليعمل كما تريد المكرر salim.rar

طلب مني أخي أ/ إبراهيم أبوليلة في شرح موضوع القوائم المخصصة باستخدام الخصائص المتقدمة لادوات تحكم اليوزر فورم وكنت ساضيفها في موضوع (امثلة عن كيفية استخدام أدوات الفورم ) لكن فضلت ان تكون في موضوع منفصل لسهولة البحث ولتعميم الفائدة اضافة الأكواد الخاصة باظهار كل قائمة من حيث موضعها ومكانها وامكانية رؤيتها القوائم.rar

تفضل : اختيار.rar

السلام عليكم جميعا بأختصار لقد قمت بعمل صفحه بالأكسل لعمل مطابقه ( تسويه ) كشف البنك وفكرتها أدخال مبالغ الشيكات حسب ما تم قيده دفتريا فى خلايا عمود معين وفى العمود الذى يليه يتم ادخال مبلغ الشيكات حسب ما جاء بكشف البنك بعد ادخال البيانات فى العمودين يتم عمل فرز تصاعدى ومن الفرز ستظهر قيم الشيكات فى العمودين وستكون قيمه الشيك الواحد متقابله او قريبه فى العمودين بعد ذلك يقوم المستخدم يدويا بالغاء مبلغ الشيكات المتطابقه فى العمودين وفى النهايه ستكون المبالغ الموجوده فى عمود الدفترى هى شيكات مدرجه دفتريا ولم تظهر بكشف البنك وستكون المبالغ الموجوده فى عمود البنك هى شيكات ظاهره فى كشف البنك وغير مدرجه دفتريا هذه المبالغ مربوطه بصفحه اخرى هى صفحه التسويه ستظهر بها وبذلك نكون قد طابقنا كشف البنك وطبعناه بطريقه سهله طبعا هذه الطريقه مفيده جدا فى الحالات التى تكون فيها حركه البنك كبيره نوعا ما ولكنها غير عمليه لمن ليست لديهم حركه كثيره على البنك طبعا هذا الموضوع يعيبه عمليه الحذف التى تتم يدويا :cry: ولذلك أرجو من الأخوه المساعده على تطوير هذا البرنامج وأرجو من الأخ المشرف وضع بريده مشكورا وسأقوم بأرسال الملف له لوضعه بالمرفقات