بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، يمكنك تحويل المبالغ إلى قروش ثم قسمة المجموع على 100 ... أخوك بن علية

Sub Com1() For rr = 3 To Sheets(MySheets).Range("A500").End(xlUp).Row Sheets(MySheets).Cells(rr, "x").Value = 0 If Sheets(MySheets).Cells(rr, "b") = 1 Then For cc = 3 To 23 Sheets(MySheets).Cells(rr, "x").Value = Sheets(MySheets).Cells(rr, "x") _ + Sheets(MySheets).Cells(rr, cc) Next cc End If Next rr End Sub وتطبيقه في الملف المرفق... أخوك بن علية Book1_1.rar

السلام عليكم ورحمة الله أخي الكريم وكحل آخر يمكن استعمال الدالتين INDEX و MATCH باستعمال المعادلة التالية: =INDEX(D:D;MATCH(H2;B:B;C:C)) (ولكن أبسط الحلول ما قدمه أخي الكريم طارق جزاه الله عنا ألف خير) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عبد الصمد إن العنوان معبر جدا عن المطلوب... وكحل ثان استعملت الدالة SUMPRODUCT في الملف المرفق... أخوك بن علية Book1_1.rar

السلام عليكم ورحمة الله أخي الكريم، قلت في مشاركتي الأولى إني استعملت خواص المتواليات الهندسية Geometric Progressions والقانون =50*F8*((1.02)^G8-1) الذي تسأل عنه يمثل مجموع حدود متتابعة لمتوالية هندسية والقانون بصفة عامة هو كما يلي: المجموع = الحد الأول × [الأساس ^ عدد الحدود - 1]/(الأساس - 1) وفي المثال الحد الأول هو قيمة الخلية F8 (أي 4000) والأساس هو 1.02 وعدد الحدود هو قيمة الخلية G8 (أي 24) والقانون بعد التعويض يكون: 4000 × [1.02^24 - 1]/(1.02 - 1) ولان : 1.02 - 1 = 0.02 فإن القانون يكتب بالشكل: 4000×[1.02^24 - 1]/0.02 أي : 50×4000×(1.02^24 - 1) وبالتالي العدد 50 هو في الأصل مقلوب نسبة الزيادة أي مقلوب 2 % الذي هو : 100/2 أي 50... والله أعلم

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

السلام عليكم ورحمة الله إخواني الكرام عدنا إليكم بعد أيام انقطع فيها النت لأسباب خارجة عن نطاقنا... وأشارك في هذا الموضوع بهذه المحاولة في الملف المرفق وإن شاء الله يكون هذا المطلوب... واستعملت في ذلك خواص المتواليات (المتتاليات) الهندسية... أخوكم بن علية sheet.rar

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق محاولة مني ولكن النتائج التي وجدتها تختلف عن نتائجك... أخوك بن علية split.rar

السلام عليكم ورحمة الله أخي الكريم AMIR قمت بتحضير ملف تنفيذي فيه تطبيق على الملف المرفق السابق، بحيث قمت بتغيير عدد الخلايا المدمجمة في العمود D للاسم أو إضافة خلايا للدمج والعملية تسير بطريقة عادية والكود يعمل جيدا.... بالنسبة للأسماء يمكنك إضافة ما تريد حتى وإن كان الاسم في خلية واحدة (ليست من نطاق من خلايا مدمجمة)... ولست أعرف سبب عدم عمل الكود معك واعتقد أن آمان الماكرو عندك مرتفع أو طريقة الحساب في خصائص الإكسيل تلقائية... والملف التنفيذي تجده في الرابط التالي: hben_1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق حل أول للمسألة... وقد استعملت فيه خليتين إضافيتين في الأولى (K1) جلبت عنوان الخلية في العمود D التي تحوي الاسم المكتوب في الخلية J1 (باستعمال الدالة MATCH) وفي الخلية الثانية (L1) جلبت عدد الخلايا المدمجة في العمود D لهذا الاسم (وهنا استعملت كودا بسيطا جدا)... وفي الخلية J1 (خلية المجموع المطلوب) استعملت دالة SUM لنطاق متغير من العمود E حسب الخليتين K1 و L1 (واستعملت لذلك الدالتين Indirect و Address)... المهم تجد الكل في الملف المرفق... أخوك بن علية New Microsoft Excel Worksheet.rar

السلام عليكم ورحمة الله أخي الكريم، وكما ذكر أخي العزيز يحيى نقوم بذلك باستعمال "التنسيق الشرطي" وفي الملف المرفق تجد تطبيقا للتنسيق الشرطي، وقد استعملت تنسيقين مختلفين لون أول عند ظهور الاسم المكرر لأول مرة ولون ثان عند ظهور الاسم للمرة الثانية أو غيرها... أخوك بن علية تنسيق للأسماء المكررة.rar

السلام عليكم ورحمة الله أخي الكريم، باستعمال التنسيقات الشرطية (دائما) إليك الحل التالي الذي فيه تلوين للقيمة الأصغر في كل سطر إذا كانت هذه القيم موجودة (ليست فارغة أو لا تساوي الصفر) وكانت قيم الأسعار لكل المؤسسات موجودة... ومعناه أنه لا يحدث تلوين لقيم السطر إذا كانت فارغة أو تساوي 0 أو كان أحد الأسعار غير مكتوب (فارغ أو يساوي 0)... أخوك بن علية مقارنه اسعار.rar

السلام عليكم ورحمة الله أخي الكريم توجد دالة بسيطة تقوم بهذه العملية وهي الدالة AVERAGE وفي مثالك يمكنك كتابة المعادلة التالية: =AVERAGE(D7:F7) وبالفرنسية =MOYENNE(D7:F7) لحساب معدل الخلايا الثلاثة F7، E7، D7 (والدالة لا تعمل -كما تريد(حساب المعدل دون الفراغات)- إذا كانت في هذه الخلايا معادلات)... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، إليك الملف المرفق أتمنى أن يفي بالغرض... NT.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تقول إن العملية لم تفلح معك، أقدم لك الملف التنفيذي في المرفقات وفيه استعمال لملف قالب كنت قد حضرته سابقا للعمل به في كتابة رسائل الماجستير والدكتوراه للكثير من إخواني، سميت هذا القالب hben.dot وفيه سجلت ماكرو خاص بالهوامش السفلية لتخصيصها وماكرو آخر لبعض التبديلات الخاصة (مثلا الفراغات نكتبها قبل الفاصلة أو قبل النقطة أو غيرها) وقمت أيضا بتخصيص شريط الأدوات وضعت فيه اختصارات لما أحتاج إليه.... وفي الملف التنفيذي فتحت صفحة عادية أي باستعمال Normal.dot ليظهر الفرق بينها وبين صفحة جديدة تم فتحها باستعمال النموذج أو القالب hben.dot... الكل تجده في الملف المرفق التالي: 111.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، كفكرة أولى (ربما تجد حلا آخر من عضو من أعضاء المنتدى المتمكنين) يمكن استعمال خاصية "دمج المراسلات" (وأعتقد أنه يسمى Mail Merge بالإنجليزية) باستعمال الحقل نفسه للاسم في الورقتين (مثلا)... وفي هذه الحالة ليس لك أن تكتب الاسم بل يكفي اختيار رقم التسجيل Record لهذا الاسم... وأبعث لك هذا الملف من نوع PDF وجدته في النت لا أعرف صاحبه (وهو مكتوب في الملف) ولم أطلع عليه، وفيه شرح لطريقة استعمال خاصية دمج المراسلات في وورد 2003 (دعاء لصاحبه في ظهر الغيب)... وإن لم يكن (نافعا) أحاول أن أحضر لك شرحا للعملية... دمج المراسلات.rar وفقك الله لكل خير أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، (إذا كنت قد فهمت المطلوب) يمكنك استعمال خاصية "تكرار الأسطر بالأعلى" من خاصية "إعدادات الصفحة" ولا حاجة لك بنسخ ولصق هذه الأسطر... كما في الملف المرفق التالي: 2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إليك ما طلبت... وفقك الله لكل خير... أخوك بن علية ترقيم المظلل.rar

السلام عليكم ورحمة الله أخي الكريم بهذه الشروط لا تدع لنا خيارات، فما عليك إذا إلا العمل بالكود الذي وضعه أخي الكريم عادل aah_aah2008 أو يمكنك تنصيب الدوال الإضافية المعروفة بالاسم Morefunc وتجد فيها دالة باسم XLM.GET.CELL بالمعادلة التالية (في الخلية التي تريد وضع 1 فيها أو عدمه): =IF(XLM.GET.CELL(63;A1)=0;"";1) حيث A1 هي الخلية التي يتم تظليلها (بأي لون كان) ويجب أيضا الضغط على Shift+F9 لتأكيد عمل الدالة أو يمكنك وضع الكود التالي في كود الورقة المعنية: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Calculate End Sub وليس لي حيلة أخرى... اقتراح: لما لا تقوم بالعملية العكسية تضع يدويا الرقم 1 في السطر الذي تريد تظليل الاسم فيه وباستعمال التنسيق الشرطي يتم تظليل هذا الاسم (أو حتى كل السطر)؟؟؟ أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد المطلوب (وإضافة أخرى -تنسيق شرطي لتلوين الكلمات الثلاثة بألوان مختلفة-)... أخوك بن علية officena.rar

السلام عليكم ورحمة الله أخي الكريم، باستعمال الدالة (الميزة) GET.CELL قمت بتحضير الملف المرفق الذي تجد فيه بعض الشرح.... أخوك بن علية ترقيم امظلل.rar

السلام عليكم ورحمة الله أخي الكريم، اعتديت على عمل أخي الكريم كيماس (وأعتذر منه) لأقوم بإضافة الشرط على العمود E في ملفه (وقد تركته باسمه)... إن شاء الله يكون هذا المطلوب... أخوك بن علية ofisna55-kemas.rar

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

السلام عليكم ورحمة الله أخي الكريم، محاولة مع الملف المرفق التالي (وقد أضفت إليه إضافات كثيرة أعمدة ومعادلات...) وما زلت أفكر في حل أبسط وأسهل من هذا إذا لم يقم أحد الإخوة الكرام بوضع هذا الحل... أخوك بن علية تعدد الاسعار.rar