حسام نور

* الحمد لله أخي أيمن كل الأمور بخير .... أشكر سؤالك وإن شاء الله نراكم دائماً دون أنقطاع

- أهلاً أخي أيمن أبوأنس إذا قصدت أن نجبر المستخدم على عدم ترك خليه فارغه فراجع الرابط التالي للمشرف ( أبومؤنس ) http://www.officena.net/ib/index.php?showtopic=2080 - أما إذا قصدت أنك تريد أن تترك خليه فارغه فأنا لا أرى لذلك داعي لإن الترقيم سيكون تسلسلياً ويجب تكون البيانات أيضاً متسلسله - ويمكن أستخدام كود المشرف أبومؤنس لحل مشكلة نسيان خليه فارغه حيث يجبر المستخدم على الكتابه بالترتيب وعدم تجاوز الخليه

أليك حل على السريع بحيث أن الخليه E6=A1 ونضع التنسيق الشرطي داخل الخليه E6 كما سترى بالملف المرفق وسيتم أضافة حلول أخرى إن وجدت .. ولا ننسى باقي الأفكار من مشرفينا format.zip

رائع أخي أبومؤنس .... أفتقدناك وأفتقدنا موهبتك ... لا تحرمنا من هذه الطله والله الموفق

- أضافة لما تفضل به الأستاذ محمد حجازي فإنه يمكنك حماية العمود بذاته إذا كان لديك أوفيس XP أو 2003 ولكن لاتتوفر هذه الخاصيه في أوفيس 2000 أو 97 حيث أن الحمايه بهما تشمل كامل الورقه ولا يمكن حماية خليه أو مجموعة خلايا بعينها - في الرابط التالي http://www.officena.net/ib/index.php?showtopic=2350&hl= ستجد شرح بالصور لكيفية حماية خلايا بعينها وستفيدك إن شاء الله في حماية العمود المطلوب وبكلمة سر وشكراً ...

فكره جميله أخي محمد حجازي ... نشكرك عليها

في المرفقات ستجد الآتي - موديول أسمه ( Auto Open ) . أفتح ملف الأكسيل لديك ثم أضغط Alt+F11 ثم من يسار الشاشه بالأعلى أضغط على الموديول بالماوس الأيمن وقم بعمل Import لهذا الموديول وستجده يظهر ضمن الموديولات وهوالخاص بأخفاء كل شيء عند فتح الملف - الموديول الثاني وهو الخاص بأعادة الأمور لمجاريها ووضعها السابق عند أغلاق الملف لكي تظهر أشرطة الأدوات عند فتح أي ملف أكسيل آخر . ولإدراجه أتبع الخطوات السابقه وبالطبع في حال عدم أدراجه ضمم الملف الذي به Auto Open ستختفي أشرطة الأدوات في باقي ملفات الأكسيل - ملحوظه هامه : في الموديول Auto Open قم بالدخول عليه وعدل أسم الـ Sheet المطلوب الذهاب اليه عند فتح الملف . ستجده على سبيل المثال في الموديول المرفق Sheet 1 وإذا لم تقم بتعديله الي أسم الشيت لديك ستظهر رسالة خطأ عند فتح المف - ملحوظه أخرى .. لم يعجيني معرفك في المنتدى ( الفشل ) !!! وللمعلوميه يمكن طلب تعديله من الأداره مع الأحتفاظ بالمشاركات وشكراً .... Auto open And close.zip

أصبت أخي الفاضل ... وأرجو ممن لديه أفكار أخرى فليتفضل بها

هناك خياران أثناء الخطوات ونها ملأ الشاشه أو ظهور مربع ... يمكنك خلال كل خطوه الضغط على زر Preview ومشاهدة خطوات العمل ومنها ملآ الشاشه ولا تتردد في حال وجود أي أستفسار

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

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

أنظر للملف المرفق لو أن ذلك ما تقصد سأقوم بشرح مبسط لطلبك وشكراً تحميل البرنامج.zip

سلمت يداك أبوهادي ... أيضاً رائع

رائع أخي محمد حجازي ....

كلنا نعرف أنه عند أنشاء صفحات بعدد أيام الشهر في ملف أكسيل ثم وضع هذا الكود Private Sub Workbook_Open() Dim A A = Day(Date) Select Case A Case Is = 1 Sheets("1").Select Case Is = 2 Sheets("2").Select Case Is = 3 Sheets("3").Select Case Is = 4 Sheets("4").Select Case Is = 5 Sheets("5").Select Case Is = 6 Sheets("6").Select Case Is = 7 Sheets("7").Select Case Is = 8 Sheets("8").Select Case Is = 9 Sheets("9").Select Case Is = 10 Sheets("10").Select Case Is = 11 Sheets("11").Select Case Is = 12 Sheets("12").Select End Select End Sub سيذهب الأكسيل مباشرة الي اليوم الحالي عند فتح الملف وأنه عندما نصمم ملف بشهور السنه ونضع هذا الكود Private Sub Workbook_Open() Dim A A = Month(Date) Select Case A Case Is = 1 Sheets("يناير").Select Case Is = 2 Sheets("فبراير").Select Case Is = 3 Sheets("مارس").Select Case Is = 4 Sheets("أبريل").Select Case Is = 5 Sheets("مايو").Select Case Is = 6 Sheets("يونيو").Select Case Is = 7 Sheets("يوليو").Select Case Is = 8 Sheets("أغسطس").Select Case Is = 9 Sheets("سبتمبر").Select Case Is = 10 Sheets("أكتوبر").Select Case Is = 11 Sheets("نوفمبر").Select Case Is = 12 Sheets("ديسمبر").Select End Select End Sub سيذهب الملف تلقائياً الي الشهر الحالي عند فتح الملف ولكن ..... إذا فرضنا أن الملف يحتوي على أسماء الشهور مدمجاً معها الأيام على سبيل المثال ( 1 يناير ) ( 2 يناير ) وهكذا الي أن نصل الي ( 31 ديسمبر ) أي بعدد أيام السنه فكيف سيكون الكود ؟؟؟ وكيف سيشتق الملف معلوماته عن الشهر ثم اليوم ويذهب اليه عند الفتح ؟؟؟ فلنفكر سوياً .... وشكراً

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

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

تميز بلا حدود أخي محمد حجازي ... وفقك الله

مرفق مثال فرز تصاعدي.zip

- نأسف لهذا الخلل الفني أخي الفاضل تم التعديل وستجد ذلك في المرفقات Time Accounting 2.zip

- في الملف المرفق حدد المبلغ الذي سيضاف في الخليه الجديده ( تكلفه ستضاف ) ويستم تحديث الإجمالي مع حدوث أي تغيير مع الشكر

مع الشكر للمتميز محمد حجازي .... يمكنك أيضاً مراجعة الرابط التالي ..... http://www.officena.net/ib/index.php?showtopic=2720

وشكراً على شرحك الوافي نفع الله به باقي الزملاء

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

- هذا موضوه شهادة الطالب الذي تحدثتم عنه http://www.officena.net/ib/index.php?showtopic=3189 - وهنا موضوع عمل دائرة حمراء على درجة الطالب http://www.officena.net/ib/index.php?showtopic=3331 وشكراً