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

السلام عليكم ورحمة الله وبركاته أخباركم أساتذة وأعضاء المنتدي الكرام طبعا أنا تردد كتير قبل ما انزل البرنامج ده هو بالاساس كان طلب من أحد الزملاء وقد حققت له طلبه بالاستعانه بالمنتدي وما يحتوية من عباقرة بالأكسيل وتم بحمد الله الانتهاء من برنامج كنترول الاعدادي البرنامج يعمل على أوفس 2010 بكفاءة عالية وقبل تشغيل البرنامج يجب تفعيل الماكرو أولا لأن البرنامج مبني على الماكرو يوجد ملف مرفق لتفعيل الماكرو كلمة سر فتح البرنامج هي رقم ( 1 ) وهي نفسها كلمة السر لأي كلمة سر تطلب منك داخل البرنامج ولتغيير كلمة السر من الشاشة الرئيسية يمكنك تغييرها أتمني من الجميع تجربته وابداء الرأي فيه لم أستطيع رفع الملف على الموقع رابط تحميل خارجي كنترول اعدادي - 2014.rar

السلام عليكم جرب التعديل التالي : Private Sub Worksheet_Change(ByVal Target As Range) Const pwd As String = "123" Static N As Boolean If N Then Exit Sub If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then If Application.InputBox("برجاء إدخال كلمة المرور لدخول لتعديل البيانات", "تصريح دخول الورقة", "ابراهيم محمد 01067016251") <> pwd Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء" Else MsgBox "تم التعديل بنجاح" N = True End If End If End Sub تحياتي

الحمد لله اخي العزيز alshamal سرني مرورك وتقييمك

السلام عليكم ورحمة الله وبركاته اخى الريفى تقبل الله منا ومنكم صالح الاعمال تقبل تحياتى

السلام عليكم ورحمة الله وبركاته كل عام انتم بخير مرفق ملف لعله يفي بالغرض AAA.rar

السلام عليكم جرب هذا بعد وضعه في موديل الورقة ts2 Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 1 If Target.Address = [M5].Address Then Range("A11:A67").EntireRow.Hidden = False M = Application.Match([M5], Range("A11:A67"), 0) + 11 If M <= 67 Then Range("A" & M & ":A67").EntireRow.Hidden = True End If 1 End Sub تحياتي

الأستاذ / أحمد السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب .بعد INDEX حددالعمود الذي به الاسم وهو العمود D:D وبعد Match حددالخلية الموجود بها العمر وبعدها حدد العمود الذي تقع فيه وفي هذه الحالة يكون العمود H :H . أرجو أن أن وضحت المطلوب. Book5.rar

السلام عليكم ورحمة الله أخي الكريم، هذا يرجع إلى نسبة تحجيم الورقة A4 فمثلا إذا كانت نسبة تحجيم الورقة A4 هو 100% فإنه لطباعة الورقة A4 في ورقة A3 مع احترام الحجوم أولا اختيار نوع الورقة A3 (حسب نوع الطابعة) ثم تغيير نسبة تحجيم الورقة من 100% إلى 141%... كيفية حساب نسبة تحجيم الورقة من A4 إلى A3 يُعطى بالعلاقة التالية : (42 * س) \ 29.7 حيث : س يمثل نسبة تحجيم الورقة A4 (الورقة الأصلية) مثال آخر : لو فرضنا أن نسبة تحجيم الورقة الأصلية A4 هو 70% فإن نسبة تحجيم الورقة A3 عند الطباعة (من A4 إلى A3) يكون : (42 * 70) \ 29.7 أي : 98.98 % أي حوالي : 99 % والله أعلى وأعلم أخوك بن علية

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

أكثر من رائع

ا/ احمد غانم اليك المرفق بعد تعديل الكود من جانب استاذنا ا/ محمود الشريف قيود بكشف حساب 11.rar

الأستاذ الكريم / احمد غانم فقط اجعل كود الطباعه هكذا بإفتراض ان باسوورد حماية الشيت (( الحماية العادية للشيت )) (( 12345 )) Sub Printing() ActiveSheet.Unprotect Password:="12345" Rows([Row] & ":300").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:300").EntireRow.Hidden = False ActiveSheet.Protect Password:="12345" End Sub وتقبل منى وافر الاحترام والتقدير

اخى الكريم اليك المعادله مرتبطه بإدخال تاريخ العمليه كشف حساب 1.rar

السلام عليكم ورحمة الله وبركاته اخى الكريم اليكم المرفق عسى ان يكون المطلوب عبارة عن قيود يوميه ادخال العمليات او القيود ف sheet1 وكشف حساب يتم ادخال اسم الحساب والفترة المراد بها الكشف فقط يظهر الكشف الرصيد مدين ودائن مع اظهار الرصيد اخر الكشف عند طباعة الكشف مع التفقيط امكانيه طباعه الكشف هذا العمل تم بالاستفاده من المنتدى الرائع والاساتذة الكرام والمبدعين ملفات مرفقة قيود بكشف حساب.rar 74.05كيلو 12 عدد مرات التحميل عمل رائع جزاكم الله كل الخير سؤال : كيف يمكن حماية شيت (كشف الحساب) لتلافي الخطأ في المعادلات و الإبقاء على زر الطباعة يعمل بشكل طبيعي

السلام عليكم القيم التي لاتريدها هي أصفار وتوجد وسيلة سرية لأخفاء الخلايا التي تحتوي علي أصفار من Excel Options ثم Advanced ثم من القائمة اليمين إنزل للأسفل حتي Display ثم إنزل للأسفل حتي إسم الشييت الذي به البيان ثم أزل علامة إختيار Show a zero in cells that have zero values لكن إن كنت تريد أن تظهر الأصفار في باقي الشييت وتخفيها فقط في هذين العمودين أو الأربعة فيمكنك ذلك بالتنسيق الشرطي Conditional Format

السلام عليكم ورحمة الله وبركاته اخى الكريم اليكم المرفق عسى ان يكون المطلوب عبارة عن قيود يوميه ادخال العمليات او القيود ف sheet1 وكشف حساب يتم ادخال اسم الحساب والفترة المراد بها الكشف فقط يظهر الكشف الرصيد مدين ودائن مع اظهار الرصيد اخر الكشف عند طباعة الكشف مع التفقيط امكانيه طباعه الكشف هذا العمل تم بالاستفاده من المنتدى الرائع والاساتذة الكرام والمبدعين قيود بكشف حساب.rar

السلام عليكم تفضل المرفق كشف حساب.rar

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

أخي الفاضل واستاذني الغالي جمال عبد السميع شرف كبير مرورك وتعليقك على البرنامج عذرا عند التحويل لأوفس 2003 يكون الحجم كبير جدا يصل إلي 20 ميجا وأخشي أن يؤثر كبر الحجم على كفائة وسرعة البرنامج شرفني مرورك

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

استاذ خالد الشاعر جزاك الله كل خير شرفني مرورك

أخى الحبيب ( وليد فتحى ) جهد رائع وعمل ممتاز ، جعله الله فى ميزان حسناتك ياريت كمان لتعم الفائدة لجميع الأعضاء ياريت تقوم بتحويلة للعمل على أوفيس ( 2003 ) تقبل تحياتى

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

عذراً كلمة سر فتح محرر الأكواد هي ( الحمد لله )

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

أخى الفاضل / وليد فتحى عمل احترافى من الدرجة الأولى جهد جبار وعمل رائع جعله الله فى ميزان حسناتك ان شاء الله ملحوظة : تم رفع الملف على سيرفر الموقع لزيادة الفائدة وسهولة التحميل للجميع مع خالص تحياتى وتقديرى

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