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

بعد اذن حبيبي سليم معادلة صفيف. أكتب فقط السنة في الخلية g1 =IFERROR(INDEX($A$2:$A$170; MATCH(0;COUNTIF($G$3:G3; IF(($G$1=YEAR($B$2:$B$170)); $A$2:$A$170; $G$3)); 0)); "") إدراج الاسماء تلقائي.xlsx

السلام عليكم اخي الفاضل محمد ابو انس كما نبهك اخونا فايز.. ( ياليت تجعل أسماء الحقول في الجداول باللغة الإنجليزية .. حتى يسهل عليك التعامل مع الأكواد بسهولة .) تم عمل اجماليات الفاتورة كما طلبت جرب وشوف واي حاجة ناقصاك لا تتردد في السؤال برجاء تعديل عنوان المشاركة الي اجمالي الفاتورة مثلا وعندما تطلب طلب اخر اجعله في موضوع جديد بعنوان يدل عليه لتسهل علي غيرك الوصول للمعلومة وربنا يوفقك في اكمال برنامجك فهو حقا جميل _برنامج محاسبي لنقاط البيع الاصدار الاول - نسخة.rar

السلام عليكم استعمال دالة المنوال MODE يفي بالغرض... ايجاد الرقم الاكثر تكراراً.xlsx

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

تفضل اخي العزيز ارجو ان يكون طلبك Database10.rar

جرب هذا الكود Option Explicit Sub get_Prof_names() Dim sh As Worksheet, Rg As Range Dim i%, Yer% Dim Salim As Object Set Salim = CreateObject("Scripting.Dictionary") Set sh = Sheets("sheet1") Set Rg = sh.Range("G3").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).Clear Yer = sh.Range("G1"): i = 2 Do Until sh.Cells(i, 1) = vbNullString If Year(Cells(i, 2)) = Yer Then Salim(Cells(i, 1).Value) = vbNullString End If i = i + 1 Loop If Salim.Count Then With sh.Range("G4").Resize(Salim.Count) .Value = Application.Transpose(Salim.Keys) .Borders.LineStyle = 1 .Font.Bold = True: .Font.Size = 16 .InsertIndent 1: .Interior.ColorIndex = 35 End With End If End Sub الملف مرفق Prof_names.xlsm

أخي محمد .. ياليت تجعل أسماء الحقول في الجداول باللغة الإنجليزية .. حتى يسهل عليك التعامل مع الأكواد بسهولة ..

بعد ادن اخي بن علية العدد الاكثر تكررارا مع اضافة عدد مرات التكرار و اضافة تنسيق شرطيي لتلوين الرقم الاكثر تكرارا ايجاد الرقم الاكثر تكراراً.xlsx

تفضل. نموذج المطلوب.xlsm

ممتازة منك صديقي رائد (لكنها تدرج المكرر في حال وجوده) هذه معادلة احرى (بردو تدرج المكرر في حال وجوده) (سبق وان قلت ان استعمال الدالة IFERROR ) يفضل عدم استعمالها =IF(ROWS($A$1:A1)>SUMPRODUCT(--(YEAR($B$2:$B$50)=$G$1)),"",INDEX($A$2:$A$50,SMALL(IF($A$2:$A$50<>"",IF(YEAR($B$2:$B$50)=$G$1,ROW($A$2:$A$50)-ROW($A$2)+1)),ROWS($A$1:A1)))) اذا لم نتعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";" مع (Ctrl+Shift+Enter) Prof_names.xlsm

تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad الف الف مبروك تستاهلون كل خير وكل عام ونتم بألف خير

وهذا مرفق آخر بدون زر أمر .. date_h.rar

إليك هذا المرفق لعله يفيدك db5.mdb

لا يمكن عمل هذا في النموذج المستمر ، اما اذا كان النموذج فردي ، فتستطيع ان تعمل نموذج فرعي للحقول الباقية (نوع الاعانة ، تحديد .... ، ولكن يمكن عمل هذا في التقرير ، بحيث تعمل تجميع وفرز بالرقم ، وهذا الرابط يشرح طريقة العمل : جعفر

اخى الفاضل عمر مشاركه مع اخوانى واساتذتى الافاضل اشرف وابوفريد جزاهم الله خيرا 💐 وكما تم التوضيح لك منهم لايوجد لديك تكرار لماذا بارك الله فيك انت تعتقد بان السجلات الخاصه بنائب العريف مكرره التكرار يشمل جميع الحقول الاساسيه والمرتبطه وطالما يوجد اختلاف فى رقم المستند وهما 4478 و 4458 غير اى رقم فيهم فى جدول Tbl_WheelUsers اجعلهم رقم واحد اى 4478 او 4458 وافتح الاستعلام ستجد بانه لايظهر معك الا سجلات فريده وغيره مكرره جرب ووافنا بالنتيجه بالتوفيق

الف الف مبروك للأساتذة الكرام

وعليكم السلام اتفضل هل هذا ماتريد بالتوفيق اخى cars.rar

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

تفضل شهادة.xlsm

شيت اكسيل به معادلة لحساب الضريبة اعتبار من 1 / 7 / 2020 بعد القانون 26 لسنة 2020 حسبة الضريبة.xls

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

بسم الله الرحمن الرحيم قواعد المشاركة بمنتدي أوفيسنا المنتدى مثله مثل أي عمل جماعي لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة. وقبول العضوية بالمنتدى تعني ضمناً الموافقة على قواعد المشاركة المعتمدة به. هذه الوثيقة تشمل قواعد طرح الاسئلة التي يرجي مراعاتها لضمان الحصول على أفضل نتيجة، وهذه القواعد لم توضع بهدف تسلط أو تعقيد، وإنما الهدف منها تحقيق المنفعة العامة من المنتدى، وان لم تمثل الوضع المناسب لجميع المشاركين في جميع المواقف، يجب أن يتم الالتزام بما ورد فيها بصورة كاملة، ومخالفة قواعد المشاركة تعرض المشاركة للإلغاء وفي حال تكرار المخالفة قد يتعرض المخالف لعقوبات تصل لإيقاف العضوية. وأخيرا وقبل أن نعرض إلى القواعد، ندعو الله أن يكون ما يبذل من جهد من الجميع هنا من باب "علم ينتفع به "، فكما قال رسول الله صلي الله عليه وسلم: (إذا مات الإنسان انقطع عنه عمله إلا من ثلاثة: إلا من صدقة جارية. أو علم ينتفع به. أو ولد صالح يدعو له). قبل كتابة موضوع جديد 1. استخدم البحث في المنتدى قبل وضع سؤالك فقد يكون مكررا. وذلك لتفادي عواقب التكرار وأهمها أن تكرار الموضوع سيصعب المهمة على من يبحث بعدك كما أنه يمكنك توفير جهد الأعضاء للإجابة على موضوع آخر لم يطرح سابقاً. 2. يتم طرح السؤال باللغة العربية الفصحى لأنها مفهومة للجميع، وتجنب استخدام اللهجات المحلية 3. تأكد أن طرح سؤالك في المكان المناسب لتحصل على أفضل إجابة، لا تسأل في المنتدى العام عن مشكلة في الاكسيل. وإذا كنت تريد الإعلان أو طلب برنامج بأجر أو بمقابل مادي فيجب نشر موضوعك بقسم إعلانات شخصية بأجر للأعضاء. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا 6. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع. 7. يرجى إضافة الكلمات المفتاحية تحت العنوان لتسهيل الوصول إلى الموضوع من خلال عملية البحث لاحقاً، كما أن المنتدى يظهر بطريقة آلية المواضيع الشبيهة تحت الموضوع بناء على الكلمات المفتاحية المسجلة. محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل. 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية 14. - يجب عند الرد، عدم الاكتفاء بإضافة مرفق بالحل، بل يجب التوضيح و الشرح، و اضافة الكود المستخدم (إن وجد) ، بالإضافة للمرفق، و ذلك لتعم الفائدة 15. يفضل عدم طلب عمل برنامج فهذا المنتدى للتبادل العلمي، وليس للبحث عن البرامج الجاهزة، ولكن ابدأ بالعمل واطرح المشاكل التي تواجهك (بعد البحث في المنتدى منعا للتكرار). وما سبق طرحه من برامج يمكنك الوصول إليها باستخدام البحث، ويفضل ألا تخصص مشاركة لهذا الغرض وإن كان ذلك متاح لكن ممنوع الإلحاح في ذلك. 16. عدم طرح أي اقتراح بخصوص المنتدى أو شكوى في الأقسام العامة، فهناك قسم مخصص لذلك المرفقات 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً. المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها. 22. يتم حذف أي مشاركة تحتوي على الفاظ وعبارات وأعمال مخالفة للشرع أو الأخلاق العامة أو التي تحوي عبارات عرقية أو دينية أو أي عبارات قد تجرح مشاعر الآخرين. مع إيقاف صاحب المشاركة نهائياً، وحجب البريد المسجل به. متابعة المشاركات 23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك. 24. إذا كان الموضوع استكمالا لموضوع موجود مسبقا في الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل على الجميع الوصول إلى الموضوع المشابه. الإشارة لمواقع أخرى 25. لا تأخذ مواضيع أو ردود آخرين وتنسبها لنفسك.. هذه سرقه، إذا كنت قد اقتبست، أذكر أسم صاحب الموضوع، أو على الأقل اذكر أن الموضوع منقول. 26. يمنع الرد على الاستفسارات عن طريق الإشارة لموقع آخر، يجب وضع الحل كاملاً هنا ويمنع أن تكون الإجابة عن طريق الإشارة لموقع آخر فقط. ولا مانع من نشر اسم المصدر دون وصلة في نهاية الرد بعد وضع الرد والشرح كاملاً بعد المشاركة 27. لا تتوقع أن يجاب على سؤالك خلال ساعات قليلة، لكن تأكد أولا تأكد سؤالك يستحق الإجابة (غير مكرر، ويوفر معلومات كاملة).. أحيانا يحتاج من يجيب للوقت لجمع معلومات عن الإجابة 28. إذا تأخرت الإجابة فمن حقك الاستعجال فقط بإضافة عبارة "للرفع" على فترات متباعدة بدون أي عبارات أخري لا داعي لها. 29. يجب أن يكتب صاحب الموضوع في حالة حل مشكلته أن المشكلة قد حلت ليتوقف الأعضاء من الاستمرار في حل المشكلة. 30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية. 31. على الجانب الآخر إذا لم يأتيك شكر على موضوع قدمته، فنرجو اعتبار كل قراءة من قراءات الموضوع باقة ورد وشكر لك من المشرفين والأعضاء، ونذكرك بأن الموضوع لا تقتصر فائدته علي من قرأوه في وقته فقط، ولكن تصل إلى كل من يبحث لاحقا في المنتدي وهم ان شاء الله أضعاف من يقرأه في وقته، ونسأل الله عز وجل أن يضاعف لك الجزاء عن كل من يستفيد منه. حذف وتنقيح المشاركات 32. ما يتم نشره ويتفاعل الأعضاء معه لا يمكن طلب حذفه، فبنشره يصبح ملكية عامة. 33. إذا كانت المشاركة تحوي بيانات خاصة فلا تنشرها واستبدلها ببيانات غير حقيقية، حتى لا تطالب بحذف المشاركة لاحقا. 34. يتم تنقيح المشاركات دوريا وحذف المشاركات غير المجدية، ودمج ما يلزم من مشاركات. أسماء الدخول للموقع و الأسماء الحقيقية 35. يرجى مراعاة تجنب الأسماء أو الكنيات الغريبة فيما يخض إسم الدخول للموقع User Name 36. يفضل كون اسم الدخول باللغة العربية و عدم استخدام الأسماء الغريبة او غير المعتادة سواء باللغة العربية أو غيرها. 37. يرجى من الجميع اضافة الاسم الحقيقي باللغة العربية فى الحقل المناظر، والهدف هو تسهيل التواصل الفعال بين الأعضاء ، و ان تعذر فيتم اختيار كنية باللغة العربية فى مكان الاسم الحقيقي. 38. سيتم تعديل أي أسماء دخول أو أسماء حال مخالفتها للذوق العام أو احتوائها على أي إيحاءات غير معتادة. لمعرفة كيفية تعديل الإسم أو إسم الدخول يرجى مراجعة هذا الموضوع وأخيرا يرجى الالتزام التام بقواعد المشاركة وفي حال وجود اقتراحات إضافية بشأن القواعد، يمكن إضافة الاقتراح في قسم الاقتراحات بالمنتدى وسيتم دراستها تباعاً.

السلام عليكم أخواني الكرام اقدم للمنتدى برنامج محاسبة من تصميمي مع قاعدة بيانات للتجربة لكي يعمل البرنامج يرجى عمل ما يلي : 1- فك الضغط على القرص D حصريا 2- بعد تشغيل البرنامج يطلب تحديد قاعدة البيانات التي سيعمل عليها يجب اختيار قاعدة 2014 من ميزات هذا البرنامج أن معظم البرنامج يعتمد على الماكرو وأنا انتظر التقييم والردود الرابط https://drive.google.com/file/d/0B_ZrhTFFRjn3Mml3VWEyVjU0Qnc/view?usp=sharing مع تحياتي للجميع

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

تمام تمام اخى / @ازهر عبد العزيز يوجد موضوع من الاستاذ / عبد الله قدورhttps://www.officena.net/ib/topic/71771-حماية-قاعدة-البيانات-باستخدام-الفلاش-ميموري/?tab=comments#comment-464114 بالحماية برقم الفلاشة اي ان حضرتك تقصد ان نختصر كود الاستاذ / عبد الله واثناء التقسيم توضع الجداول داخل الفلاشة ان كان الامر كذلك فتكون الفكرة رائعة منكم وجزاكم الله خيرا عنها بارك الله فيك اخى / ازهر وانا سعيد جدا بانك اشرت بجملة " لتعم الفائدة للجميع" تدل على طيب خاطرك

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

تفضل كود استيراد الصور Private Sub CommandButton9_Click() Dim IMPATH As String Dim IMNAME As String With Application.FileDialog(msoFileDialogOpen) .InitialFileName = ThisWorkbook.Path .Filters.Clear .Filters.Add JPEG, "*.JPG, .JPEG" .Title = "ادراج صورة" .ButtonName = "ادراج الصورة مع تحيات االرائد" .AllowMultiSelect = False If .Show = True Then Me.TextBox1.Visible = True IMPATH = .SelectedItems(1) Me.TextBox1.Text = IMPATH Me.Image1.Picture = LoadPicture(IMPATH) Else MsgBox "تم تحميل الصورة" End If End With End Sub كود نقل الصورة الى الشيت Private Sub CommandButton10_Click() Dim Image As Variant Dim L As Single, T As Single, W As Single, H As Single L = Range("n32:r38").Left T = Range("n32:r38").Top W = Range("n32:r38").Width H = Range("n32:r38").Height Image = TextBox1.Value If Image <> False Then Sheet4.Shapes.AddPicture Image, True, True, L, T, W, H End If End Sub تواتي 23.xlsm

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

وعليكم السلام 🙂 اعتقد بأن الجملة اصبحت مفهومة اكثر الآن اسهل طرق عمل هذا الجدول المؤقت هناك فوائد للجدول المؤقت المُعد مسبقا ، وهذه الفائدة لا تجدها في استعلام عمل الجدول Make-Table ، فالجدول المؤقت الذي تصنعه انت ،تتحكم في عدد الحقول (فقد يكون هناك حقول تستخدم لها استعلام تحديث آخر لتحديث هذه البيانات) ، بينما استعلام عمل الجدول Make-Table يأخذ نفس عدد الحقول (طبعا يدويا تستطيع تغييرها) التي تستعملها من الاستعلام/الجدول الذي به النتائج ، ونوع كل حقل (هذا مهم ، لأنه قد يكون عندك حقل به ارقام ، ولكنك عمله حقل نص لأسبابك او لأنه يرتبط بحقل من جدول آخر من نوع نص ايضا) ، بينما استعلام عمل الجدول Make-Table اذا راى حقل رقم في الاستعلام ، فإنه يعمل حقل من نوع رقم في الجدول المؤقت ، والآن وبعد الحاق البيانات بهذا الجدول (سواء الجدول المؤقت المُعد مسبقا ، او الجدول المؤقت الذي يعمله استعلام عمل الجدول Make-Table ، يجب عمل استعلام تحديث بيانات من هذا الجدول ، الى الجدول المُراد تحديث بياناته 🙂 جعفر

جرب هذا الملف تم حماية الصفحة لعدم العيث بالمعادلات عن طريق الخطا (بدون باسورد) dATA_Ameel.xlsm

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

الف مبروك و الى الأمام دائما بإذن الله 🌼

اتفضل اخى @nabil2255 المفروض السجلين يظهروا لان البيانات مختلفه بالنسبه للجدول الثانى قمت بتصفيتهم واظهار اعلى تاريخ DMax("d_Aide";"Aide";"benficie=" & [nid]) جزاك الله خيرا اخى ومعلمى العزيز @jjafferr 💐 dtb1.accdb

وعليكم السلام 🙂 استعلامين ، وانت اختار اللي تريده : . . جعفر 1226.dtb1.accdb.zip

الف مبروك للأساتذة @Gamal.Saad و@اشرف على الترقية موفقين ان شاء الله 🌹🌹.

تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad بالترقيه وننتظر مزيد من التألق فهم فعلا اهل ثقة ويستحقون

ما شاء الله الف مبروك لاساتذتي واحبتي استاذ اشرف استاذ Gamal.Saad ودوام الموفقية والنجاح

السلام عليكم اخواني الاعزاء كل عام وانتم بخير اشكر ادارة الموقع علي هذه الثقة الكبيرة وادعو الله ان اكون عند حسن ظنهم اشكر من شرفني بالتهنئة jjafferr kanory ابوخليل ابو تراب kha9009lid أحمد الفلاحجى فايز warvin raviny انا عضو في هذا الموقع منذ زمن طويل لجأت اليه كثيرا في مشكلات واجهتني في اعمالي وكان وما زال ملجأ وملاذ لحل المشكلات المتعلقة بالاكسيس وكنت دائما انظر لفريق الموقع والخبراء باحترام شديد لعلمهم الوافر وسعة صدرهم مع المبتدئين امثالي وتمنيت ان اصبح فردا من ضمن هؤلاء الافذاذ كل التقدير والاحترام لفريق الموقع ولكل الخبراء والاعضاء وزوار الموقع

الف مبروك استاذ

ماشاء الله تبارك الله مبرووووووك الترقية اخي @Gamal.Saad و اخي@اشرف بالتوفيق و من نجاح الى نجاح 🌹

الف مبروك @Gamal.Saad @اشرف تستاهلون وبجدارة

مبارك لكما @اشرف و @Gamal.Saad نفع الله بكما

ما شاء الله تبارك الله اللهم ادم علينا الفرح والسرور مبارك استاذي @Gamal.Saad واستاذي @اشرف ... تستاهلون هذا اللقب ومزيد من التألق🌷

تم التعديل. استبدل الكود السابق بهذا Sub pdfcopy2() Application.Calculation = xlCalculationAutomatic Application.DisplayStatusBar = False Application.EnableEvents = False Dim wsA As Worksheet Dim wbA As Workbook Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant Dim lOver As Long On Error GoTo errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strPath = ThisWorkbook.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" For i = 2 To 4 If i <> "" Then strName = i & "-" & Sheets(i).Name & "-" & Sheets(i).Range("b3").Value strFile = strName & ".pdf" strPathFile = strPath & strFile If bFileExists(strPathFile) Then lOver = MsgBox("ÇáãáÝ ãæÌæÏ ãÓÈÞÇ.åá ÊÑíÏ ÇÓÊÈÏÇáå¿", _ vbQuestion + vbYesNo, "ãáÝ ãæÌæÏ") If lOver <> vbYes Then myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="ÅÎÊíÇÑ ãÌáÏ ÇáÍÝÙ") If myFile <> "False" Then strPathFile = myFile Else GoTo exitHandler End If End If End If Sheets(i).ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=strPathFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Next i MsgBox "Êã ÅäÔÇÁ ÇáãáÝ ÈÅÓã ÇáãÚäí: " & vbCrLf & strPathFile errHandler: Resume exitHandler exitHandler: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True End Sub 17 (1).xlsm

http://www.real-statistics.com/ موقع مميز للاحصاء من خلال الاكسيل

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 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

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

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

السلام عليكم جرب الكود التالي Sub FillUsingArrays() Dim arr(1 To 50000, 1 To 5) Dim i As Long Dim j As Long Dim iRow As Long Application.ScreenUpdating = False arr(1, 1) = "السنة": arr(1, 2) = "الشهر" arr(1, 4) = "السنة": arr(1, 5) = "الشهر" iRow = 2 For i = 4000 To 1 Step -1 For j = 1 To 12 arr(iRow, 1) = i & " ق م" arr(iRow, 2) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") iRow = iRow + 1 Next j Next i iRow = 2 For i = 1 To 2020 For j = 1 To 12 arr(iRow, 4) = i & " ب م" arr(iRow, 5) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") iRow = iRow + 1 Next j Next i Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته لقد تناولت فى موضوعى السابق " إزالة أو إبقاء آثار التنسيق الشرطى " على الرابط التالى http://www.officena.net/ib/topic/64950-%D8%A5%D8%B2%D8%A7%D9%84%D8%A9-%D8%A3%D9%88-%D8%A5%D8%A8%D9%82%D8%A7%D8%A1-%D8%A2%D8%AB%D8%A7%D8%B1-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%89/ كيفية ازالة التنسيق الشرطى و تبعاته من تنسيقات ... أو الابقاء على تلك التبعات والتنسيقات و تحويلها من تنسيقات شرطية الى تنسيقات عادية و اليوم بإذن الله تعالى أقدم لكم كودا بسيطا لكن يمكن أن تكون آثاره و نتائجه من وجهة نظرى المتواضعة جميلة و مبهرة و الرأى لكم فى النهاية الكود : Sub creatingFormats() On Error Resume Next For Each cell In Range("data") Range("formats").Cells(cell.Value).Copy cell.PasteSpecial Paste:=xlPasteFormats Next cell On Error GoTo 0 Application.CutCopyMode = False End Sub الكود يقوم بعمل تنسيقات عادية فى نطاق محدد هو data طبقا لتنسيقات يمكنك تعييرها فى خلايا نطاق آخر هو formats يمكن تطويع هذا الكود فى حال الرغبة فى عمل تنسيقات عادية متعددة داخل نطاق . تحياتى لكم و الى اللقاء بإذن الله تعالى مع كل جديد ومفيد كن حذرا ... أبو ضحكة جنان قاعد لك فى الملف أخوكم مختار حسين محمود الصعيدى تنسيقات بلا حدود.rar تنسيقات بلا حدود.rar