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

أخي عاشق الإسلام كنت قد طلبت عمل المطلوب بالكود بعون الله وتوفقه توصلت بعد معاناة في البحث والاستفسار طوال النهار عن هذا الموضوع بالذات إليك رابط الإصدار الجديد من مكتبة الصرح ، ابحث عن كلمة [متناقصة] ستجد الكود مرفق مع الشرح السابق (يعني دلوقتي معاك 2 * 1 بالمعادلات وبالأكواد .وانت اختار اللي يعجبك) http://www.officena.net/ib/index.php?showtopic=57935&page=9#entry371933 هتلاقي ناس محتارة ، هتقول محتار أختار مين فيهم هما الاتنين عاجبني !! تقبل تحياتي

وعليكم السلام بالإضافة الى ان كلا الامتدادين يمكن عن طريقهم تشغيل الماكر الا ان الفرق في الحجم و سرعة التنفيذ يصب لصالح xlsb .. اما من ناحية تركيبة الملفين فكلاهما ملفات zip و عند تغيير الامتداد الى zip يمكنك ملاحظة ان ملف xlsm يحتوي على مجموعة من ملفات XML بينما الامتداد xlsb لدية مجموعة من ملفات bin والسؤال البديهي هو لماذا نحتاج لمفات xlsm اذا كانت ملفات xlsb لديها ميزتي الحجم و السرعة الجواب على حسب علمي هو ان ملفات xlsm لديها القدرة على تبادل البيانات مع البرامج التي تستخدم ال xml كواسطة نقل البانات من و الى البرامج الاخرى... مثلا برامج خدمات الوب web services و برامج الجوالات و ربما حتى بعض المكتبات الخارجية يمكن ان تستخدم ملفات xml لنقل البيانات . في النهاية ما اره هو انك اذا كان الحجم و السرعة مهمة جدا و انت تريد برنامج للاكسل فقط فيمكنك استخدام ملفات xlsb اما اذا اردت ملف الاكسل ان يكن اكثر انفتاحا على البرامج الاخرى و خصوصا البرامج التي تحتاج ل xml فخيار الامتداد xlsm هو الامثل والاريح

اخى الكريم راجع هذا الرابط لعلة يفى بالمطلوب http://www.officena.net/ib/index.php?showtopic=47191&hl=

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

الحمد لله الذي بنعمته تتم الصالحات قررت أن أتابع الإصدار أولاً بأول حتى يتسنى لمن يريد المشاركة الإطلاع على المكتبة و البحث عن الكود الذي سيقوم بإدراجه أولاً فإذا وجد نفس الكود فلا يتم المشاركة به مرة أخرى ، ولو وجد نفس الموضوع ولكن لديه كود آخر فليتقدم به ، فنحن نريد إثراء المكتبة بالحلول المختلفة للموضوع الواحد إليكم الإصدار الأخير (هدوخكم ورايا) Codes Library v1.9.2.rar

السلام عليكم ورحمة الله تعالى وبركاته بعد الإصدار الذي طرحته قبل أيا والذي تحت عنوان هدية لمحبي الألوان والتصميم فورم لمعرفة رموز الالوان أقدم لكم الإصدار جديد من فورم RGB Color Codes Chart واجهة الفورم نأتي الأن لشرح الفورم 1) نقوم بإنشاء 3 ============ ScrollBar نسميها كالتالي: RGB_Red RGB_Green RGB_Blue خصائصها موضحة في الصورة التالية أنا إخترت RGB_Red وهكذا مع بقية ScrollBar 2) نقوم بإنشاء 3 =========== TextBox نسميها على النحو التالي TRed TGreen TBlue خصائصها موضحة في الصورة التالية أنا إخترت TRed وهكذا مع بقية TextBox 3) نقوم بإنشاء ========== Label نسميه بإسم RGB_Color خصائصه موضحة في الصورة التالية 4) نقوم بإنشاء ========== CommandButton نسميها بإسم Cmd_Copy خصائصه موضحة في الصورة التالية نأتي إلى المرحلة المهمة وهي إدراج الاكواد 1) في حدث ScrollBar مثال: أنا أخترت ScrollBar الأحمر وهكذا مع باقي ScrollBar Private Sub RGB_Red_Change() RGB_Color.BackColor = RGB(TRed, TGreen, TBlue) 'والقيم تأخذ من مربعات النص الثلاث RGBالليبل المسمى(RGB_Color) عند تعبئة بالون يساوي Me.TRed = RGB_Red ' هنا قيمة مربع النص تساوي قيمةScrollBar End Sub 2) في حدث TextBox مثال: أنا أخترت TextBox الأحمر وهكذا مع باقي TextBox Private Sub TRed_Change() RGB_Red = Me.TRed ' هنا قيمة( ScrollBar) تساوي قيمة مربع النص End Sub 3) في حدث CommandButton زر النسخ Cmd_Copy نستعمل الكود التالي Private Sub Cmd_Copy_Click() Dim myClipbd As New DataObject With myClipbd .SetText "RGB" & " " & "(" & Me.TRed & "," & " " & Me.TGreen & "," & " " & Me.TBlue & ")" .PutInClipboard End With MsgBox "تم النسخ بنجاح" End Sub عند لصق الكود يكون على الشكل التالي RGB (150, 103, 53) أتمنى الشرح والفكرة نالت إعجابكم تم بحمد الله وتوفيقه أترككم مع الملف المرفق RGB Color New.rar

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

السلام عليكم إخواني الكرام أقدم لكم اليوم إضافة مذهلة ورائعة تقوم بفصل البيانات طبقا لما تحدده من شروط أترك لكم المرفق معه شرح للتعامل مع الأداة الإضافة والشرح وملف لعمل اختبار للأداة مرفوع على الموقع التالي : http://www.gulfup.com/?IWS9o6

بسم الله ما شاء الله ربنا يبارك فيك أخي الجموعي وجزاكم الله خير الجزاء عمل في منتهى الروعة والإبداع

السلام عليكم تفضل اخى الكريم ان شاء الله يكون المطلوب تحياتى 12345.rar

اخى الفاضل وبعد إذن أستاذي سليم .. ولإثراء الموضوع حل آخر بحذف الصف عند الضغط على مفتاح Delete فقط تحياتي Delete==Press-DeleteKey.rar

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

اخي الغالي الله يبارك فيك وشكراً على المجهود الكبير

السلام عليكم ورحمة الله أخي الكريم إسماعيل، في الحقيقة لم أفهم المقصود من طلبك... هل تريد طباعة "الحركات" بعد أن تجمع في شيت واحد الشيتين Deposit (الإيداع) و السحب (ولا أرى أي فرق بينهما حسب عناوين الأعمدة -عمود مبلغ الإيداع-) أم تريد طباعة بطاقة معلومات لعميل معين؟؟؟ وقد نسيت أن تضع في نص موضوعك الرقم السري 111 للدخول إلى التطبيق... في انتظار ردك تقبل سلامي الحار... أخوك بن علية

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

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

اخى الفاضل انا مش عارف ارد عليك في اى موضوع .. تفضل الملف بعد التعديل ... لعله المطلوب تحياتي للطباعة.rar

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

بارك الله فيك أخي الفاضل على كلماتك الرقيقة .. يبدو أنك شاعر .. وإليك أهدي الإصدار الأخير من المكتبة ... Codes Library v1.9.3.rar

أنشأ الدالة التالية في نفس الوحدة النمطية السابقة Function Vac_Bal(emp As Long) As Long Dim Vac_Used As Integer Dim Vac_Entitle As Integer Dim d As Integer Dim hd As Date Vac_Used = Nz(DSum("Vac_Per", "Vac_Trans", "[code_employé] = " & emp)) hd = DLookup("hiredate", "[Employé en arabe]", "[Code_employé] = " & emp) Vac_Entitle = Nz((Year(Date) - Year(hd)) * 30, 0) Vac_Bal = Vac_Entitle - Vac_Used End Function 2- انقل مربع المجموع من النموذج الفرعي الى النموذج الرئيسي 3- ضع الدالة الأخيرة مصدر البيانات لحقل المجموع على الشكل التالي =vac_bal([code_employé])

السلام عليكم ورحمة الله يا ابو البراء بالاصرار والعزيمة حتوصلوا ان شاء الله الله يعينكم

بارك الله فيك أخي أبو تراب .. وجزيت خيراً على هذا الإبداع اللامتناهي .. أريد منك العمل على القائمة المنسدلة المتناقصة !! Decreasing Validation List .. لم أجد إلى الآن حل يرضيني وجدت بعض الحلول ولكنها غير مرضية أرجو أن نتوصل لحل إن شاء الله

اليك الحل يا صديقي ملفك مضروب فيروس قد قمت بتغيير الملف قطع سيارات.rar

السلام عليكم ورحمة الله أختي الكريمة إيناس، معذرة على هذا الخلل، بالنسبة للملف تم عمل المطلوب بإضافة التسمية List على القائمة المنسدلة (المرتبة تصاعديا)... أرجو أن يكون هذا المطلوب... أخوك بن علية الملف المرفق : قائمة بدون تكرار.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب طارق مع شرحه المستفيض، أقدم هذا الحل باستخدام خواص رؤوس المربع والمثلث مع استعمال إحداثيات نقط في معلم... يمكنك رسم هذه المربعات والمثلثات بتغيير قيمة الزاوية (بالدرجات degrees) بالنسبة لأحد رؤوس هذه الأشكال (الرأس A بالنسبة للمربع الكبير ABCD ، الرأس E بالنسبة للمثلث الكبير EFG ، الرأس H بالنسبة للمربع الصغير HIJK والرأس L بالنسبة للمثلث الصغير LMN)، ويكون هذا التغيير في الخلايا الملونة بالأصفر في شيت Sheet1... أرجو أن يفيدك هذا الملف... أخوك بن علية الملف المرفق : ccc.rar

نعم معك حق و نسيت أن اقول لك أن تسمي الاستعلام الأخير vac_trans

السلام عليكم ورحمة الله في المرفق تجد ملف فيه تطبيق لما ذكرته في ردي السابق... وهو إنشاء قوائم منسدلة ديناميكية (مطاطية) دون تكرارات (ودون فراغات) باستعمال المعادلات... في شيت Feuil1 تم إنشاء القائمة List1 بمعادلة صفيف وفي شيت Feuil2 تم إنشاء القائمة List2 بمعادلات عادية مع عمود إضافي... أرجو أن يكون الحل مفهوما ويفي بالغرض المطلوب... ويبقى استعمال التسميتين List1 و List2 في خاصية "التحقق من الصحة" Validation في أي خلية كانت من الملف... بطبيعة الحال يمكن أيضا استعمال الأكواد في هذا، مثل الكود الذي اقترحه أخي الكريم الجموعي من موضوع "المشروع الكبير للأكواد" جازاه الله خيرا وكل القائمين والمشاركين في هذا المشروع... أخوك بن علية الملف المرفق : قوائم منسدلة دون تكرار ودون فراغات.rar

السلام عليكم ورحمة الله أخي الكريم مختار، تم التعديل على الملف بإضافة التسمية Formula بالدالة EVALUATE مع قائمة منسدلة لرموز العمليات الأربعة (+ ، - ، * ، /) في الخلية B2... أرجو أن يفي بالغرض المطلوب... أخوك بن علية ملاحظة : تم تغيير الملف المرفق لخلل في التسمية Formula رابط الملف : http://www.mediafire.com/download/1cvivgc5yc1crkj/معادلة_من_عدة_شروط.rar رابط التحميل من المنتدى : معادلة من عدة شروط.rar

السلام عليكم ورحمة الله في الملف المرفق تجد حلين أرجو أن يفي بالغرض المطلوب... بن علية المرفق : تفقيط 1 بشرط.rar

جدول الموظفين , أضف الحقل hiredate ( تاريخ الالتحاق بالعمل ) جدول الاجازات - يكفيك أربعة حقول و هي : الحقل المعرف - رقم الموظف - تاريخ من - تاريخ الى ـنشأ وحدة نمطية جديدة و أضف فيها الكود التالي : Function Vac_Due(emp As Long, hdate As Date) As Long Dim Vac_Used As Integer Dim Vac_Entitle As Integer Dim d As Integer Dim hd As Date Vac_Used = Nz(DSum("Vac_Per", "Vac_Trans", "[code_employé] = " & emp & " and [Date_départ] < " & Chr(35) & hdate & Chr(35)), 0) hd = DLookup("hiredate", "[Employé en arabe]", "[Code_employé] = " & emp) Vac_Entitle = Nz((Year(hdate) - Year(hd)) * 30, 0) Vac_Due = Vac_Entitle - Vac_Used End Function الآن قم بانشاء الاستعلام التالي لحساب الاجازة , كما يلي : SELECT congé.code_employé, congé.Date_départ, congé.Date_retour, [Date_retour]-[Date_départ]+1 AS Vac_Per, 30 AS Vac_Ent, vac_due([code_employé],[Date_départ]) AS Prev_Bal, [prev_bal]-[vac_per] AS Cur_Bal FROM congé ORDER BY congé.code_employé, congé.Date_départ; الحقل prev_bal يبين لك رصيد الاجازة المستحقة قبل الاجازة الحالية الحقل cur_bal يبين لك الرصيد المتبقي بعد فترة الاجازة الحالية

الأخ الحبيب أبو محمد عباس الأخ الغالي محمود علي بارك الله فيكما على مروركما العطر وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // على عبد الدايم أبو انس 1 ) عمل موفق بإذن الله تعالي جعله الله في ميزان حسناتك ومن تقدم الى تقدم بإذن الله 2 ) اظن ان حضرتك نسيت ترفق الرقم السري لمحرر الاكواد!!!

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

السلام عليكم بالإضافة لما أفادنا به الأخ الغالي / حمادة عمر أحب أضيف التالي XLS تستطيع قرائتها بالإكسل 2003 XLS تستطيع الإحتفاظ بالكود فيها بداية من أوفيس 2007 ، تم استبدال XLS بثلاث إمتدادات xlsb ، xlsx ، xlsm وثلاثتهم لايستطيع الأوفيس 2003 قرائتهم إلا بإضافة أداة جديدة إضافية 1- الإمتداد xlsx لحفظ ملفات الإكسل العادية التي لاتحتوي علي أكواد ، فإن كتبت كود وحفظت الملف بهذا الإمتداد ولم تنتبه لرسالة التنبيه وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح 2- الإمتداد xlsm لحفظ ملفات الإكسل التي تحتوي علي أكواد 3- الإمتداد xlsb لحفظ ملفات الإكسل (مع أكوادها) ، ولكن لاتستطيع عمل مشاركة لهذا النوع من الملفات للعمل بأكثر من مستخدم علي الملف في الشبكة ، أي Share أنا شخصيا انصح باستخدام xlsb بدلا من xlsm لقلة حجم هذا النوع الملحوظة بالنسبة للآخرين إلا في حالة مشاركة الملف علي الشبكة كما أوضحت

السلام عليكم ورحمة الله وبركاته بارك الله فيك أخ عماد قمت باختراقه خلال ثلاثين ثانية كلمة السر: 1920 أزلت كل الحمايات الموجودة بالملف: من حماية الصفحات إلى حماية VBA إلى حماية الورقة الأولى من التعديل وذلك بحذفي للكود الموجود في ThisWorkbook الملف بدون قيود بالمرفقات نظام حماية متكامل.rar