علي السحيب

شاهد المرفق، لقد أستطعت الوصول للمطلوب بطريقتين مختلفتين .. أختر منهما ما يناسبك، DropLists.rar

شاهد المرفق، Extract2.rar

حدد الشروط التي تريدها .. وسنحاول مساعدتك

يمكنك ذلك من خلال القائمة بيانات ثم التحقق من الصحة

شاهد المرفق، extract2.rar

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

الكود التالي يعمل على إغلاق جميع المصنفات المفتوحة: Public Sub CloseAllWorkbooks() Dim Wkb As Workbook For Each Wkb In Workbooks If Wkb.Name <> ThisWorkbook.Name Then Wkb.Saved = True Wkb.Close End If Next Wkb With ThisWorkbook .Saved = True .Close End With End Sub ويصبح الكود في نهاية المطاف كالتالي: Sub Auto_Open() Sheets("main").Select Application.DisplayFullScreen = False Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Standard").Visible = False Application.CommandBars("Formatting").Visible = False Application.CommandBars("Drawing").Visible = False Application.CommandBars("Reviewing").Visible = False Application.CommandBars("Web").Visible = False Application.DisplayStatusBar = False Application.DisplayFormulaBar = False a = InputBox("أدخل كلمة المرور") If a <> 123 Then MsgBox "عفواً. ليس لديك تصريح بإستخدام البرنامج", vbExclamation, "كلمة مرور خاطئة" CloseAllWorkbooks End If End Sub _____.rar

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

إذا أردت إغلاق الملف بدون حفظ التغييرات قم بإضافة السطر التالي مع الكود. ActiveWorkbook.Saved = True مع مراعاة إزالة السطر التالي من الكود والخاص بحفظ الملف قبل الإغلاق ActiveWorkbook.Save ليصبح الكود في نهاية المطاف كالتالي: Sub Auto_Open() Sheets("main").Select Application.DisplayFullScreen = False Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Standard").Visible = False Application.CommandBars("Formatting").Visible = False Application.CommandBars("Drawing").Visible = False Application.CommandBars("Reviewing").Visible = False Application.CommandBars("Web").Visible = False Application.DisplayStatusBar = False Application.DisplayFormulaBar = False a = InputBox("أدخل كلمة المرور") If a <> 123 Then MsgBox "عفواً. ليس لديك تصريح بإستخدام البرنامج", vbExclamation, "كلمة مرور خاطئة" ActiveWorkbook.Saved = True Application.Quit End If End Sub _____.rar

قمنا بإستخدام الدالة SUMPRODUCT للجمع الشرطي مع ملاحظة أننا لم نقم بإستخدام الدالة SUMIF لأنها لا تستطيع التعرف على التنسيقات التي تم إسخدامها للحصول على إسم اليوم .. وكذالك استخدمنا الدالة TEXT لكي تتمكن من التعرف على تنسيق الأيام العربية على أنها كلمة وليس تنسيق .. ويمكنك التعرف أكثر على الدالتين المستخدمتين هنا عن طريق مراجعة المرفق التالي والتي تم طرحة في المنتدى فيما مضى .. وأرفق لك الملف المرفق في المشاركة السابقة مرةً أخرى مع إضافة طريقة جديدة للحصول على نفس النتيجة السابقة ولكن بإستخدام دالة أخرى مع صيغة الصفيف (وهي التي يتم ضغط Ctrl + ِshift + Enter لإدخال المصيغة. SUMPRODUCT___TEXT.rar _______________________.rar

شاهد المرفق، __________________________.rar

قم بإختيار المجال الذي تريد طباعتة .. ثم إذهب إلى القائمة File ثم Print Area ثم Set Print Area .. ثم قم بعد ذلك بضبط الهوامش كيف تشاء.

شاهد المرفق .. وأتمنى أن تجد به كل ما تريد، _______________________.rar

يمكنكم أيضاً الإستفادة من الملف المرفقين في طريقة جمع وعد أعداد معينة خلال سنة أو شهر أو شهر وسنة. وعلى فكرة .. لقد تم طرح الملفين في المنتدى فيما مضى، COUNTIF___SUMPRODUCT.rar

بدايةً نأسف على التأخر في الرد وذلك للإنشغال مع العائلة في عطلة نهاية الأسبوع .. على كل حال إليك الإجابات على جميع استفساراتك: 1- لايمكنك تشغيل الكود وأنت في وضع التحرير (Editing Mode) .. وليس الكود فقط هو الذي يتوقف عمله عندما تكون أي من خلايا صفحة العمل في وضع التحرير .. وإنما معظم الخصائص المتاحة في الوضع العادي تكون غير متاحة في وضع التحرير .. ويمكنك التأكد من ذلك بالضغط دبل كليك على أي من الخلايا ثم تقوم بإستعراض أشرطة الأدوات والقوائم وسترى أن معظمها غير مُتاح. 2- تم تعديل الصيغة الخاصة بالتنسيق الشرطي. 3- يمكنك إدخال قيمتين متكررتين .. ولكن يتم إعطاؤك تنبيه إذا كانت القيمة التي تريد ترحيلها هي نفس القيمة التي تم ترحيلها آخر مرة .. أما إذا كانت القيمة مختلفة فيتم ترحيلها بدون أي مشاكل. 4- أرفق لك ملف آخر كنت قد طرحتة في المنتدى فيما مضى .. بناء على طلب أحد الأعضاء .. وهو متعلق بإستفارك عن ترحيل أكثر من خلية في نفس الوقت. ويمكنك زيارة الروابط التالية للإطلاع على معلومات أكثر بهذا الخصوص: http://www.officena.net/ib/index.php?showtopic=9945 http://www.officena.net/ib/index.php?showtopic=10091 أتمنى لك الإستفادة Tahreel.rar

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

أرفق الملف وستجد الإجابة بإذن الله

شاهد المرفق __________________.rar

راجع الموضوع الموجود على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=10286

قمت بتصميم كودين لتأدية نفس الغرض: الكود الأول بإستخدام التعليمة IF: Private Sub Workbook_Open() Dim CM CM = Month(Date) If CM = 1 Then Sheets("Jan").Select If CM = 2 Then Sheets("Feb").Select If CM = 3 Then Sheets("Mar").Select If CM = 4 Then Sheets("Apr").Select If CM = 5 Then Sheets("May").Select If CM = 6 Then Sheets("Jun").Select If CM = 7 Then Sheets("Jul").Select If CM = 8 Then Sheets("Aug").Select If CM = 9 Then Sheets("Sep").Select If CM = 10 Then Sheets("Oct").Select If CM = 11 Then Sheets("Nov").Select If CM = 12 Then Sheets("Dec").Select End Sub الطريقة الثانية بإستخدام التعليمة Select Case: Private Sub Workbook_Open() Dim CM CM = Month(Date) Select Case CM Case Is = 1 Sheets("Jan").Select Case Is = 2 Sheets("Feb").Select Case Is = 3 Sheets("Mar").Select Case Is = 4 Sheets("Apr").Select Case Is = 5 Sheets("May").Select Case Is = 6 Sheets("Jun").Select Case Is = 7 Sheets("Jul").Select Case Is = 8 Sheets("Aug").Select Case Is = 9 Sheets("Sep").Select Case Is = 10 Sheets("Oct").Select Case Is = 11 Sheets("Nov").Select Case Is = 12 Sheets("Dec").Select End Select End Sub Select_The_Current_Month__s_Sheet.rar

راجع أخي الرابط التالي: http://www.officena.net/ib/index.php?showtopic=9636

يكون ذلك بإستخدام التنسيق الشرطي من خلال القائمة تنسيق .. وإذا أستصعب عليك الأمر أخي الكريم أرفق الملف المعني وسنقوم إن شاء الله بعمل اللازم.

شاهد المرفق أخي الكريم، _____________________.rar

شاهد المرفق أخي الكريم، ربما تعجبك بعض الإضافات التي قمت بعملها .. والإختصار للأكواد، __________________________________.rar

الله يعافيك