علي السحيب

نعم السطر الثاني متعلق بالقائمة المنسدلة وهو على إظهار جميع بيانات الجدول. ويجب دائماً تفعيل خاصية التصفية التلقائية (AutoFilter).

راجع الرابط التالي .. والمتعلق بطريقة إستخدام الدالة IF بصورة متعددة: http://www.officena.net/ib/index.php?showtopic=12878

جرب الصيغة التالية والمرتبطة بالخلية A1: =DATE(YEAR(A1),MONTH(A1),DAY(A1)+30)

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

عذراً أخي حسام .. على حسب طلب الأخ ToMix .. الصيغة يجب أن تكون على النحو التالي: =IF(AND(A1>=3,B1="3Months"),"FPC","PPP") وليس هكذا: =IF(AND(A1>3,B1=3),"FPC","PPP")

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

جرب الصيغة التالية والمرتبطة بالخلية B3: =IF(MOD(B3,2)=0,B3/2,B3*3+1) ____________________.rar

أعتقد أن محرك البحث الخاص بالمنتدى يعمل بشكل صحيح ورائع .. ويجلب لك جميع المواضيع المتعلقة بكلمة البحث التي أستخدمتها .. وأركز على كلمة البحث .. بحيث أنك يجب أن تستخدمي كلمة شائعة الإستخدام عن المضوع الذي تبحثين عنه .. لكي يتم جلب النتائج الصحيحة وبدون تعثر. أما بالنسبة لنسخ ورقة العمل فأفضل وأسرع طريقة لذلك هي أن تقومي بالضغط على إسم ورقة العمل بزر الفأرة الأيسر وفي ذات الوقت الضغط على مفتاح Ctrl وعند ظهور الورقة الصغيرة الموجود عليها علامة + بجانب مؤشر الفأرة .. قومي بتحريك المؤشر إلى جهة اليمين أو اليسار .. وعند الوصل للموقع الذي تريدين أن تكون ورقة العمل الجديدة فيه .. أتركي زر الفأرة .. وسترين عندها أنه تم نسخ الورقة بالكامل. ولكي تغيري موضعها قومي بعمل نفس الطريقة السابقة ولكن دون الضغط على مفتاح Ctrl. وهناك خيارات أكبر وأكثر عند الضغط على إسم ورقة العمل بالزر الأيمن .. والخيار الذي يناسب طلبك منها هو Move or Copy (نقل ونسخ).

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

كل ذلك يتم عن طريق الكود .. حدد ماتريد بالضبط .. ثم يأتي دور كتابة الأكواد المطلوبة. الكود الخاص بالترحيل تمت الإشارة إليه وتم وضع توضيح له: Sub FillList() With Sheet2.Columns(1).Rows(65536).End(xlUp).Select .Offset(1, 0) = [C18] .Offset(1, 1) = [E18] End With End Sub

تم عمل التالي على الملف المرفق، 1- إضافة 29 صف على الملف المرفق مسبقاً ليصبح مجموع الصفوف 30 صفاً على حسب ايام الشهر الهجري. 2- عند فتح الملف سيتم الوقوف على الصف الخاص بهذا اليوم .. وتم أيضاً وضع زر لهذا الغرض للذهاب إلى الصف الخاص باليوم الحالي متى ما شئت ذلك. ____________________________.rar

إستخدم الصيغة التالية للحصول على إسم صاحب أعلى درجة =INDEX(A2:A51,MATCH(LARGE(B2:B51,1),B2:B51,0)) إستخدم الصيغة التالية للحصول إسم صاحب أقل درجة =INDEX(A2:A51,MATCH(SMALL(B2:B51,1),B2:B51,0)) إستخدم الصيغة التالية للحصول إسم الطالب الحائز على المرتبة الثانية =INDEX(A2:A51,MATCH(LARGE(B2:B51,2),B2:B51,0)) إستخدم الصيغة التالية للحصول إسم الطالب الحائز على المرتبة الثالثة =INDEX(A2:A51,MATCH(LARGE(B2:B51,3),B2:B51,0))

أعتذر لأن ليس دائماً لدي الوقت الكافي لإيجاد الحلول وشرح طريقة تطبيقها.

لايمكن السحب لأن القائمة المنسدلة ليس لها أي علاقة لا من قريب ولا من بعيد بالخلايا العشرين الموجودة في العمود الأول .. وإذا أردت زيادتهم فعليك نسخ القوائم المنسدلة ووضعهم تحت القوائم الموجودة مسبقاً .. مع مراعاة تعديل الكود الخاص بالقوائم الجديدة. العنصر LinkedCell .. لم يتم إستخدامه في الملف المذكور .. وتم أخذ البيانات المستخدمة في الكود من القائمة المنسدلة مباشرة .. أما بالنسبة للعنصر الآخر (ListFillRange) .. فهو موجود وتم تحديد النطاق D2:D6 له. بالنسبة لترحيل البيانات بدون الضغط على زر الترحيل .. فقد قمت بتصميم طريقتين يقومون بهذه الوظيفة .. ولكني أرى أن الترحيل عن طريق الزر هو أكثر عملية من أي طريقة أخرى .. لكن هذا شيء راجع لك أولاً وأخيراً. على كل حال الملف المرفق يحتوي على الطريقتين أختر منهما ما يناسبك .. أو إرجع إلى الخيار الأول وهو الترحيل عن طريق الزر. _________________.rar

1- لا أدرى ما نوع الربط الذي تريده .. على كل حال جرب الطريقة التالية وأتمنى أن تكون هي ما تريد: قم بنسخ الخلية المصدر ثم إذهب إلى الخلية التي تريد أن تظهر قيمة الخلية المصدر بها وإضغط عليها بالزر الأيمن وأختر (لصق خاص) .. وفي أسفل مربع الحوار قم بالضغط على (لصق إرتباط). 2- يوجد عدة مواضيع بهذا الخصوص تم طرحها في المنتدى من قبل .. فما عليك سوى البحث عنها وإختيار ما يناسبك منها. 3- ليس دائماً .. يعتمد ذلك على الخلايا التي يتم دمجها.

ألف شكر لك على المجهود الرائع والمضني الذي تقوم به من أجل خدمة إخوانك أعضاء المنتدى،

يمكنك تفعيل خاصية التصفية التلقائية والصفحة محمية من خلال النافذة الخاصة بوضع كلمة المرور .. حيث أن هناك عدة خيارات أسفل الحقل الخاص بوضع كلمة المرور .. وهذه الخيارات تشتمل على عدة خصائص تكون معطلة عندما تكون الصفحة محمية .. وعند رغبة المستخدم في حماية الصفحة مع تفعيل بعض تلك الخيارات .. يقوم بوضع علامة صح في المربع الموجود بجانب أي منهم. ومن تلك الخصائص Auto Filter (تصفية تلقائية) .. فقم بوضع علامة صح في المربع الموجود بجانبه. وبهذا تصبح خاصية التصفية التلقائية تعمل لديك والصفحة محمية. أمار إذا كانت الصفحة التي لديك محمية ولا تعرف كلمة المرور الخاصة بها .. فالحل في هذه الحالة يأتي عن طريق تطبيقات الفيجوال بيسك: فيتم استخدام الكود التالي لتفعيل خاصية التصفية التلقائية والصفحة محمية .. وهو يقوم بإلغاء كلمة المرور نهائياً ووضع كلمة مرور فارغة بدلاً عنها: Sub EnableAutoFilter() ActiveSheet.Protect AllowFiltering:=True End Sub ويتم استخدام الكود التالي لإلغاء خاصية التصفية التلقائية والصفحة محمية: Sub DisableAutoFilter() ActiveSheet.Protect AllowFiltering:=False End Sub كما يمكنك تفعيل خاصية التصفية التلقائية ووضع كلمة مرور جديدة عن طريق إستخدام الكود التالي: Sub EnableAutoFilterPassword() ActiveSheet.Protect Password:="ali", AllowFiltering:=True End Sub وأيضاً يمكنك إلغاء خاصية التصفية التلقائية ووضع كلمة مرور جديدة عن طريق إستخدام الكود التالي: Sub DisableAutoFilterPassword() ActiveSheet.Protect Password:="ali", AllowFiltering:=False End Sub والمرفق التالي به مثال على كلتا الحالتين، __________________________________________________.rar

طلبك موجود في الملف المرفق، 1- يتم نقل المبالغ الموجودة في الصف الأخير إلى الصف الأول من الصفحة التالية. 2- بعد الكتابة في الخلية الصفراء (R31) .. يتم الإنتقال إلى الصفحة التالية .. والوقوف فيها على أول خلية فارغة من العمود الأول.. أعتقد أن هذا كل ماتريد، __________________________________________________.rar

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

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

شاهد المرفق التالي: _________________.rar

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

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

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

في هذه الحالة إستبدل الصيغة السابقة بالصيغة التالية: =IF(E15<=15000,E15*10%,IF(E15<=35000,E15*15%,IF(E15>35000,15000*10%+20000*15%+(E15-35000)*20%))) والملف المرفق به تفصيل أكثر وتأكيداً على أن الصيغة المذكورة تعمل بشكل صحيح وكامل، ____________________.rar