ابومؤنس

السلام عليكم ورحمة الله . وانا اسف علي التاخير لم اعلم بوجود الاضافات علي الرد الا اليوم . وياليت لو تكرم الاخ programmer وقدم شرح تفصيلي للموضوع . ولا داعي للاذن اخي الغالي , نحن من ياخذ الاذن منكم , واعتقد اذا كان الشرح في نفس الموضوع يكون افضل او في موضوع مستقل ويكون هناك رابط حتي يتم عرض المشكلة مع الحل والشرح التفصيلي . ويعطيك العافية ويجزيك خيرا , بالتوفيق ,,,

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

السلام عليكم ورحمة الله وبركاتة , هناك بعض برامج الاكسيل التي عند فتحها تقوم بالغاء اشرطة الادوات مثل شريط التنسيق والشريط القياسي وشريط الصيغ واسم الصفحات . وعند اغلاق هذة البرامج وفتح ملف او برنامج اخري لا بد من اعادة هذة الاشرطة الي مكان السابق . هذا الكود يقوم باعادة هذة الاشرطة الي امكانة قبل اغلاق البرنامج او الملفات حتي لا نقوم في كل مرة باعادة هذة الاشراطة كلما فتحنا هذة البرامج . Sub Clos() Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.DisplayFormulaBar = True Application.Quit End Sub ويمكن عمل هذا الكود عن طريق تسجيل ماكرو يقوم باعادة الاشرطة السابقة ثم فتح تحرير ذلك الماكرو واضافة في السطر ماقبل الاخير العبارة التالية : Application.Quit وهي المسؤلة عن اغلاق الاكسيل . بالتوفيق ,,,

وعليكم السلام ورحمة الله وبركاتة , تكرم عيونك اخي ابوعمر , اليك نفس الملف السابق مع اضافة الطريقة الاولي (مربع تحرير وسرد) . وكذلك اضافة رسالة عند ادخال رقم اكبر من عشرة . بالتوفيق ,,, فتح الصفحات.zip

الاخ ابوعمر ,, اليك مثال مرفق لطريقة فتح الصفحات عن طريق مربع تكتب فية رقم الصفحة المطلوبة ثم تضغط علي الزر ليفتح الصفحة , ويجب مراعة التالي : 1- اسماء الصفحات تختلف عن ارقامها . الاسماء عادية (اسماء اشخاص) بينما انت تكتب الرقم الخاص الموجود في الخلية C2 (ارقام) . 2- وضعت عشرة صفحات وعليك اكمال البقية 150 صفحة . كذلك كررت المربع والزر في الصفحات الثلاثة الاولي علي سبيل المثال فقط . 3- لاادخال تعديل او اسماء صفحات وارقام صفحات جديدة اضغط علي زر Alt+ F11 وقم بالتعديل المناسب . بالتوفيق ,,, فتح الصفحات.zip

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

في هذا الرابط توضح لكيفة عمل كود للتنقل بين الصفحات وخصوصا الصفحة السابقة والصفحة التالية والصفحة الاولي والصفحة الاخيرة مباشرا , http://www.officena.net/ib/index.php?showtopic=372 بالتوفيق ,,,

هل هذا الرقم يتغير ام انة ثابت ؟ فاذا كان ثابت وتريدة ان يختلف عن اسم الصفحة فهذا ممكن بمعني يكون اسم الصفحة مكون من حروف وانت تفتح الصفحات بناء علي الرقم الموجود في الخلية السابقة . اما اذا كان متغير اي ان اسم الصفحة يتغير بناء علي التغير في هذا الرقم فبصراحة لا اعرف الطريقة . بالتوفيق ,,,

السلام عليكم ورحمة الله واهلا وسهلا بالاخ ابوعمر . ايش اخبارك بعد اذن الاخ الغالي حسام توجد هنك طريقة اخري . وهي عن طريق مربع قائمة وزر واحد فقط وهي تماما مثل طريقة التنقل داخل هذا المنتدي مربع قائمة موجود بة جميع اسماء الصفحات مهما كان عددها كبير يتم اختيار اسم الصفحة ثم الضغط علي رز (اذهب) او (افتح) ليفتح لك الصفحة المطلوبة . مميزات هذة الطريقة : 1- تاخذ مساحة اقل - بدلا من عرض 150 زر في صفحة كاملة . 2- يمكن بكل سهولة وضعها في كل الصفحات بدلا من وضعها في صفحة واحدة . 3- سهولة في التنقل بين الصفحات , اذا تغنيك عن الذهاب دوما الي الصفحة الرئيسية كلما اردت فتح صفحة اخري .لانها تنقلك من اي صفحة الي اي صفحة اخري دون الذهاب الي الصفحة الرئيسية . 4- في البرمجية يخصص لها كودان كود للتنقل وكود لفتح الصفحات - بينما 150 زر لها 150 كود ويمكن اضافة صفحة جديدة عن طريق اضافة اسم الصفحة الي الكود السابق وتغير عدد الصفحات . بالتوفيق ,,,

وعليكم السلام ورحمة الله وبركاتة , اذهب الي شريط الادوات ومنها اختار (ادوات) ثم اختار (خيارات) تفتح لك مجموعة من الخيارات اختار منها (عام) في السطر الاول تجد (اعدادات) وتجد كذلك الكلمة التالية : (نمط المرجعR1C1) اذا وجدت علامة صح موجودة عند المربع الصغير عند الكلمات السابقة قم بالغائها , واضغط (موافق) . فهي المسؤلة عن تحديد مرجع الخلايا . بالتوفيق .

السلام عليكم ورحمة الله من المعروف لدنيا اخواني انة عندما نريد اضافة معادلة الي الاكسيل يجب ان تسبق هذة المعادلة بعلامة تؤكد انها معادلة وليست نص عادي , ومن ضمن هذة العلامات = او + وبالتالي فعند اضافة علامة + او اضافة = تخبر الاكسيل ان العبارات التالي بعدها هي دالة وليست نصوص عادية . وهذا النظام يؤمن الفرق بين النصوص والمعادلات , افرض مثلا انك تريد كتابة خطاب يبدا بكلمة IF قد يصعب ذلك في الاكسيل لانة في كل مرة تكتب IF سيفسرها الاكسيل علي انها معادلة وليست نص عادي , اذا ما قصدت من طرحي لذلك السؤال هو توضيح مسالة التساوي بين العلامتين = و + وان كل واحدة منها تكفي , وليس شرطا اساسي وضعهما معا ,

يا اخ نديم طويق : ما الحكمة من اضافة + قبل الدالة IF ؟ وهل هناك فرق بين نتيجة الصيغة قبل وبع اضافة + ؟

ياخ مصلح نبغي نشوف رايك حول الكميات (البيع بالجملة والتجزيئة) , وماهي المقترحات حول ذلك . وطبعا كلما كان البرنامج يخدم الكل كان الفائدة عظيم . والمنفعة كبيرة . جزاك الله كل خير انت وبقية المشاركين .

اذا اذن لي الاخ مصلح للعودة في المشاركة في المشروع . من وجهة نظري ان عملية تحديد البيع بالجملة او التجزئة تتم عن تحديد موصفات البرنامج اي الجهة المستفيدة منة . هل سيكون البرنامج مصمم لمستودعات او محل عادي للبيع بالتجزئة ؟ واعتقد ان البرنامج سوف يكون مرن الي درجة تعديل بسيط في الموصفات الخاص بة لجعل يناسب كل من القسمان الجملة والتجزئة . لذلك فعندما يكون البرنامج للمستودعات . فمن المعروف ان اكثر مبيعات المستودعات هي بالجملة وبالتالي ستكون مبيعات دوما بالكرتون . ونفس الامر فان السوبرماركت دوما المبيعات لديهم بالحبة . لذا تحسب المبيعات علي اساس الحبة . وعلي فكرة كلما كان البرنامج يتمتع بالمرونة كلما كان يحقق متطلبات شريحة اكثر من المستفدين . بالتوفيق للجميع .

الدرس الاول - الدالة IFدالة الدوال او ام الدوال . كما سميتها وسبب التسمية انة لا يخلو برنامج مهما كان بسيط من وجود هذة الدالة . حيث تعتبر من اكثر الدوال استخداما ودمجنا مع بقية الدوال الاخري . اسم الدالة : IF وهي تعني (أذا) الشرطية . استخدامتها : الدالة IF من الدوال المنطقية . وهي تستخدم في الغالب لفحص البيانات ومعرفة القيم الصحيحة من غير الصحيحة وهي مرتبطة بتحقيق شرط معين في حالة وقع الشرط يتم تنفيذ التعليمات . وتنفيذ تعليمات اخري في حالة عدم تحقيق ذلك الشرط . وقبل الخوض في الجوانب البرمجية لهذة الدالة رايت ان نتطرق الي مثال لشرح فكرة عمل الدالة IF ووجدت في القاعدة الفقهية الشهيرة خير مثال لذك : ( أذا حضر الماء بطل التيمم) . هنا العبارة الواردة بعد ادة الشرط أذا هي الشرط وهذا يعني انة اذا كان الشرط صحيح وهو ( توفر او وجود الماء) فان هذا يحقق الشرط وهو ( بطلان التيمم ) . اذن فوجود الماء هو شرط لبيان جواز او بطلان التيمم . لانة اذا كان الماء متوفر فان التيمم هنا باطل . وهناك العديد من الامثلة والاستخدامات التي سنوردها ان شاء الله اثناء الشرح لتركيبات الدالة IF . التركيبة العامة : هناك العديد من الصيغ التي تكون عليها الدالة IF نبدئها بالصيغة التالية : IF Condition Then Command End IF في هذة الصيغة يتم اختبار الشرط Condition فاذا كان صحيح يتم تنفيذ الامر او الاوامر Command الذي يلي الكلمة Then واذا كان غير صحيح (لم يحقق الشرط السابق) فان يتم تجاهل الاوامر . مثل بسيط: IF[Student_Age]<25 Then Print "لايوجد كراسي اضافية " End IF كلمه Student_Age تعني عمر الطالب المستجد في هذا المثال تقوم الدالة IF بفحص الشرط Student_Age فاذا كان عمر الطالب المتقدم اقل من ست سنوات فانها تنفذ الامر الذي يلي الكلمة Then وهو اظهار رسالة للمستخدم بان" عمر هذا الطالب اقل من العمر القانوني للالتحاق بالمدرسة " مثال محاسبي: IF[Student_Number]>6Then MsgBox"عمر الطالب المتقدم اصغر من السن القانوني للتسجيل المدرسي" End IF في هذا المثال تقوم الدالة IF بفحص Student_Number فاذا كان اكبرمن 25 فان التعليمات بعد الكلمة Then تحتم اظهار رسالة تنبيهة للمستخدم بان "لا توجد كراسي اضافية " . وكما تلاحظ في هذا المثال انة لا يوجد اوامر بعد الكلمة Then اذا يمكن كتابة حيث انة ليس من الضرور ان تكتب جميع الاوامر في سطر واحد بل مما ان تاخذ سطور وتنتهي بعبارة End IF حيث ان الدالة لا تكون كاملة وصحيح الا اذا حشرت بين العبارة IF والعبارة End IF . الصيغة الثانية : IF Condition Then Commands Else Commands End IF وفي هذة الصيغة يتم تقيم الشرط Condition فاذا كان صحيحا يتم تنفيذ الاوامر التي تلي الكلمة Then والا فانة يتم تنفيذ الاوامر التي تلي الكلمة Else . كلمة "Else" تعني هنا امر اخري , وكان الدالة IF تسالك في حالة عدم مطابقة الشرط الاولي ننفذ الاوامر الاخري . وكانها تعني " وألا" مثال بسيط : " اذا تمت رؤية هلال شوال فغدا هو اول ايام عيد الفطر المبارك وألا فهو تمام الثلاثون من رمضان " في هذا المثال السابق اذا تحقق الشرط وهو رؤية هلال شهر شوال فان غدا هو اول ايام عيد الفطر المبارك وأذا لم يتحقق الشرط من الرؤية فغدا هوتمام الثلاثون من شهر رمضان المبارك , مثال محاسبي: IF [W-Y]+[W-H]+[Test] <60 Then [w-y]+[w-h]+[Tese] Else IF [W-Y]+[W-H]+[Test]+[Reaction End IF حيث تعني (W-Y) درجة اعمال السنة الدراسية / (W-H) درجات الوجبات المنزلية / (Test) درجات الاختبارات / (Reaction) درجة تفاعل الطالب داخل الفصل . في المثال السابق تقوم الدالة IF بمقارنة مجموع درجات كل من اعمال السنة الدراسية زائد الوجبات المنزلية زائد درجات الاختبارات , فاذا كان المجموع اكبر من 60 درجة فانة يتم تحقيق الامر الذي يلي الكلمة Then وهو جمع الدرجات السابقة والا في حالة كون مجموع الدرجات اصغر من 60 درجة يتم اضافة علية درجة مشاركة الطالب الفصلية , الصيغة الثالثة : صيغة IF لاختبار اكثر من مقارنة . وهي وجود دالة IF اخري داخل الدالة الاولي وربما تتكرر اكثر من مرة وذلك لاعطاء المخرجات المناسبة بناء علي المدخلات المحددة لها , أي انة النتيجة تحتمل لا تحتمل امرين اما هذا او ذاك . بل ان لكل مقارنة نتيجة خاصة بة . مثال بسيط : لعل اقرب مثال هو مقارنة درجة الطالب النهائية واعطائه التقدير المناسب لتلك الدرجة . ( اذا كانت الدرجة من 100 حتي 81 ) فان التقدير هو " ممتاز " (اذا كانت الدرجة من 80 حتي 61 ) فان التقدير هو " جيد جدا " (اذا كانت الدرجة من 60 حتي 41 ) فان التقدير هو " جيد " (اذا كانت الدرجة من 40 حتي 21 ) فان التقدير هو " مقبول " (اذا كانت الدرجة من 20 حتي 0 ) فان التقدير هو " ضعيف " مثال محاسبي: سنضع المثال السابق داخل كود باستخدام اكثر من IF داخل IF واحدة . If [Extent] < 100 And [Extent] >= 81 Then Print "A" If [Extent] < 80 And [Extent] >= 61 Then Print "B" If [Extent] < 60 And [Extent] >= 41 Then Print "C" If [Extent] < 40 And [Extent] >= 21 Then Print "D" If [Extent] < 0 And [Extent] >= 0 Then Print "E" End If باعتبار ان كلمة (Extent) تعني الدرجة النهائية للطلااب . ملاحظات عامة : 1- نلاحظ من خلال الامثلة السابقة انة اما ان ينفذ الامر الذي يلي الكلمة Then او الامر الذي يلي الكلمة Else ولا يمكن تنفيذ الامران معا . ففي المثال الاخير فان الطالب لا بد ان يحصل علي تقدير واحد فقط ومن المستحيل ان يجمع تقديران او اكثر مرا واحدة . 2- في حالة عدم تحقيق شروط الدالة IF فان البرنامج ينفذ تلقائيا الاوامر التي تلي End IF و يتجاهل كل اوامر الدالة IF . حيث يمكن في المثال الاخير وضع شرط ينبة المستخدم الي ضرورة ادخال رقم مابين (0-100) وفي حالة تجاوز هذا الشرط فان الكود يظهر رسالة للمستخدم ويتوقف عن العمل دون ان يعطي تقدير معين بسبب عدم ادخال درجة محددة . 3- نجد كذلك في المثال الاخير ان كل IF وضعت في سطر مستقل , ودون استخدام End الدالة IF و بقية الدوال ( عمل الدوال كمجموعة واحدة ) . هناك بعض الدوال التي لا تبرز قوتها الحقيقية كدالة الا من خلال الاندماج مع الدالة IF ومن اكثر الدوال التصاق بدالة IF هما الدالة And وتعني " و" والدالة Or التي تعني " او" , وباذن الله تعالي سنتعرف علي مزيد من التفصيل حول تداخل الدوال والفلسفة القائمة علي اساس عمل دالة داخل اخري في درس مستقل . في المثال الاخير نجد اننا اعتمدنا علي الدالة And وذلك حتي نحصر الدرجة المدخلة بين درجتين محددتين , وكان الشرط الاول يقول اذا كانت الدرجة هي اقل من 100 واكبر من 81 فالتقدير هو ممتاز . هنا لابد من توفر الشرطين معا بالنسبة للدالة And اما في حالة توفر الشرطين دون الاخر تتوقف الدالة عن العمل اما الدالة Or فهي تعني اما ان يتوفر الشرط الاول او الشرط الثاني أي في حالة توفر الشرطين تتوقف الدالة عن العمل , وسوف نتطرق الي شي من التفصيل عن الدلتان في درس مستقل بيهما ونضع لهما امثلة ان شاء الله تعالي . ان الامثلة السابقة ليست الا جزء بسيط جدا عن استخدامات الدالة IF والمنتدي ولله الحمد فية العديد من الامثلة وقد لايخلو برنامج اكسيس او اكسيل من اشتراك هذا الدالة .

وعليكم السلام استاذي ابوهادي ,, نعم كلامك صحيح . صفيف هي نفس كلمة مصفوفة وذلك لاننا في السؤال السابق نقارن بين قيمة واكثر من قيمة في عمود وارجاع النتائج . وهذا مصطلح موجود في في تعليمات الاوفيس , وهو ايضا جاء من كلمة صف وذلك لانك تتعامل مع مجموعة من الصفوف و الاعمدة . ولة ميزات جدا عظيمة حيث عند اضافتة الي مجموعة من الدوال يعمل علي مساحة اكبر من الخلايا . فمثلا في السؤال السابق نجد ان الدالة EXACT عند ادخالها لوحدها تعمل علي مقارنة سلسلتين نصيتين وارجاع TRUE في حالة التشابة التام وارجاع FALSE في حالة الاختلاف التام . ولكن لاننا نريد مقارنة بين قيمة واحدة في خلية وبين اكثر من قيمة في عمود او صف . وسنلاحظ هنا فائدة معادلة الصفيف حيث تختلف النتيجة قبل وبعد اضافة معادلة الصفيف . وهي بذلك تقارنة القيمة الموجودة في هذة الخلية وباقي القيم فاذا وجدتها ضمن القيمة الاخري ارجعت TRUEواذا وجدت انها غير موجودة ارجعت FALSE وهنا لابد من استخدام الدالة OR وكذلك الدالة IF التي تعمل علي كتابة الرقم في حالة ان ارجعت اليها الدالة EXACT النتيجة TRUE ووضع القيمة صفر في حالة ان ارجعت القيمة FALSE, بمعني اخري تركيبة المعادلة تقول (ببلدي ) ان القيمة الموجودة في الخلية تشبة القيمة الاولي في العمود او تشبة القيمة الثانية او تشبة القيمة الثالثة او الرابعة ..... وهاكذا حتي نهاية القيم . اذا الدالة EXACT تقارن القيم و الدالة OR تعمل زيادة الخيارات بين القيم والدالة IF تاخذ النتيجة من الدالتين وتقوم بتنفيذ الشرط ( كتابة القيمة نفسها التي في الخلية ) في حالة كون النتيجة صحيحة TRUE او كتابة صفر (0) في حالة كون النتيجة خاطئة FALSE ,, وبالله التوفيق ,,

وعليكم السلام ورحمة الله . ومعذرا علي التاخير , بالنسة للكود صحيح ولا بد من ظهور الورقة الثانية ولكن لا تستطيع الكتابة فيها حتي تكتب كلمة المرور . ولتغلب علي مشكلو ظهور الورقة الثانية قبل كتابة كلمة المرور . يمكنك ان تضيف في الكود امر يجعلك تنتقل الي جزء غير مهم من الورقة الثانية ربما يكون مجموع من نطاق الخلايا الفارغة مثلا . وبعد كتابة كلمة المرور ينتقل بك الي الجزء المهمة . وبذلك لا يستطيع احد قراء او رايت خلايا مهمة في الورقة الثانية ما لم يكتب كلمة المرور الصحيحة . الامر الجديد هو : Range("K1:Y35").Select هذا اذا افترضنا ان نطاق الخلايا من K1 حتي Y35 هو فارغ . اكتب هذا الامر في السطر الثاني للكود السابق . واضيف الامر التالي Range("A1").Select ايضا باعتبار ان الجزء المهم للورقة الثانية يبدا من الخلايا A1, اكتب هذا الامر قبل كلمة Else في الكود السابق ,, بالنسبة للمشكلة الثانية , وهي ظهور رسالة الاعلام بخطاء . فاعتقد انة يجب عليك تغير كلمةSheet2 بكلمة ورقة2 وكذلك الامر للورقة3 ,, ونحن في انتظار الرد , بالتوفيق .

السلام عليكم ورحمة الله وبركاتة . بعد اذن اخي وحبيبي الاستاذ حسام . بيما ان الارقام مفرزة تصاعديا (وهذا من ضمن شروط الدالة vlookup حتي تكون النتائج صحيحة ) فانة في كل مرة تكتب 100 لان تحصل الا علي الاسم المقابل لاول رقم 100 في العمود B . لان المعادلة لن تقوم بسرد جميع الاسماء التي تقابل الرقم 100 التي تكررت اكثر من مرة في العمود A . الطريقة التي اشار اليها الاستاذ الغالي حسام تفيد في حالة عدم تكرار البيانات اي تكرار نفس القيمة في نفس العمود , وهي الطريقة المتبع في نظام ترقيم الاصناف لعد وجود صنفين او اكثر لهم نفس الرقم . (بينما في السؤال نلاحظ تكرار رقم 100 اكثر من مرة ) مما يجعل الدالة تعيد اول اسم فقط , كان هناك سؤال لنفس الطريقة . ارجو مراجعة هذا الرابط وارجو ان تجدوا فية الفائدة . http://www.officena.net/ib/index.php?showtopic=2612 ونحن في انتظار الرد ,, بالتوفيق .

وعليكم السلام ورحمة الله وبركاتة . انا سوف اقوم بوضع عمود خامس لتسهيل المهمة . اذا افترضنا ان العمود الاول هو A والعمود الثاني هو B ولكن فارغ من الارقام حيث نضعها في العمود الخامس وهو E اي اننا وضعنا ارقام العمود الثاني في العمود E وليس في العمود B والعمود الثالث هو C والعمود الرابع هو D . الان نذهب الي العمود B الفارغ ونضع المعادلة التالية : وهي معادلة صفيف ={IF(OR(EXACT(A1;$E$1:$E$4));A1;0)} والفرق بين المعادلة العادية ومعادلة الصفيف في العلامة { } ولكتابة المعادلة السابقة نتبع الخطوات التالية : 1- ادخال الدوال التالية IF والدالة OR والدالة EXACT كما هي مرتبة في الكود السابق . 2- نحدد نطاق المقارنة في العمود E اي النطاق الموجود فية الارقام (ارقام العمود الثاني) وبعد التحديد نضغط علي الزر F4 لتصبح مرجع نسبي لتسهل علينا عملية النسخ في بقية الخلايا . 3-بعد كتابة المعادلة نضغط علي المفاتيح Ctrl+Shift+Enter لتصبح معادلة صفيف . نقوم بنسخ المعادلة التالية ولصقها في بقية الخلايا فنحصل علي العمود الاول والثاني كما في السؤال السابق مع اظهار صفر في الخلايا التي لا تتشابة في العمودين . في العمود الثالث C نضع المعادلة التالية : ={IF(OR(EXACT(E1;$A$1:$A$4))=FALSE;E1;0)} وفي العمود الرابع D نضع المعادلة التالية : ={IF(OR(EXACT(A1;$E$1:$E$4))=FALSE;A1;0)} ارجو تجربة هذة المعادلات . لاني بصراحة لم اجربها ,. وانا في انتظار النتيجة . بالتوفيق ,, AbuMonis.zip

وعليكم السلام ورحمة الله وبركاتة . لنفرض ان العمود A كان مخصص للاسماء وان العمود B مخصص للمبالغ . ضع الكود التالي في صفحة محرر الفيجول للورقة المراد فرزها تلقائيا وذلك ضمن Woorksheet عند الامر Change . Private Sub Worksheet_Change(ByVal Target As Range) If Range("B" & Target.Row).Value > 0 Then Columns("A:B").Select Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If End Sub مع ملاحظة ان الفزر يعتمد علي المبالغ المسجلة في العمود B وهو يشمل العمودين A و B فقط . غير رقم العمود B الي اي عمود اخري , بالتوفيق ,,,

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

السلام عليكم ورحمة الله ,, توجد طريقة سهلة جدا في الاكسيل وجربتها قبل الرد . اذهب الي الخلية المراد الكتابة فيها الكلمتين . اكتب الكلمة الاولي ثم اضغط Alt و Enter مع بعض ليعطيك سطر جديد في نفس الخلية اكتب الكلمة الثانية . بعد الكتابة اختر (تنسيق الخلايا) ثم اختار منها (محاذة) علي نفس الخلية السابقة . حرك السهم في الركن الاعلي ضمن (الاتجاة) لتجعل الكلمات مائلة او اكتب رقم الدرجة وهو (45) في الدرجة لتصبح الكلمتين مائلة . ممكن ان تضع . بعدها اعمل توسع للعمود والصف لروية الكلمتين . بالتوفيق ...

اخي العزيز hoodahooda هل اعرف من كلماتك السابقة ان الملف هو ماتريد ؟

السلام عليكم ورحمة الله . اليك هذا الرابط ارجو ان تجد فية الفائدة . http://www.officena.net/ib/index.php?showt...c=34&hl=vlookup وهذا مثال اخر لبيانات اصناف . http://www.officena.net/ib/index.php?showtopic=2612 بالتوفيق .

السلام علكم ورحمة الله ,, اولا : اعتذر من الاخ السائل لتاخر في الرد . ثانيا : الموضوع شيق وكان الرد علية يحتاج الي التحايل علي الدول وخصوصا الدالة Lookup وتغير موقع المنطقة التي تقوم فيها بعملية البحث . وهذا مثال لتقديم المشكلة : اذا افترضنا اننا لدنيا جدول لمبيعات اصناف معينة . واردنا الحصول علي اعلي رقم للمبيعات مع اسم الصنف وكذلك الحصول علي ادني رقم للمبيعات مع اسم الصنف . هنا نقوم بدمج مجموعة من الدوال للحصول علي النتائج السابق . ولكن لنفرض ان اعلي رقم للمبيعات تكرر اكثر من مرة . واردنا الحصول علي اسماء هذة الاصناف التي سجلت اكثر مبيعات . في الحل السابق سنحصل فقط علي اسم صنف واحد . وكذلك الامر بالنسبة لاقل المبيعات . الملف المرفق يوحظ حل متواضع لهذة المشكلة . واذا تم تسجيل اعلي او ادني رقم مرة واحدة فسنحصل علي اسم صنف واحد فقط . هنا اود تسجيل ملاحظ هامة جدا لمن يريد الاستفادة من هذة الدالة وهي المحافظة علي الترتيب التصاعدي للبيانات حتي تكون النتائج صحيحة . لان هذا من ضمن شروط عمل الدالة Lookup . بالتوفيق .. Roport.zip