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

مجرد فكرة .. فورم لعمل تقرير (شهري - ربع سنوي - سنوي) مع رسم بياني كثيرا منا يحتاج لعمل تقارير (شهرية - ربع سنوية - سنوية ) للمبيعات , للايرادات , للمصروفات ......... الخ فجاءتني فكرة ( >>> تقبل الخطأ والصواب <<<) لعمل فورم يقوم بجمع بيانات المبيعات ويصنفها شهريا وربع سنوية وسنوية مع عرض الرسم البياني فاحببت ان اشاركها معكم عسي ان يستفيد بها احدا من اخواني بصرحنا العظيم التطبيق بالمرفقات Charts Form.rar

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

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

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

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

ليس الخـلائـقُ كلـُهـم أكـفـــــــاءُ * لايستوي الجهّال والعـــلـمــــــاءُ لايستـوي نبـعٌ تـرقرقٍٍَ مـائُــــــهُ * يروي الأنامَ وصخرة صـمــــــّاءُ لايستــوي جنـّاتُ فيـهـا كـلـــمــا * تهوى النفوس إليه والصحــراءُ دومـاً يموت الجاهلـون بجهلهــم * والعالـمـون بعلمـهـم أحيـــــــــاءُ فـالعالـمون العامـلـون بعلمـهـــم * بـاقـون مـا بقيت هنـاك سـمـــــاءُ لـله طـوعا أوقـفـوا أبدانـهـــــــم * ولِـنـشـر ديـن الله هـم أُمنـــــــــاءُ فهُمُ المصابيح التي نُبصر بهــــا * إن داهـمـتـنـا لـيلـة ظلـمــــــــــاءُ تقبل مروري أخي الكريم وبارك الله فيكم وفي هذا المنتدى الصرح

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للدالة MAX فقد ذكرت سبب استعمالها بالتسمية، ويمكن استعمال صيغتها (المعادلة) بدل تسميتها في المعادلة بـ J14 غير أنه يجب تأكيد المعادلة بوساطة ctrl+shift+enter مما يزيد في حجم (وزن) المعادلة وقد يبطئ ذلك الملف وهذه أيضا إجابة للتساؤل الثاني، إن لكل معادلة حجم (وزنها بـالـبايت Bits) كلما زاد هذ الوزن كلما أثّر ذلك سلبا في عمل الملف... والدالة VLOOKANYCOL دالة مستحدثة في المنتدى وغير معروف حدودها وطاقتها في الملفات... وقد قارنت وزنها مع وزن الدالة INDEX التي عوضتها بها فوجدت أن وزنها تقريبا 15 مرة وزن المعادلة الجديدة... وليس لي تفسير آخر... أرجو أني قربت المفهوم لحضرتك... ملاحظة : بالنسبة للدالة MAX فهي تقوم بتحديد رقم الصف الأخير الذي يحقق الشرط (من الصف 14): 'الانتاج والمبيعات'!$D$1:$D$10000=الطلبيات!$D14 وهذ يعني تعيين آخر رصيد للصنف المطابق لما في الخلية D14 من شيت "الطلبيات" أخوك بن علية

السلام عليكم ورحمة الله أخي أسامة، تم استبدال الدالة VLOOKANYCOL بدالتي البحث INDEX و MATCH في كلتا الورقتين... في الورقة "الطلبيات" تم إنشاء معادلة باستعمال الدالة MAX بالتسمية Position انطلاقا من الخلية J14 (المؤشر يجب أن يكون موجودا في هذه الخلية أثناء إنشاء هذه التسمية) وذلك لتجنب تأكيد معادلة الصفيف المكتوبة في الخلية J14 بواسطة Ctrl+Shift+Enter قمت أيضا بتعديلات أخرى (تحسينية) على معادلات أخرى... أرجو أن يفي هذا التغيير بالمطلوب رغم وجود بعض البطء في الملف (بسبب معادلات الصفيف في ورقة "الطلبيات") لكن ليس كما كان عليه الملف قبل التغيير... أخوك بن علية الملف المرفق : officena1.rar

الشكل الاول Private Sub CommandButton1_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationGetTechy End With End Sub الشكل الثاني Private Sub CommandButton2_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationCheckingSomething End With End Sub الشكل الثالث Private Sub CommandButton3_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationListensToComputer End With End Sub الشكل الرابع Private Sub CommandButton4_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationSearching End With End Sub الشكل الخامس Private Sub CommandButton5_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationThinking End With End Sub الشكل السادس Private Sub CommandButton6_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationWorkingAtSomething End With End Sub الشكل السابع Private Sub CommandButton7_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationWritingNotingSomething End With End Sub مع تحياتى & قنديل الصياد &

السلام عليكم بعد اذن اخي الحبيب ضاحي المرفق به ماتريد أولاً إملاء عمود "O" من بعد السطر الأول بالإختصارات المرغوب إستخدامها ومن ثم إفتح الفورم وعند تحديد مربع "وذلك عن " = TxDescription إضغط زر "F11" ويليه مباشرة "F12" لعمل كومبوكس وبه الإختصارات المدرجة سابقاً في عمود "O" + فتح القائمة ( "F12" أو كليك على الكموبكس ) لـ فتح القائمة ( كـاإختصار ) بعدها إنقر على البيان المراد من الليسته ينضاف ديركت في مربع "وذلك عن " أرجو ان يفي بالغرض khaledkhaleel_1.rar

رائع استاذى العظيم ابو حنين وهذا الكود استخدمه استاذنا فى حدث ورقة تسجيل البيانات Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer LR = Cells(Rows.Count, 1).End(xlUp).Row On Error Resume Next If Target.Column <> 1 Or Target = "" Then Exit Sub If Application.WorksheetFunction.CountIf(Range("A2:A" & LR), Target) > 1 Then MsgBox "هذا الرقم مكرر فى الخلية", vbInformation, "اسم مكرر" Target = "": Target.Select Exit Sub Else Target.Offset(0, 1) = Val(Target.Offset(-1, 1)) + 1 End If End Sub

ماهو رايكم افيدونا شهادات الصف الرابع والخامس.rar

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