يوسف عطا

معلش نسيت أرفق الملف فى المشاركة التى بها الكود هذا هو الملف كود تكرار راس وتزييل فى كل الشيتات.rar

تفضل يا غالى تكرار الرأس والتزييل فى كل الشيتات بورقة العمل حتى التى يتم إدراجها مستقبلاً يوضع الكود فى حدث زيس وورك بوك الكود منقول عن الأخ جمال الفار Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .RightHeader = Sheets(1).Range("A1").Value .CenterHeader = Sheets(1).Range("B1").Value .LeftHeader = Sheets(1).Range("C1").Value .RightFooter = Sheets(1).Range("A2").Value .CenterFooter = Sheets(1).Range("B2").Value .LeftFooter = Sheets(1).Range("C2").Value End With End Sub

الف شكر يا أستاذ جمال على البرامج الرائعة هل برنامج إسترداد كلمات المرور لملفات الإيكسيل يعمل معكم أخوتى أم لا ؟؟ حيث ظهرت لى رسالة الإرور هذه علماً بأنى أستخدم ويندوز سفن Uploaded with ImageShack.us

بالتجربة بطريقة أخرى على نفس الملف إكتشفت إستمرار نفس المشكلة فتحت الملف وبدأت أحذف البيانات ذات الأسماء الفردية إسم1 إسم3 إسم5 وهكذا حتى إسم 33 وجدت الكود يحذف الاسماء الزوجية إسم2 إسم4 إسم6 وهكذا حتى حذف إسم34 هل يمكن أن تترجم لنا كود الحذف سطر سطر يا أستاذنا الفاضل لأننى تهت قليلاً فيه عندما حاولت أن أتتبعه

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

حاضر جارى التجربة

أخى ابو حنين بعد تجربة آخر تعديل بالمشاركة رقم 35 وجدت أن كود الحذف أصبح لا يحذف الإدخال المراد حذفه بالفعل بل يحذف الإدخال التالى له فبتكرار حذف الإدخال المسمى إسم 10 مرتين متتاليتين حذف الإدخال المسمى إسم11 فى المرة الأولى ثم حذف الإدخال المسمى إسم12 فى المرة الثانية فاصبح المدخل إسم10 يليه مباشرة إسم13 ولكن التسلسل بعد هذا التعديل اصبح مضبوطاً وبعد الحذف يستمر التسلسل مضبوطاً تماماً نسأل الله لك التوفيق فى مراجعة كود الحذف والوصول به إلى بر السلام والأمان دمت بخير

جازاك الله خير جارى المعاينة

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

عفواً يا أخى الغالى اثناء كتابتى لمشاركتى كنت حضرتك تضع التعديل فى الكود جارى تجربة التعديل مشكور مقدماً

أخونا الغالى أبو حنين دمت بود يا الغلا بتجربة الملف الأخير لاحظت أنه عند حذف أحد السجلات لا يتم حذف السجل المقصود بل يتم كل مرة حذف السجل الذى أعلاه فعند حذف السجل رقم 10 3 مرات متتالية أول مرة حذف السجل رقم 9 وثانى مرة حذف السجل رقم 8 وثالث مرة حذف السجل رقم 7 الرجاء التأكد من المشكلة ومعرفة الحل

أخونا جمال بك دغيدى صبحك الله بالخيرات أخونا ابو حنين عملية حذف سجل لا تزال بها مشكلة حيث يتم الآتى عند حذف أحد السجلات 1. الخلية A1 المفروض هى راس عمود وبها كلمة مسلسل ولكنها تتغير تلقائياً إلى رقم 1 عند حذف أحد السجلات 2. يقوم كود الحذف بحذف الإدخال الذى يقع فوق الإدخال المراد حذفه فمثلاً عند حذف الإدخال العاشر قام بحذف الإدخال التاسع بدلاً منه 3. تم تكرار مسلسل 10 فى الإدخالات 10 و 11 عشمى ألا أكون قد اثقلت عليك أخى الغالى

أبو حنين دائماً أنت سباق بفعل الخيرات جعل الله أعمالك فى موازين حسناتك ولكن فى التعديل الأخير فى المرفق بالمشاركة 14 الجرار وصل حتى إدخال رقم 260 ولم يزد عنها ولى طلب آخر لو تكرمت عند حذف سجل يقوم الملف بحذفه بمسلسله فيكون هناك تخطى لرقم مسلسل الإدخال المحذوف المطلوب أن يتم تعديل المسلسل بعد حذف السجل أوتوماتيكياً من داخل الفورم مثلاً عند حذف الإدخال بإسم 22 أصبح المسلسل 20 - 21 - 23 - 24 متخطياً المسلسل الخاص بالسجل المحذوف لذلك ظهر خطأ جديد عند إستخدام خاصية السكرول بار العرضى داخل الفورم فاصبح رقم الإدخال لا يتطابق مع ما يعرض فى الفورم وإليك الملف بعد تكبير الفورم لعرض بيانات أكثر ليتناسب مع عمل أفكر فى القيام به بخصوص الكومند بوتون الذى يستدعى الفورم كيف أغير مكانه وهل يمكن أن يتم إستدعاء الفورم عن طريق مفتاح إختصار من الكى بورد ؟؟ الف شكر فهد 2.rar

هل من هذه الجزئية ؟؟ Private Sub ScrollBar1_Change() آخر_خلية = ورقة1.Range("DZ1").End(xlToLeft).Column Label100.Caption = ScrollBar1.Value For s = 1 To آخر_خلية Me.Controls("textbox" & s).Text = Cells(Label100.Caption, s).Offset(1, 0) Cells(Label100.Caption, 1).Offset(1, 0).Select ' = ActiveCell If Me.Controls("textbox" & s).Text = "" Then ScrollBar1.Value = 1 Exit Sub End If Next s End Sub معلش لم أعرف أى جزء يجب تغييره لأجعلها 2000 بدلاً من 200 الرجاء التوضوع

كنت قد أعددت برنامج مماثل لأحد الأصدقاء منذ مدة عدة سنوات الملف مرفق ولو تريد تعديلات معينة اذكرها وسيتم إعدادها بإذن الله برنامج متابعة سداد القروض.rar

أقصد الإدخالات الطولية يا أخى الغالى بالفعل كنت قد غيرت Z1 من قبل إلى AZ1 ليقبل 52 عمود ولكنى أريد أن يقبل داتا حتى 2000 إدخال لأن الجرار ينتهى عند 200 إدخال فقط

رجاء إرفاق الملف للوقوف على المشكلة و للتمكن من حلها

إخوانى الأفاضل أى جزء يجب تغييره فى الكود لكى يتسع الفورم لأكثر من 200 إدخال حيث أنه لا يقبل إلا 200 إدخال فقط خاصة الجرار يعد حتى 200 إدخال فقط

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

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

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

يوجد حلين مبدئياً 1. حفظ البرنامج على نظام أوفيس 2007 أو 2010 2. تحويل الملف لملف تنفيذى بإمتداد EXE كما يمكن تجربة بعض الإجراءات منها إزالة التنسيقات الغير مهمة وخاصة التنسيقات الشرطية بالألوان أو تحويل بعض المعادلات إلى أكواد أو دمج بعض الشيتات لتكون فى شيت واحد عن طريق إعتبار أن كل مجموعة أعمدة كأنها شيت فلو كنت تستخدم مثلاً 28 عمود فقط فى كل شيت فبإمكانك وضع 8 شيتات فى شيت واحد والله أعلم

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

شاكر أفضالك أخى الغالى وأرجو ألا أكون أزعجتك بطلبى جارى التحميل

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