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

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

تفضل اخي لعله المطلوب وتم وضع زر لضبط التواريخ القديمة لعله يفي بالغرض 88.rar

تسلية بسيطة للتفقيط باستخدام المعادلات ولكم مني جزيل الشكر تجربة تفقيط.rar

شريط تحميل - Progress Bar بشكل جديد ☺ علم مصر - كل واحد يفنن بمزاجه ☺ علم مصر.rar 2علم مصر.rar

السلام عليكم أستاذى / ابو البراء .. فعلاً بدون مجاملة .. دائماً موضوعات حضرتك تمثل لى إضافه . جزاك الله عنا خيراً واسمح لى ان اضيف :- بدلاً من الخيار Printout ومن ثم الطباعة دون معاينه .. او الخيار Print Preview ومن ثم ظهور قائمه خيارات الطباعه فى كل مرة يتم الضغط على Print الكود التالى يجمع بينهما ... .PrintOut , , , True تقبلوا خالص احترامى وتقديرى

تمام

السّلام عليكم و رحمة الله و بركاته الأخوان " الياسران " الفاضلان و القديران : ياسر خليل أبو البراء ياسر العربي بارك الله فيكما و لكما للإثراء .. أخي الكريم " صلاح المصري " هذا رابط أوفيس 2013 نسخة عربية .. إحتراماتي http://www.4shared.com/rar/ZmXWIq5Xce/OFFICE_2013_arabe.html

بعد اذن حبيبي الغالي جرب الطريقة دي وبلغني

جرب هذا الشيء تكرار salim.rar

انظروا تحت أرجلكم انظروا تحت أرجلكم .. تجدوا تراب خمسة عصور وبقايا خمس مدن وآثار خمس حضارات تحت تراب القاهرة .. حضارة فرعونية وحضارة إغريقية وحضارة فارسية وحضارة رومانية وحضارة إسلامية .. وربما تحت أقدامكم الآن بقايا درع مكسورة كان يلبسها فارس مغوار وبقايا مكحلة كانت تكتحل بها أميرة تمشي في موكب فخم ، وأكاد أسمع أصوات المواكب ونفير الجيوش تحت التراب .. والعرس وضيوفه والقاتل والقتيل والظالم والمظلوم في حفرة واحدة قد استووا ترابا . لا شيء في الدنيا يساوي أن نكذب أو نخون أو نظلم . لا شيء يدعونا لأن نخاف .. والخائف سوف يتمدد إلى جوار الذي يخاف منه بعد قليل ، والجبان لن ينجو من الموت والرعديد سوف يسبق الشجاع إلى حتفه .. وسوف تتفكك هذه البنايات وتنهار تلك العمائر الجميلة كأنها ديكور من ورق اللعب ، وسوف تزول هذه الزخارف كأنها نقش على الماء .. ولن تبقى إلا شواهد قبور .. ثم تغور الشواهد في التراب أو الرمال .. ثم لا يبقى اسم ولا رسم . والذي يعي هذا جيداً سوف يُقبـِل على الدنيا بجسارة وسوف يخوض أحداثها بقلب من حديد ، وسوف يقول الحق لا يخشى فيه لومة لائم ، وسوف يبسط يده بالخير لا يخاف فقراً ، وسوف يواجه البأس لا تزلزله الزلازل ولا تحركه النوازل . وهؤلاء هم أهل الإحسان الذين يعبدون الله كأنهم يرونه ويتعاملون مع الموت كأنه رفيق حاضر وصاحب مصاحب منذ الميلاد . فاجتهدوا أن تكونوا من هؤلاء لتدين لكم الدنيا وتسلم لكم الآخرة وقولوا الحق يرحمكم الله . للدكتور مصطفى محمود .... من كتاب / الإسلام في خندق

وعليكم السلام ورحمة الله الله لا يحرمنا من حلولك الرائعة أخونا الكريم جعفر أتمنى أن تطلع أيضا على هذه الفكرة وتقيمها Test Combo.rar

السلام عليكم اخى الكريم اليك المعادلة التالية كأحد الطرق .. لا يشترط ترتيب الرقم الاكبر والاصغر فى الخلايا E15:F15 .. =AND(MAX($E$15:$F$15)-C5>=0;C5-MIN($E$15:$F$15)>=0)*1 حراثي 1.rar

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

لراغبي الإبداع والتميز أداة تركيب الحماية من النسخ للبرامج المصنوعة بأكسس ( برقم الهارد الحقيقي / رقم المعالج /رقم اللوحة الأم ) الإصدار الثاني. برنامج القلعة لحماية برامج أكسس من النسخ الأول من نوعه في منتديات الأكسس مبدئياً : هذه النوع من الأدوات ندر إنتاجها داخل منتدياتنا العربية والتي كان السبق في إنتاجها لأول مره داخل منتدى الأكسس لأخونا مهند عبادي وعلى أثره نحاول إنتاج أدوات لخدمة المبرمجين بصورة فعالة في القضايا الهامة والتي يكثر فيها الأسئلة مثل الحماية وقد سبق وأنتجت أداة لحل مشاكل التقارير ... ولكن أنا أومن بأن لها ضرراً من ناحية أخرى على المبرمجين بجعلهم يتوقفون عن التفكير في حل المشاكل طالما أن حلولها جاهزة وميسرة وبالتالي يضيع عليهم ثبوتية العلم بمشقة طلبه ... لن أطيل عليكم أخواني ..... كثرت الأسئلة و المواضيع الخاصة بحماية قواعد البيانات من النسخ وكثرت الرسائل على بريدي لمن يطلبون حماية برامجهم لذلك كان لا بد من صنع أداة تقوم بهذه المهمة بصورة آلية وحسب اختيارات ورغبات المبرمج و وفاءاً بوعدي سأضع الأداة بصورة غير محمية قابلة للنسخ ( وهي مجانية للاستخدام الشخصي وغير التجاري أما من يستخدمها بشكل تجاري أو يستفيد منها مادياً فيجب عليه سداد ثمنها وبذلك نكون حافظنا على جميع الحقوق وحتى لا يضيع مجهودي هباءاً ) . قبل استخدام الأداة 1- قم بعمل نسخه احتياطية لبرنامجك 2- قم بإزالة جميع أنواع التامين من برنامجك 3- التركيب يجب أن يكون قبل تقسيم قاعدة البيانات في حالة البرامج المقسمة إلى واجهة وجداول . 3- وقف عمل مضاد الفيروسات الخاص بك قبل البدء ( ولا تخاف ) البرنامج لا يحتاج لأي مراجع إضافية وسيقوم بتركيب المراجع للقاعدة الهدف في حال احتياجها لها البرنامج يركب الحماية من النسخ المدمجة مع مدة التشغيل كما يقوم بإنشاء كراك للبرنامج مع القاعدة الهدف كما ينشئ ملف نصي يوثق فيه كل ما تم عمله في برنامجك . كما يصلح لبناء نسخ تجريبية ما بعد حماية البرنامج بعد حماية البرنامج وإعطائه للعميل وعند فتحه لأحد النماذج التي تم تركيب الحماية عليها ستظهر له شاشة ممانعه تمنعه من استخدام البرنامج قبل تسجيل نسخه شرعية ... يقوم العميل بالاتصال بك ويعطيك الرقم الظاهر أمامه على الشاشة ، فتقوم أنت بفتح الكراك الذي أنشأه برنامج القلعة في نفس مجلد البرنامج وتقوم بإدخال الرقم في الخانه المخصصة له ثم تختار مدة التشغيل التي ترغب بها أي المدة التي سيعمل خلالها البرنامج لدى العميل ثم يتوقف عن العمل طالباً فك الحماية مره أخرى ( طبعاً تستطيع فتح المده تماماً إذا كان العميل اشترى البرنامج وليس تحت التجربة ) وحسب المدة سينتج لك الكراك رقم تعطيه للعميل وبذلك تكون فتحت له النسخة مدة الاستخدام التي تراها مناسبة . إلى أخواني المشرفين ( الرجاء تثبيت الموضع لمدة طويلة ) تم وضع برنامج القلعة (( الإصدار الثاني )) على نفس الرابط الأول ومن مميزاته انقسم البرنامج إلى ثلاث شعب 1- حماية برنامج 2- إزالة الحماية من برنامج 3- تصفير مدة الاستخدام لبرنامج ,,, تم وضع خيار جديد لتصدير أداة إخفاء إظهار الجداول المرتبطة والمضمنة والتي لا يمكن إظهارها بالخيارات العادية """ تم اعتماد تسجيل المرجع DAO3.6 مع المراجع الأخرى ( لأنني كنت أظن سابقاً أن كل مبرمج يستخدمه بشكل أساسي ) يستطيع الإصدار الثاني معرفة هل تم حماية هذا البرنامج من قبل بهذه الأداة وبأي نوع من الحماية منعاً للأخطاء """"" تم تبني فكرة عداد التاريخ من تاريخ تركيب البرنامج وليس من تاريخ الاستخدام ولذلك كان لا بد من وضع القسم الثالث وهو تصفير مدة الاستخدام وذلك حتى إذا قام المبرمج بتجربة البرنامج لديه قبل إعطائه للعميل سيتم تسجيل المدة التى قام بالتجربه فيها لذلك يجب علها تصفيرها قبل إعطائه للعميل .. إما إذا لم يقم بتجربة البرنامج فلا داعي .. حجم البرنامج 856 كيلو بايت تم تعديل الموضوع من قبل أخوكم في الله /بو يوسف الراشد وذلك نظراً لنزول الإصدار الثاني من البرنامج وذلك بناءً على طلب أخونا المبدع / رضا عقيل كما تم وضع تعليقه على الإصدار الثاني تم رفع البرنامج + الشرح + مثال حماية برامج الأكسس.rar

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

اسطوانة تحفيظ القران الكريم لكم ولاولادكم واحفادكم الجذء الثلاثون بصوت الشيخ محمد صديق المنشاوى وبصوت طفل يردد وراءه ويمكن تكرار الاية للحفظ وفيديو دعاء ختم القران من الحرم على الرابط التالىhttp://yonis.arab.st/t26-topic#29ملحوظة : سجل بالمنتدى لتحميل الاسطوانة وهى على 4 روابط مضغوطة يتم تحميلها فى فولدر ثم فك الضغط بعد اكتمال تحميل 4 أجزاء الاسطوانة هدية للمنتدى نتمنى الدعاء لنا بالخير الجزء 29 تبارك فى تكملة الموضوع الجزء 28 قد سمع الجزء 27 قال فما خطبكم هدية اخرى للسادة الزملاء اسطوانة برامج بها اوفيس 2003 و 2010 عربى لحين رفع باقى اجزاء تحفيظ القران الكريم الجزء 26 الجزء 25 مسابقة دينية

السلام عليكم استاذى واخى الحبيب / عبد العزيز البسكرى يعجز الكلام عن التعبير عن مدى امتنانى لحضرتك ..كلام طيب ..دعاء لوالدتى رحمها الله لا يسعنى سوى شكر الظروف التى جمعتنى بكم اخى الكريم .. جزاك الله خيراً ..وأسال الله ان يوفقنا جميعاً لما فيه الخير بالنسبه للكود .. هو يتخطى وفقط ظهور نافذه خيارات الطباعه عند الضغط على Print اثناء المعاينه Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintOut Preview:=True Next I End Sub خالص حبى وتقديرى لك اخى واستاذى الحبيب عبد العزيز ولاستاذى ابو البراء ولكل اعضاء المنتدى الماس

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

وعليكم السلام ورحمة الله وبركاته أخي الغالي عبد العزيز الكود بسيط جداً وفكرته مألوفة كثيراً ..حيث يعتمد على عمل خلقة تكرارية من خلالها يمكن تغيير قيمة الخلية التي تتحكم في تغيير بيانات ورقة العمل ثم سطر للطباعة وفقط بارك الله فيك وجزاك الله كل خير على تشجيعك الدائم لنا تقبل تقديري واحترامي

نعم ، وقد كنت أحد الاشخاص الذين يرسلون لي اصداراتهم لتجربتها واعطيهم الملاحظات عليها ولكني لا اعتقد بأن OCR العربي (لجميع الشركات) وصل مرحلة من الدقة التي اكون راض عنها (آخر تجربة لي لموضوع OCR العربي كان قبل سنتين تقريبا) جعفر

نسيت أخي الكريم إذا كنتُ قد وضعت مع الأوفيس أداة التّفعيل أم لا .. على كل حال إذا لم تجدها بعد التّحميل إستعمل هذه الأداة إحتراماتي KMS PICO 9.0.5.20131112.rar

بارك الله فيكما و جزاكما الله خير الجزاء فعلاً إفتقدنا لأبي يوسف كثيرًا أدعو الله أن يعود بأقرب الآجال إن شاء الله

بارك الله فيك اخى الفاضل عبدالعزيز .. شكرا لاهتمامك .. جارى التحميل

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي و أستاذي القدير " ياسر خليل أبو البراء " عللى الكود أكثر من الرّائع جزاك الله خيرًا و زادها بميزان حسناتك لم أعرف حقيقة هذا الكود الكنز إلاّ بعد تجربته على ملف الأخ الفاضل " حرّاثي تواتي " فائق إحتراماتي و إعجاباتي طباعة.rar

1. نعم ربط جداول (لا تنسى اني اتكلم عن جداول مؤقته) ، واعتقد بأني كنت اربطه برمجيا ، وذلك بسبب اختلاف مسار مجلد الكمبيوتر المؤقت من مستخدم الى آخر ، 2. البرنامج كاملا كان "لإدارة بلا ورق" ، فقد قمنا بعمل ارشفة ضوئية Scan لجميع الملفات و المراسلات والعقود السابقة ، وكانت هذه الجزئية (على ما اعتقد) لحساب عدد الملفات الممسوحة ضوئيا ، والتأكد من عدد صفحات كل ملف ، ثم ارساله الملفات واحدا بعد الاخر الى برنامج Abbyy FineReader والذي في اعتقادي بعد التجربة انه الافضل (العمل كان على ملفات باللغة الانجليزية ، ولكن الشركة عندها نسخة للنصوص العربية الآن) ، لتحويل الصور الى نص ، ومن ثم التأكد من ان عدد الصفحات هي نفسها ، وإلا فنرسل الملف الى مجلد آخر للتأكد والعمل عليه يدويا ، وينتهي عمل هذه الجداول جعفر

أخي الكريم حراثي لابد أن تتعلم الأساسيات .. قم بالإطلاع على الموضوع التالي لتعرف كيفية التعامل مع محرر الأكواد بداية الطريق لإنقاذ الغريق بالنسبة للكود لن يقوم بالطباعة إنما معاينة فقط .. إذا أردت الطباعة عليك استبدال كلمة PrintPreview الموجودة في الكود بكلمة PrintOut

شكرا اخي على الرد هل ممكن تطبيق على الملف المرفق .. لم تفلح معي

أخي الكريم جرب الكود التالي Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintPreview Next I End Sub

العفو ! بدينا من الاخير ! انا كنت اقصد المبرمج الاجنبي وليس انت اخوي جعفر ! كنت اقصد كاتب الموديولات والاكواد الطويلة ! ويشهد الله لم اكن اقصد ان اصفك بالهاوي حاشى لله ! فانت محترف في نظري ! واسمح لي ان ازيد : حتى ميكروسوفت احيانا تعطينا حلول واكواد لتلميع منتجاتها وبانها قادره على محاكاة بعض البرامج الاخرى في بعض الامور وهي في الواقع تفشل عند التطبيق العملي او تعمل في حدود وشروط ! فاسمح لي ان اقول شتان بين blob و ole ... الاكسس ليس له قدرة في التعامل مع blob واكبردليل ليس هناك نوع بيانات blob في الاكسس وانما ole ومرفق ! اذا الاكسس نفسه لايتعدى 2gb بينما blob اتت لتخزين الملفات كبيرة الحجم كمقاطع فيديو او بيانات ثنائية ضخمة ! وهنا مثال ميكروسوفت لمعت نفسها واسمت المقال بالتعامل مع blob وهو في التطبيق العملي لقراة الملفات صغيرة الحجم وتخزينها وبشرط لا يتعدى 1 جيجا حسب حجم الملف مع العلم انه عند تخزين الملف في ole ياخذ حجما اكبر من حجمه على الهارديسك ! https://support.microsoft.com/ar-sa/kb/103257 نعود استاذ جعفر للمشاركة الاولى ولدي طلب : لم استوعب كاملا ان اخزن ملف اكسس كبيانات ثنائية ثم خلال زر انشره في مكان اخر ! اعطنا الفوائد ؟ وساعود لا حقا في موضوع الفيروسات ! تقبل تحياتي

حاول تنصب الأوفيس مرة أخرى ..إذا لم تحل المشكلة قم بتنصيب نسخة أخرى تقبل تحياتي

بارك الله فيك

اللي انا شايفه ان المشاكل بدات تزيد من بعد الاكسس 2003 ولكن من تجربة وجدت اكسس 2007 قليل المشاكل وخاصة بعد تحويله الى accde فهو يعمل على 2007 وما بعد بدون مشاكل كثرت المشاكل مع اكسس 2010 احد التجارب انعطب ملف 2010 وحاولت ضغطه واصلاح ب 2010 لم يقبل وفتحته عن طريق 2013 فقام بضغطه واصلاحه ولكن السؤال المهم : هل نحن نستخدم نسخ اوفيس اصليه ! سواء مصدر البرنامج او العملاء ! وحصلت المشاكل ؟؟؟؟؟ تقبلو مروري

حياك الله اخوي جعفر اليومين هذي فضيت حبتين فاللله يعينك على مداخلاتي البرنامج لم يعمل واعتقد ويتم الاغلاق حيث اعمل على 2013 وبعيد عن البرنامج راح اعلق على الفكرة او بالادق الميجانيزم 1. الفكرة تولدت لخطورة حذف الملف المرفق وهنا الفكرة جعلت الملف المرفق اهم من ملف القاعدة وهذا غير منطقي ! باختصار لو تم حذف ملف القاعدة لذهبت وذهب البرنامج المحمل بل بحذف السجل الحامل للبرنامج >>> كذا حذف البرنامج !!! 2. اعتقد ان هناك حجم محدد لنوع البيانات ole ممايجعل هناك حدود لحجم البرامج المحمله 3. مستحيل ان يكون هذا مسموح في بيئات الاي تي عالية الحماية فهذا بمثابة طريقة لعمل الفيروسات بطرية بدائية 4. لا اعتقد ان الملف قابل للتطبيق العملي بقدر ماهو فكرة مبرمج هاوي قام بتنفذها حاولت دبل كليك على الملف من الجدول مباشرة ولم تفتح معي ! هل هنا به مشكلة ام المفروض طبيعي تفتح زيها زي اي ملف ole ؟ هناك فائدة من المرفق وهي طريقة قراءة الباينري داتا وتخزينها في الجدول من خلال الكود ولكن اصبحت قديمة نوعا ما فاصبح هناك نوع مرفق وهناك كائن stream لمكتبات ال ado اخيرا موضوع تشكر عليه وبالتوفيق

ماشاء الله العظيم ذوق عالي جدا يا ابا جودي ... وعمل رائع .. رائع .. الله يحفظ مصر واهلها وكل بلادالمسلمين ..

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

اذا كان هكذا فهذا اصلا هو التتنسيق standard وكذلك التنسيق currency اذا حب اضافة شكل العملة تحياتي

أخي العزيز أسامة أبو عمر الملف المرفق حجمه 16 ميجا .. هيكون صعب التعامل مع المرفق بهذا الشكل أفضل إرفاق نموذج بسيط لبعض الملفات للتجربة عليها وإرفاق شكل النتائج المتوقعة .. حتى إذا تم التوصل لطريقة يمكن تطبيقها على الملف الأصلي عموماً إليك الملف المرفق التالي فيه نموذج لكيفية تجميع أوراق العمل المختلفة من كافة المصنفات شوف الملف لعله يكون المطلوب ويؤدي الغرض Collect Or Merge Workbooks.rar

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

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

هلا اخوي جعفر الموضوع بسيط ان شاء الله بس ممكن لم يمر عليك في برامجك لما يكون عندك حقل به مثلا سجلين 0.166 0.331 اجماليهم قبل التنسيق = 0.497 مع انه لو تم النظر لهم بعد التنسيق وبتطبيق المشاركة رقم 6 0.17 0.33 وهذا يوحي للمطلع على الرقمين ان اجماليهم 0.50 وهو ما يختلف عن الاجمالي الحقيقي السابق بالتوفيق

صوموا تصحواجاء الهدي النبوي بآداب يتدبر بها المسلم أمر طعامه وشرابه، وهي علاوة على أنها أضفت على حياته الاجتماعية مسحة جمالية وسلوكية رائعة، نظّم بها الشارع تناول الوجبات وكمياتها وطريقة تناولها، بما يتفق مع ما وصل إليه الطب الوقائي الحديث وعلم الصحة، لا بل سبقه إلى ذلك بقرون عدة، فلا يأكل المسلم حتى يجوع، وإذا أكل لا يصل إلى حدّ التخمة من الشبع؛ وبحسب ابن آدم لقيمات يقمن صلبه ... إلى غير ذلك من الآداب الواردة في المأكل والمشرب.واتفاقاً مع الأهمية الصحية لطريقة تناول الطعام والشراب، وعلاقة ذلك بصحة البدن، فقد حدد نبينا - صلى الله عليه وسلم - الوضعية المثلى للجلوس على الطعام، ونهى عن وضعيات قد ينجم عنها بعض الأذى، كأن يأكل المرء أو يشرب واقفاً أو متكئاً، كما ندب إلى أن يتحدث الإنسان على طعامه لإدخال السرور على المشاركين مما يزيد في إفراز العصارات الهاضمة ويساعد على الاستفادة المثلى من الطعام.ومن الأحاديث التي تدل على إعجاز السنة النبوية في هذا السياق ما رواه المقداد بن معد يكرب عن النبي - صلى الله عليه وسلم - أنه قال: (ما ملأ ابن آدم وعاء شراً من بطنه، بحسب ابن آدم لقيمات يقمن صلبه، فإن كان لابد فاعلاً فثلث لطعامه وثلث لشرابه وثلث لنفسه) رواه الترمذي وحسنه.مراتب الغذاء ثلاثةيقول الإمام ابن القيم: "مراتب الغذاء ثلاثة: أحدها مرتبة الحاجة، والثانية مرتبة الكفاية، الثالث مرتبة الفضيلة، فأخبر - صلى الله عليه وسلم - أنه يكفيه لقيمات يقمن صلبه فلا تسقط قوته ولا تضعف، فإن تجاوزها فليأكل بثلث بطنه، وهذا من أنفع ما للبدن وما للقلب، فإن البطن إذا امتلأ من الطعام ضاق عن الشراب، فإذا أورد عليه الشراب ضاق عن النفس، وعرض عليه الكرب والتعب".ويقول الإمام الغزالي: "ومن مضار الشرَه: اشتداد المعاصي وخاصة الشهوة الجنسية، فإذا منعت التقوى صاحبها من الزنى فلا يملك عينه، فإذا ملك عينه بغض الطرف فلا يملك فكره، فتخطر له الأفكار الرديئة وحديث النفس بأسباب الشهوة، وما يتشوش به مناجاته".وقد اكتشف الطب الحديث أن الجزء العلوي من المعدة هو عبارة عن جيب ممتلئ بالهواء يقع تحت الحجاب الحاجز، وكلما كان ممتلئاً بالهواء كانت حركة الحجاب الحاجز فوقه سهلة وكان التنفس ميسورًا، أما إذا امتلأ هذا الجيب بالطعام والشراب تعرقلت حركة الحجاب الحاجز وكان التنفس صعبًا، كما أن الصلب لا يستقيم تماما إلا إذا كانت حركة المعدة مستريحة، ولا يتم ذلك إذا أُتخِمت بالطعام.جامع أصول الطبوقد أسلم طبيب أمريكي، فلما سُئل عن سبب إسلامه قال: أسلمت بسبب حديث واحد، وآية واحدة، قالوا له: ما الحديث؟ قال: قوله - صلى الله عليه وسلم - : (بحسب ابن آدم لقيمات يقمن صلبه، فإن كان لا محالة فاعلا، فثلث لطعامه، وثلث لشرابه، وثلث لنفسه)، ثم قال معقّبا: هذه أصول الطب، ولو أن الناس نفذوها ما كاد يمرض أحد.ومن طريف ما يُذكر في ذلك أن حوارًا جرى بين طبيب ألماني وصحفي مسلم في إحدى مستشفيات ألمانيا، قال الطبيب الألماني للصحفي المسلم: ما سبب تأخر المسلمين عن الحضارة والنهضة؟ فأجابه الصحفي المسلم - بالهوية فقط - : إن سبب تأخر المسلمين هو الإسلام، ‍‍‍‍فأمسكه الطبيب من يده، وذهب به إلى جدار قد عُلقت عليه لوحة، فقال له: اقرأ الكلمات المكتوبة على هذه اللوحة، فإذا فيها الحديث الشريف الذي يقول فيه النبي - صلى الله عليه وسلم - : (ما ملأ ابن آدم وعاء شراً من بطنه...)، وعند نِهاية الحديث قد كُتب، القائل: محمد بن عبد الله، فقال الطبيب الألماني للصحفي المسلم: أتعرف هذا؟ قال: نعم هذا نبينا، فقال له: نبيكم يقول هذا الكلام العظيم، وأنت تقول: إن سبب تأخركم هو الإسلام!! وختم الألماني الحوار بقوله: للأسف إن جسد محمد عندكم، وتعاليمه عندنا!!وخلاصة ما يذكره الأطباء المتخصصون في ذلك - تصديقا للحديث - أن الإسراف في الطعام هو السبب الحقيقي لمرض السمنة التي تؤدي إلى تصلب الشرايين وأمراض القلب وتشحم الكبد وتكون حصوات المرارة ومرض السكر ودوالي القدمين والجلطة القلبية والروماتزم المفصلي الغضروفي بالركبتين وارتفاع ضغط الدم والأمراض النفسية والآثار الاجتماعية التي يعاني منها البعض، وقد لجأت كثير من المصحات العالمية في الدول الغربية إلى استعمال الصيام كوسيلة فعالة في إنقاص وزن المرضى الذين لا تجدي معهم وسيلة أخرى.

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

أخي الكريم جمال الدين يرجى تغيير اسم الظهور للغة العربية فضلاً لا أمراً جرب الكود التالي لحذف كل أوراق العمل ما عدا الورقة الأولى (حركة الحسابات) والورقة الثانية (Statement) Sub DeleteAllSheetsExceptTwo() Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In ThisWorkbook.Sheets If Sh.Name <> Sheet1.Name And Sh.Name <> Sheet2.Name Then Sh.Delete End If Next Sh Application.DisplayAlerts = True End Sub تقبل تحياتي

هلا بأخوي رمهان ، عسى ما شر ، نوّرنا بدل هل الوجوه الغاضبة جعفر

بسم الله ما شاء الله عليك أخي الغالي رمهان متمكن ... ورائع ما تسيبك من الأكسس وخليك معانا في الإكسيل ..!!

تفضل تحياتي progressbar.rar

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء السلام عليكم ورحمته الله وبركاته يطيب لى وبناءا على طلب أخى العزيز الاستاذ الفاضل محمد " ابوالبراء" ان أهدى نجلنا البراء محمد " بارك الله فيه " هذه الاطلاله المتواضعة من العبدالفقيرالى الله تعالى الا وهى شيت مصغر من برنامج مرتبات الساده العاملين بالتربية والتعليم واقصد هنا بعبارة " شيت مصغر" لانه لايحتوى على كافة الاحتمالات القائمة بشأن عملية الصرف لجميع الساده العاملين بالتربية والتعليم دون الخروج على ماينبغى صرفه إلى أن يإذن الله تعالى بأن انتهى من الاصدارالاول من البرنامج الاصلى المطلوب فقط الاتى :- 1- تحديد بيانات الموظف من العمود E2 الى K2 2- تحديد بيانات اساسى المرتب الحالى 2013/7/1 + الـــ 5 علاوات من العمود L2 الى Q2 ملاحظات هامة 1- تم إضافة علاوة الحد الادنى للأجور وفقا للقرار رقم 22 لسنة 2014 بمنشوريه رقم 1 و 2 2- تدخل علاوة الحد الادنى ضمن جملة الاجورالمتغيرة علما بأن الحد الاقصى للأجور المتغرة اعتبارا من 2014/1/1 اصبح 1587.00 جنيها شهريا 3- الحد الاقصى للأجور الاساسية بلغ 987.50 جنيها شهريا جزاكم الله خيرا ..... تقبلوا وافر احترامى

جرب المرفق التالي في ورقة العمل Sheet2 جمع نطاق متحرك.rar

السلام عليكم اولا هذا الكود يعمل على خليه واحده كيف اجعله يمتد من الخليه F1 حتى الخليه F 300 ,ومن G1 الى G300 ثانيا كيف اجعل الخليه تحسب بدون الظغط على انتر يعني تلقائي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F1").Address Then Range("G1").Value = Val(Range("G1")) + Val(Target) End If End Sub

السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F7").Address Then Range("G7").Value = Val(Range("G7")) + Val(Target) End If End Sub تحياتي