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

السلام عليكم لقد اضفت بعض الخصائص و التحسينات على شريط الطباعة و أحببت ان أطلعكم عليها و من أهمها النقاط التالية: 1- التصدير إلى الوورد و pdf 2- تشغيل الشريط حتى في وضعية إخفاء شاشة الأكسس و عمل أزرار التنقل بكل مرونة. و هذا مثال عليه أتمنى تجربته و إطلاعنا على النتائج. شريط طباعة.rar

السلام عليكم و رحمة الله تعالى وبركاته أساتذة و خبراء منتدانا الغالي حياكم الله أردت أن أنجز عمل بمعيتكم الكريمة . و هو إنجاز سلسلة دروس في vba الأكسس لتقوم إدارة المنتدى من بعد ذلك بتثبيت هذا الموضوع ليطلع عليه كل من يريد التعلم و يبقى صدقة جارية لكل من ساهم فيه و لو بحرف واحد. العمل سوف يقسم إلى مجموعة دروس مثلا : المتغيرات ,الجمل الإختيارية , الجمل التكرارية , الكائنات ......الخ. و سوف نحاول شرح جميع دوال و تعليمات VBA أكسس الموجودة مع إعطاء أمثلة في نهاية كل درس. على أن يتم تجميعه في الأخير مرتبا حسب تسلسل الدروس و لا يتم الإنتقال من درس لآخر حتى نستوفي كل ما نستطيع حول هذا الدرس. العمل المطلوب: كلما نبدأ في درس جديد. يقوم الأساتذة الكرام بتقديم الدوال و التعليمات التي تندرج تحت عنوان هذا الدرس و تقديم شرحها مع وضع مثال بسيط لإستعمال الدالة أو التعليمة على أن لا يتم تكرار الدوال و التعليمات الموجودة مسبقا في الدرس من قبل أحد الأعضاء. و قبل البدء أنتظر إقتراحاتكم فيما يخص طريقة العمل أو ترتيب دروس و عناوينها. و إن شاء الله غدا أو بعد غد سوف نبدأ بالعمل على بركة الله.

هذا الموضوع هو عملية لانشاء برنامج مبيعات مصغر اعتمادا على جدولين فقط ، الحركة ، وعمليات النقد ، ورأس الفاتورة مع ما يلزم من جداول الخدمة ، احاول فيه ان اجعل عملية التصميم والاستعلامات والاخراج اكثر مرونة واسهل في المعالجة . سيكون 80% من العمل لفهم المشروع وتصوره في محيط الجداول فقط بسم الله .. نبدأ : 1- جدول العملاء 2-جدول الفاتورة 3- جدول النقدية 4- جدول الحركة 5- جدول الاصناف اولا : جدول العملاء ويشتمل على المعرف ، واسم العميل ، ونوع العميل ( مورد ، زبون ) ، والعنوان ، والهاتف ...

بسم الله الرحمان الرحيم والصلاة والسلام علي سيدنا محمد اليوم سوف أقدم لكم برنامج مراقبة المبيعات العالمية هو خاص با الدول الأجنبية مثل المعاملات كا البترول و احصائيات نسبية في زيادة المردود منها الوارد والصادر حسب كل بلد أي كل بلد لديه نتائج المردودية المتحصل عليها .... أي استفسار حول هذا البرنامج فأنا تحت الخدمة ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم @ كل الحقوق محفوظة 2017 @ برنامج مراقبة المبيعات العالمية 20172018.rar

إخواني أفضل شباب الوطن العربي .. أهل الخير والتطوع هذه مبادرة أطلقها السيخ / محمد بن راشد - حاكم دبي وأنا على يقين أنكم أهل للفوز في هذه المبادرة ---------------------------------------------------------------------------------------------------------------------------------- أطلقنا بحمد الله مشروعا عربيا جديدا .. ومبادرة للشباب العربي .. سنسعى من اليوم لتدريب مليون شاب عربي على البرمجة. البرمجة تفتح للشباب مئات الآلاف من الوظائف دون مغادرة بلدانهم.. ومباشرة أعمال خاصة بهم على شبكة الانترنت. البرمجة ستقود الاقتصاد العالمي. أدعو الشباب العربي للتسجيل من اليوم على الموقع http://www.arabcoders.ae للتدرب مجانا..ووضعنا جوائز للمتفوقين منهم تفوق المليون دولار أمريكي. مشروعنا جزء من مبادراتنا العالمية لخلق أمل في المنطقة..وصنع مستقبل لشباب المنطقة..والمساهمة ولو بجزء بسيط لحل معضلة البطالة في عالمنا العربي.

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

بعد اذن استاذي ابو خليل اتفضل اتمنى يكون المطلوب تجاوز الرساله x.rar

السلام عليكم ورحمة الله الحمد لله على تمام المطلوب اليك اخى شرح الكود Sub CallingData() Dim ws As Worksheet, sh As Worksheet الاعلان عن اسماء الشيتات التى سوف يتم التعامل معها Dim Arr As Variant, Temp As Variant 'الاعلان عن مصفوفتين احدهما هى المصدر و الاخرى للنتائج المطلوبة Dim i As Long, j As Long, p As Long 'الاعلان عن طول وعرض المصفوفة وعدد النتائج' Set ws = Sheets("ورقة1") Set sh = Sheets("ورقة2") 'التعريف بالشيت الاول والشيت الثانى' Arr = ws.Range("A13:O72").Value 'التعريف بالمصفوفة المصدر ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) 'التعريف بالمصفوفة الهدف وعلاقتها بالمصفوفة المصدر' For i = 1 To UBound(Arr, 1) طول المصفوفة المصدر' If Arr(i, 3) >= sh.Range("Q7") And Arr(i, 3) <= sh.Range("R7") Then 'الشرط الذى سوف يتم بناء عليه اختيار عناصر المصفوفة الهدف p = p + 1 'عد بيانات الشرط' For j = 1 To UBound(Arr, 2) 'عرض المصفوفة الهدف وهو هنا نفس عرض المصفوفة المصدر' Temp(p, j) = Arr(i, j) 'الاستكمال النهائى للمصفوفة الهدف' Next End If Next sh.Range("A11").Resize(p, UBound(Temp, 2)).Value = Temp 'ترحيل المصفوفة الهدف الى المكان المراد اظهار البيانات فيه' End Sub

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

السلام عليكم ورحمة الله يمكن (هذا حل من الحلول) استبدال في الخلية B2 المعادلة: =ورقة2!B2 بالمعادلة: =IF(ROW($A1)<=MAX(ورقة1!$A:$A);ورقة1!B2;"") ثم سحب المعادلة إلى الخلية C2 ثم إلى الأسفل... بن علية

بارك الله فيك اخي العزيز عبد اللطيف و اكثر من امثالك .. بعد اذنك وددت المساهمة في الحل اخي العزيز السائل بالنسبة لتثبيت القيمة بنموذج غير مرتبط ممكن ان يتم من خلال عمل متغير عام بوحدة نمطية كالتالي Public a As Variant حيث a هو اسم المتغير و نوعه هنا Variant يقبل اي نوع من البيانات و يكنك تغيير حسب ما تريد ادخاله من بيانات بالنموذج و ليكن اسم مربع النص على النموذج اسمه txt1 فعند اغلاق النموذج نقوم باسناد قيمة مربع النص ( القيمة التي ادخلناها بمربع النص ) الى المتغير كالتالي : On Error Resume Next a = Me.txt1 ثم في حدث عند التحميل او حدث الفتح للنموذج نجعل مربع النص ياخذ القيمة الموجودة بالمتغير كالتالي : Me.txt1 = a و بالنسبة لتثبيت قيمة حقل داخل نموذج فهي باستخدام خاصية القيمة الافتراضية للحقل و بإمكانك وضع القيمة التي تريدها المثال المرفق به ما طلبت ان شاء الله .. القيمة المثبتة بحقل الاسم هي ( يوسف ) بالتوفيق Test.rar

صديقي يا ريت ترفق صورة للموضوع تصف المشكلة صدقني مش فاهم ايش المطلوب

صديقي جرب هذا الحل اذا عندك ادخل البيانات (نعم) قم تحويلها الى (لا ) اتوقع رح تحل الموضوع مرفق صورة

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

اخي ابو زاهر اعتذر منك بشدة فقد حاولت لكن للأسف لم اتمكن من فعل شيئ فالامر شائك عندك نوعا ما

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

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

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

السلام عليكم ورحمة الله تم تعديل كل معادلات الشيتات الأربعة في الخلية V1 باستبدال المعادلة COUNTA(B:B)-1= بالممعادلة (MATCH(9^9;A:A;1= التي تحدد آخر صف في كل شيت اعتمادا على العمود A ثم تم أيض حذف 6+ و 7+ الموجودة في أكواد الطباعة الأربعة في تحديد النطاقات Rng1 و Rng2 في هذه الأكواد لتحديد نطاقات التصفية (وبالتالي نواحي الطباعة)... والشرح الذي طلبته أوافيك به الآن: - بالنسبة للمعادلة الثانية (المستبدلة بالدالة MATCH) فقد شرحتها بالأعلى (تحدد آخر صف في العمود A) - أم المعادلة الأولى (مثلا من الكود Print_1) التي كانت: Set Rng1 = Range("A1").Resize(Range("V1") + 7, 16) والتي أصبحت : Set Rng1 = Range("A1").Resize(Range("V1"), 16) هي لتحديد (لتعريف) النطاق Rng1 الذي يبدأ من الصف 1 والعمود A (الخلية A1) ويمتد إلى رقم الصف الذي تحدده معادلة الخلية V1 من الشيت وإلى العمود رقم 16 (أي العمود P)... وهذا النطاق هو نطاق "ناحية الطباعة" في الكود... وليس لي شرح آخر.... أخوكم بن علية اعمال السنة 2018 -والأنشطة.rar

السلام عليكم أخي اكريم المطلوب بسيط لايحتاج أكواد تفضل المرفق بالمعادلات مثال1.rar

السلام عليكم ورجمة الله احببت اخواني بالمساهمة في مشروع بسيط لادارة الشيكات الواردة والصادرة check bank.rar

عدنا .. المهم في موضوعنا هذا هو تبسيط فكرة برامج البيع والشراء فمرتجع البيع هو عبارة عن شراء ولكن بسعر البيع ومرتجع الشراء هو بيع ولكن بسعر الشراء 1- في جدول رأس الفاتورة سوف يتم ادراج العملاء ( مورد/زبون ) وبمجرد اختيار العميل سيتم تحديث حقل نوع العملية فإن كان مورد ستظهر العملية : شراء أو مرتجع شراء وان كان زبون ستظهر العملية : بيع او مرتجع بيع وعلى اساس العميل ونوعه سيتم ادراج السعر في التفاصيل بمجرد اختيار الصنف فان كان مورد سيظهر سعر الشراء والا ظهر سعر البيع 2- المدفوعات : عند اختيار نقدي في رأس الفاتورة ستظهر حقول الدفع والا ستكون غير ظاهرة بهذه الخطوات نكون عملنا هيكل البرنامج بنسبة 80% آمل ان تجدوا الفائدة والمتعة

عدنا .. في البداية قد اغفل عن حقل او نحوه ولكننا سنتدارك ذلك في حينه سأعرض الجداول والمهم من حقولها ثم نناقشها بعد ذلك واحدا واحدا اولا : جدول العملاء (tblAgents ) ويشتمل على المعرف ، واسم العميل ، ونوع العميل ( مورد ، زبون ) ، والعنوان ، والهاتف ... المهم : معرف العميل ID_Gnt ترقيم تلقائي (مفتاح الجدول ) اسم العميل Gnt_name نوعه نصي نوع العميل type_Gnt نوعه رقمي ثانيا : جدول رأس الفاتورة tblFatora المهم : معرف الفاتورة FatoraId ترقيم تلقائي (مفتاح الجدول) نوع الفاتورة FatoraType رقمي معرف العميل ID_fGnt رقمي نوع الدفع cash رقمي تاريخ الفاتورة fDate تاريخ ووقت ثالثا : جدول الحركة (تفاصيل الفاتورة ) tblHaraka المهم : معرف الحركة ID_Haraka ترقيم تلقائي (مفتاح الجدول ) معرف الفاتورة Fatora_id رقمي معرف الصنف ID_Sanf رقمي الكمية quant رقمي السعر Price عملة الخصم kasm رقمي مزدوج ( تنسيق= بالمائة) رابعا : جدول المدفوعات tblPay المهم : معرف الدفع pay_ID ترقيم تلقائي (مفتاح الجدول ) معرف الفاتورة Fatora_id رقمي المبلغ pay عملة تاريخ الدفع Paydate تاريخ ووقت testPro.rar الباركود بمفهومه الشامل يصلح فقط لنقاط البيع ولكن برامج العملاء والآجل سيكون التعمل مع الباركود جزئيا فقط كإدخال الصنف او ادراج عميل والسبب وجود عمليات اخرى يجب تحريرها

السلام عليكم ورحمة الله وبركاته كيف حالكم جميعاااا عساكم بخير استخدم دالة switch مع مراعاة عدم تسمية الحقل الاساسي بنفس اسمه في الجدول هكذا: =Switch(Nz([Ehdaa],0)=صواب,0,Nz([Ehdaa],0)=False,[upric]) تحياتي ::

وعليكم السلام إليك الملف الأخير قائمة منسدلة 4.rar

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