علي السحيب

قم أولاً بإلغاء حماية الورقة .. ثم أعد حمايتها مرةً أخرى وقبل إدخال كلمة المرور .. قم بإزالة علامة الصح عن الخيار الأول وهو: (Select Locked Cells) .. أو إختيار الخلايا المغلقة.

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

ربما يكون ذلك،

وعليكم السلام، بالنسبة للطريقة الثانية التي ذكرتها أخي أبو أبرار فلا بد أيضاً من ضبط الخيارات الإقليمية على اللغة الهندية لكي تتحول الأرقام إلى العربي. والرابط التالي يحتوي على الكثير من التنسيقات ويمكنك الإستفادة منها إذا أحببت: http://www.officena.net/ib/index.php?showtopic=8726&hl شكراً لك،

السلام عليكم، كيف حالك أخي أبو هادي .. أنا آسف جداً على تأخري في الرد والشكر على المجهود الكبير والمضني الذي قمت به .. وقد دخلت للتعقيب على إبداعك .. وفوجئت بسؤلك عني. وسبب تأخري في الرد هو أنني كنت أعمل على إختبار الكود بشكل شامل ومن جميع النواحي .. وما وجدته هو قمة في الإبداع وروعة في الأداء ومجهود أكثر من ممتاز .. وكلمة شكر لا تكفي للرد على هذا العمل المتمير منك أخي أبو هادي.

أعتقد أنني لم أفهم قصدك بالضبط إلا عندما قرأت تعقيك على الملف الذي أرفقته أنا بالأمس .. وما فهمته هو أنك تريد الناتج أن لا يكون أقل من 5 ولا أكثر من 7 .. أليس كذلك؟؟ =IF(B6*C6<5,5,IF(B6*C6>7,7,B6*C6)) إذا كان الأمر هكذا فالصيغة التالية تقوم بإظهار النتيجة 5 عندما يكون ناتج ضرب الخانتين أصغر من أو يساوي 5 .. ويقوم بإظهار النتيجة 7 عندما يكون حاصل ضرب الخانتين 7 أو أكثر .. ___________________.rar

الصيغة التالية: =IF(E8<=$G$12,$E$8,IF(E8>$G$12,$G$12,"")) يعادلها الكود التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [E8] <= [G12] Then [D12].Value = [E8] ElseIf [E8] > [G12] Then [D12].Value = [G12] Else: [D12].Value = "" End If End Sub ___________IF________.rar

جرب الكود التالي أخي ماجد .. والرجاء عدم الإستعجال في إنتظار الإجابة في المرات القادمة .. لأن إعداد الكود ليس كإعداد الصيغ. Option Explicit Sub testme() Dim myRng As Range Dim iRow As Long Dim FirstRow As Long Dim LastRow As Long With ActiveSheet FirstRow = 7 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For iRow = FirstRow To LastRow If .Cells(iRow, "A").Value > 0 Then If myRng Is Nothing Then Set myRng = .Cells(iRow, "A") Else Set myRng = Union(.Cells(iRow, "A"), myRng) End If End If Next iRow If myRng Is Nothing Then MsgBox "لا يوجد سجلات للإختيار" Else '.select Intersect(myRng.EntireRow, .Range("a:j")).Select End If End With End Sub

ضع الصيغة التالية في الخلية C1: =CEILING(A1*B1,5)

أعتقد أن هناك مشكلة أخرى غير مشكلة عدم نسخ التنسيق .. لأنه عندما يتم نسخ الخلية ولصقها في مكان آخر .. يتم نسخ كل محتوياتها الصيغ والتنسيق وغيرها. لذا أفضل أن تقومي بإرسال الملف المعني أو أي ملف مشابه له .. لكي نكتشف نوع المشكلة بالتحديد.

جرب المرفق، Book114.rar

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

في المعادلة الأولى قم بوضع المؤشر على A1 ثم إضغط F4 .. عندها سيتم تطويق المرجع A1 بعلامة الدولار ليصبح هكذا $A$1 .. والغرض من هذا هو أن يتم تثبيت المرجع في الصيغة لكي لا تتغير عندما يتم نسخ المعادلة. ولا تنسى تنسيق الخلايا إلى عام .. لكي تحصل على العدد الصحيح فقط.

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

يتم ذلك بإستخدام الدالة SUMIF .. كما في الصيغة التالية: =SUMIF(C3:C11,">0") كما في الملف المرفق، _______________________.rar

جرب أخي عادل الكود التالي: 1- يقوم بتنبيهك عندما تكون أول خلية في العمود الذي أخترته فارغه. 2- يوم بتنبيهك عندما يكون العمود الذي أخترته ممتلئ تماماً. _______________________________.rar

كما أخبرتك أخي عادل في مشاركتي رقم 11 في هذا الموضوع .. أما عن سبب إستخدامه في المعادلة .. فأفضل أن تراجع الرابط التالي وتطلع على المرفق بشكل دقيق. http://www.officena.net/ib/index.php?showtopic=8726

خلية الإرتباط لا تعطيك البيانات الموجودة في نطاق الإدخال الخاص بالقائمة المنسدلة .. بل تعطيك أعداد متسلسلة على عدد الخلايا الموجودة في نطاق الإدخال .. وللحصول على البيانات الموجودة في القائمة المنسدلة أو اي بيانات أخرى تود ربطها بالقائمة المنسدلة .. لابد من إستخدام دوال الإكسل.. والرابط التالي يحتوي على شرح تفصيلي عن كيفية إنشاء القائمة المنسدلة: http://www.officena.net/ib/index.php?showtopic=9729

إذا لاحظنا الخلية A1 في الملف الأول (Conditional Formatting) .. نلاحظ أن الصيغة التي بها هي TODAY()= .. بينما النتيجة التي ظهرت لنا هي أسم اليوم .. وهذا يكمن في التنسيق الخاص بالخلية. ولكي نجعل التنسيق الشرطي يتعرف على التنسيق الذي بالخلية لا على القيمة التي بها وهي التاريخ الحالي .. لجأنا إلى إستخدام الدالة TEXT والتي تعنى بتنسيق الأرقام .. بعبارة أخرى .. لو أننا أستخدمنا أسماء أيام الأسبوع مباشرة في التنسيق الشرطي .. فلن تظهر النتيجة المطلوبة .. لأننا حصلنا على أيام الأسبوع في الخلية A1 عن طريق التنسيق .. لذا كان لابد أن نحصل على نتيجة التنسيق الشرطي عن طريق التنسيق أيضاً لا عن طريق قيمة الخلية. أتمنى أن تكون قد أتضحت الفكرة.

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

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

هذا التنسيق هو ضمن التنسيقات الإفتراضية الموجود في الإكسل .. وبالتحديد في تنسيقات التاريخ الخاصة بالمملكة العربية السعودية .. وكل ما قمت به هو تغيير التنسيقات المتوالية له مثل DDD و MMM .. وغيرها .. للوصول لما نريد.

نأسف على التأخر في الرد .. ولكن ألا ترى أن من حقنا التمتع بإجازة نهاية الأسبوع مع عوائلنا. على العمود طلبك موجود على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=9729

جميل جداً ما قمت به أخي أبو هادي .. لكن باقي على الحلو تكه :( لكن ما قصدته هو أن يتم إدخال التواريخ الهجرية مباشرة داخل الخلية .. يعني هكذا 15/12/1410 .. أتمنى أن تصل إلى كود يفي بهذا الغرض أخي العزيز أبو هادي.

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