علي السحيب

لقد أكتشفت المشكلة التي لديك بالتحديد .. إنها تكمن في تنسيق تاريخ النظام الذي تعمل عليه .. فأعتقد أن التنسيق الحالي الذي لديك هو dd-MMM-yy .. أي اليوم-الشهر-السنة .. وهذا يختلف عن التنسيق الإفتراضي للتاريخ في نظام ويندوز الذي هو M/d/yyyy .. وهذا التنسيق هو الذي صمم برنامج حساب العمر على ضوءه .. لذلك تظهر عندك بعض الإختلافات. ولتعديل تنسيق تاريخ النظام قم بالذهاب إلى Start أو إبدأ .. ثم أختر Control Pannel أو لوحة التحكم .. ثم أختر Regional And Language Options أو الخيارات الإقليمية واللغوية .. ومن مربع الحوار الذي سوف يخرج لك أختر Customize أو تخصيص .. ثم أختر Date أو تاريخ .. ومن القائمة Sort Date Format أو فرز تنسيقات الوقت قم بإختيار M/d/yyyy بدلاً من dd-MMM-yy .. ثم OK أو موافق .. بعد ذلك قم بتجربة برنامج حساب العمر من جديد.

شاهد المرفق، والرجاء التأكد من تاريخ الجهاز الذي تعمل عليه، __________.rar

يتم تعديل الكود إلى التالي: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Ali If Target.Column <> 2 Or Target.Row < 3 Or Target.Row > 15 Or Cells(Target.Row, Target.Column - 1) = "لا" Or Cells(Target.Row, Target.Column - 1) = "" Then Exit Sub If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 15 And Cells(Target.Row, Target.Column - 1) = "نعم" Then Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Cells(Target.Row, Target.Column) Exit Sub End If Ali: If Err = 1004 Then Me.Activate Else Resume End If End Sub file1.rar

يمكنك وضع قاعدة البيانات في صفحة مستقلة وإخفاؤها عن طريق القائمة تنسيق ثم ورقة عمل ثم إخفاء، ووضع صفحة خاصة بالإستعلام .. وبهذا لن تظهر لديك سوى البيانات التي تود طباعتها. راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=8460 الدالة VLOOKUP تختلف بعض الشيء عن الدالة LOOKUP VLOOKUP تقوم بالبحث عن البيانات داخل جدول واحد فقط .. من اليمن إلى اليسار إذا كانت ورقة العمل تبدأ من اليمن .. ومن اليسار إلى اليمين إذا كانت ورقة العمل تبدأ من اليسار. أما LOOKUP فيمكن إستخدامها للبحث عن بيانات داخل جدولين مختلفين ومنعزلين وفي صفحتين مختلفتين أيضاً .. معتمدين في ذلك على قيمة البحث. والملف المرفق هو نفسه المرفق في مشاركتي الأولى في هذا الموضوع .. وبطرق إضافية للحصول على نتائج الإستعلام عن طريق إستخدام الدالة VLOOKUP. ____________.rar

الكود التالي يعمل على كتابة عبارة معينة في الخلية C1 عند تغير قيمة الخلية A1 .. ثم يقوم بزيادة أو إنقاص عرض العمود A والعمود C .. لكي يتم إحتواء البيانات الجديدة التي تم إدخالها في الخلية A1 و C1. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then [C1] = "تم تغيير قيمة الخلية A1 إلى " & [A1] Columns("A:C").EntireColumn.AutoFit End Sub شاهد المرفق، AutoFit.rar

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

شاهد المرفق، يتم إدراج تاريخ هذا اليوم في الخلية A2 بمجرد فتح الملف، _____________________________.rar

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

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

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

أستخدم التنسيق التالي: yyyy/mm/dd :التاريخ هو

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

أعتقد أن طلبك موجود في الملف المرفق أخي الكريم، ELMOUNIR.rar

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

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

U R Most Welcome

تفضل بطلبك أخي الكريم

المشلكة لديك أنك حددت ورقة العمل main .. كصفحة رئيسية ليتم الرجوع إليها .. ولكن لايوجد لديك في الملف الذي أرفقته أي ورقة بهذا الإسم .. لذا قمت بتغيير الكلمة main إلى ورقة2 (إسم الصفحة الرئيسية التي لديك) .. وانتهت المشلكة. Book61.rar

الكود التالي ينفذ ما طلبت: Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range Dim Cell As Range Set MyRange = [D5:E11] For Each Cell In MyRange If Cell = "" Then Cell = 0 Next Cell End Sub __________________________________________.rar

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

علامة $ .. أو كما تمسى Dollar Sign .. تعمل على تجميد أو تثبيت خلية معينة أو صف معين أو عمود معين .. ومنعها من التغير التلقائي عند نسخ الصيغة من مكانها الأساسي إلى مكان آخر. كما يلي: 1- إذا تم وضع تلك العلامة قبل إسم العمود وقبل رقم الصف ،، كما في الصيغة التالية: =$A$2+B2 فإنها تعمل على تثبيت الخلية A2 من التغير عند نسخ الصيغة إلى مكان آخر .. بعبارة أخرى لو أن الصيغة السابقة موضوعة في الخلية C2 وتم نسخها إلى الخلية C3 فإنها سوف تصبح هكذا: =$A$2+B3 أي أن الخلية A2 لم تتغير بعد نسخ الصيغة وتصبح A3 كما هو الحال بالنسبة للخلية B2 والتي أصبحت B3 .. والفضل هنا يرجع لعلامة $. 2- إذا تم وضع تلك العلامة قبل إسم العمود فقط ،، كما في الصيغة التالية: =$A2+B2 فإنها تعمل على تثبيت العمود A من التغير عند نسخ الصيغة إلى عمود آخر في نفس الصف الموجودة فيه الصيغة الأساسية .. وفي هذه الحالة يتضح الفرق جلياً عند نسخ الصيغة بشكل أفقي وليس عمودي كما هو المعتاد. 3- إذا تم وضع تلك العلامة قبل رقم الصف فقط ،، كما في الصيغة التالية: =A$2+B2 فإنها تعمل على تثبيت الصف 2 من التغير عند نسخ الصيغة إلى صف آخر في نفس العمود الموجودة فيه الصيغة الأساسية.. وفي هذه الحالة يتضح الفرق جلياً عند نسخ الصيغة بشكل أفقي وليس عمودي كما هو المعتاد. ملاحظة:يمكن التنقل بين تثبيت الخلية بأكملها وتثبيت إسم العمود فقط أو رقم الصف فقط ،، عبر الوقوف في شريط الصيغ على إسم الخلية المعنية ومن ثم الضغط على F4. أتمنى أن يكون الشرح واضحاً .. والملف المرفق به تفصيل أوسع وأمثلة أكثر، Dollar_Sign_Explanation.rar

أستطعت الوصول للمطلوب من خلال الصيغة التالية: =IF(B3="","",IF(AND(B3>0,B3<501),850,IF(MOD(B3,500)=1,C2+200,C2))) أو =IF(INDIRECT(ADDRESS(ROW(),COLUMN()-2,4))="","",IF(AND(INDIRECT(ADDRESS(ROW(),COLUMN()-2,4))>0,INDIRECT(ADDRESS(ROW(),COLUMN()-2,4))<501),850,IF(MOD(INDIRECT(ADDRESS(ROW(),COLUMN()-2,4)),500)=1,INDIRECT(ADDRESS(ROW()-1,COLUMN(),4))+200,INDIRECT(ADDRESS(ROW()-1,COLUMN(),4))))) والملف المرفق يحتوي على مثال تفصيلي لجميع ما تم الإشارة إليه في السؤال، Auto_Increment.rar

لا أدري عن ماذا تود الإستفسار بالضبط .. أعتقد أنك تقصد هذه الإشارة ( ^ ) .. أليس كذلك؟ فإذا كنت تقصدها فإنها تسمى في الرياضيات بالأس .. بعبارة أخرى .. أنه يتم ضرب العدد الأول الذي يسبق إشارة الأس في نفسه عدد مرات العدد الذي يلحق إشارة الأس .. كما في المثال التالي: فبدلاً من أن تضع الصيغة التالية: =3*3*3*3*3*3*3*3*3 فتخرج لك هذه النتيجة 19683 تستطيع أن تستخدم إشارة الأس ^ لإختصار الصيغة الرياضية .. كما في الصيغة التالية: =3^9 فتخرج لك نفس النتيجة 19683 وقد تم تضمين برنامج مايكروسوفت إكسل بدالة خاصة لهذا الغرض .. (الرفع للقوة) .. وهي الدالة POWER .. كما في الصيغة التالية: =POWER(3,9) وبإسخدام الصيغة السابقة ستخرج لك نفس النتيجة 19683 أتمنى أن يكون المثال واضحاً،

في هذه الحالة نستخدم الدالة INDIRECT .. وبمساعدة الداوال ADDRESS و ROW و MATCH .. وتصبح الصيغة كالتالي: =INDIRECT(ADDRESS(ROW()-6,MATCH($C$8,$C$5:$I$5,0)+2)) أو بإستخدام الدالة OFFSET وبمساعدة الدوال ROW و MATCH .. وتصبح الصيغة كالتالي: =OFFSET($B$2,ROW()-8,MATCH($C$8,$C$5:$I$5,0)) شاهد المرفق، ____________.rar

تم إرجاع نتائج غير صحيحة لديك .. لأن من شروط إكتمال الصيغة وضمان الحصول على نتائج صحيحة عند إستخدام الدالة LOOKUP أو الدالة VLOOKUP .. هو أن يكون العمود الأول المستخدم في الصيغة مفروزاً فرزاً تصاعدياً .. ولأن هذا الشرط لم يتحقق في العمود الذي لديك تم إرجاع نتائج خاطئة. لذا الحل يكمن في التالي: 1- فرز العمود E والمستخدم في الصيغة الأولى في الملف الذي أرفقته فرزاً تصاعدياً .. وهذا سوف يؤدي إلى تغير ترتيب الجدول وتداخل البيانات مع بعضها البعض .. وهذا الحل غير عملي مع نوع الجدول الذي لديك. 2- اللجوء إلى إستخدام دالة أو دوال أخرى بدل الدالة LOOKUP .. وهذا ما قمت أنا بعمله .. فلقد لجأت إلى إستخدام الدالة OFFSET بدلاً من LOOKUP .. وبمساعدة الدالة MATCH للحصول على رقم العمود الذي يحتوي على النتيجة المطلوبة .. وأيضاً بمساعدة الدوال IF و ISNA لإخفاء الخطأ N/A# عندما تكون الخلية المطلوب إحضار نتائجها فارغة .. فأصبح لدينا الصيغة التالية: =IF(ISNA(MATCH(A4,Feuil1!$E$9:Feuil1!$E$67,0)),"",OFFSET(Feuil1!$C$8,MATCH(A4,Feuil1!$E$9:Feuil1!$E$67,0),0)) أتمنى أن يكون الشرح واضحاً، OFFSET_Function.rar