omar elhosseini

الاخ mojahedxp تحياتى لك اخى العزيز انت احد نجوم المنتدى خلقا وعلما فكل منا يجود بما يعلم وكلنا نتعلم من بعضنا البعض اخى انه عربى صرف ولكن ربما عندما ادرجت صيغة التخلص من الخطأ (ISERROR) تسببت فى طول المعادلة بعض الشئ وقد وضعت نفس الملف بدون صيغة التخلص من الخطأ (ISERROR) ليسهل التعامل معه فى عملية الدمج مع ملف الكنترول الأصلى كما اشار الاخ عادل جلال فأنت اقدر منى على ذلك فأنت صاحب التصميم الاصلى وانا متأكد من انك تستطيع . ولا يوجد اخى mojahedxp فى الاكسيل ما هو للعرض فقط ومرفق ملف به بعض التوضيحات ريما تساعد بعض الشئ فى عملية الدمج . وانا ايضا فى الخدمة اذا احببت المرفقات 1 - الملف بدون صيغة التخلص من الخطأ (ISERROR) 2 - ملف لتوضيح المعادلات المستخدمة اسماء النطاقات ومراجعها OM.rar

الاخ عادل جلال تحياتى شاهد المرفق ( ملحوظة : حاول مسح الاعمدة المحتوية على الصيغ واخبرنى رأيك ) 21.rar

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

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

الاخ wasee تحياتى لك لتعمل دالة (LOOKUP) بشكل جيد لتعطى نتائج صحيحة يجب ترتيب ( معامل البحث ) اى العمود المبحوث فيه اى النطاق او المدى (Rng_Name) وغير ذلك تعطى الدالة نتائج غير صحيح او بتعبير ادق تعطى نتائج تقريبية . تحياتى

الاخ nse شاهد المرفق لقد لاحظت ان جميع خلايا الشهور فى الورقتين عندما تحتوى على القيمة صفر تعطى شرطة او علامة السالب حسب التنسيق المخصص لها فهلا انت تقصد ذلك ام يستوجب منك التصحيح تحياتى _______3.rar

شكرا لك اخى nasersaeed اخى أبوعبدالله يسعدنى ذلك وخصوصا انه موضوع هام جدا لمن اراد اجادة التعامل مع الاكسيل Offset استخدام دالة ( Offset ) لتصنع مدى او نطاق ديناميكى هي دالة حيوية لها كثير من الاستخدامات دالة (Offset) من الدوال الهامة جدا التى تتعامل مع مراجع الخلية وهى من الدوال التى تزيد امكانيات الدوال الاخرى التى تقترن بها ودالة (Offset) تعيد قيمة من اي خلية يشار اليها بعدد من الصفوف والاعمدة التى تبتعد عنها . وصيغة الدالة هى : =OFFSET(reference,rows,cols,height,width) - العامل الاول : الخلية المرجع او الخلية الاساس او الام 2 - العامل الثانى : عدد الصفوف 3 - العامل الثالث : عدد الاعمدة 4 - العامل الرابع : الارتفاع محدد بعدد من الصفوف 5- العامل الخامس : العرض محدد بعدد من الاعمدة وقد تم استخدام دالة () فى المثال الذى اشرت اليه اخى لعمل مدى متحرك او ديناميكى ولنعمل معا مثال بسيط : نحن نريد إنشاء مدى لجدوال من البيانات يحتوى على 10 صف و 5 أعمدة الوضع العادى لهذا الاجراء هو ان نقوم بتعليم هذا المدى بدأ من الخلية (A1) الى الخلية (E10) من قائمة (ادراج / اسم / تعريف) ونكتب اسم هذا المدى وليكن ( Rng) سنجد ان الصيغة الموجود اثناء انشاء الجدول فى الصندوق الحوارى (تعريف اسم) والتى تشير الى احداثيات المدى ( Rng) هى : A1:E10 وهى عبارة عن 10 صف و 5 أعمدة وتظل هكذا دائما هذا المدى دائما ثابت كما نعرف سواء احتوى الجدوال على بيانات او لم يحتوى على بيانات هنا تأتى فائدة انشاء المدى الديناميكى الذى تزاد عدد صفوفة او تنكمش تبعا لأحتواء المدى على بيانات وخاصة فى العمود الاول او حسب اى عمود تريدة ليكون هو الحاكم بأمر المدى حسب احتوائة على بيانات . سنقوم معا بإنشاء نفس المدى ولكن بأسم ( MyRange ) وبنفس الابعاد التى اشرنا اليها وهى عبارة عن 10 صف و 5 أعمدة . ولكن هذه المرة سيكون كمدى دينامكى يتمدد وينكمش حسب احتواء العمود الاول (A) على بيانات اى اذا كانت الخلايا من (1A) الى (3A) بها بيانات كان المدى عبارة عن 3 صف و 5 أعمدة . اما اذا كانت الخلايا من (1A) الى (7A) بها بيانات كان المدى عبارة عن 7 صف و 5 أعمدة . شئ جميل جدا طبعا لمن يتعامل مع الاكواد وخاصتا من يعمل مع اسماء النطاقات بدل من الاشارة الى المدى بالخلايا المرجعية له 0 اخى قم فتح ملف جديد فارغ لنعمل هذا المثال : قم بتسمية الورقة الاولى Test1 فى الورقة الاولى قم بتحدد المدى (A1:E10) وقم بتلوين خلاياه باللون الاخضر الفاتح ليكون فقط واضح لنا . قف فى اى خلية واضغط مفتاحى (كنترول + اف3) لفتح صندوق الحوار (تعريف اسم) فى خانة (الاسماء فى المصنف) اكتب اسم المدى او النطاق فى هذا المثال وليكن (MyRange) وفى خانة (يشير الى) اكتب الصيغة التالية : سنقوم بشرحا بعد إنشاء المدى والتعرف عليه =OFFSET(Test1!$A$1;0;0;COUNTA(Test1!$A$1:$A$10);5) ثم اضغط موافق وقم بحفظ الملف املئ الخلايا الخضراء بأى بيانات اضغط مفتاح (اذهب الى) اى مفتاح (اف5) و اكتب (MyRange) طبعا بدون الاقواس سنجد ان المنطقة الخضراء تم تعليمها بالكامل (A1:E10) الان قم بمسح بيانات الصف العاشر والتاسع اضغط مفتاح مفتاح (اف5) و اكتب (MyRange) سنجد هنا ان المنطقة المعلمة عبارة عن ثمانية صفوف من الجدول والان امسح محتويات الخلية (8A) اضغط مفتاح مفتاح (اف5) و اكتب (MyRange) سنجد هنا ان المنطقة المعلمة عبارة عن سبعة صفوف من الجدول لماذا اخى سنفهم ذلك من شرج صيغة المدى : =OFFSET(Test1!$A$1;0;0;COUNTA(Test1!$A$1:$A$10);5) لاحظ ان Test1! هذا هو اسم اورقة الاولى ملحق به علامة التعجب ليشر الى اسم الورقة (هذه طريقة الاشارة الى اسماء الاوراق فى صيغ المعادلات) 1 - العامل الاول : Test1!$A$1 وهو يشير الى الخلية (1A) فى الورقة ( Test1 ) اى الخلية الاساسية او نقطة بداية المدى او خلية الارتكاز او الخلية الام 2 - العامل الثانى : صفر 3 - العامل الثالث : صفر العامل الثانى والثالث صفر لأننا لن نبتعد عن الخلية الام بأى عدد من الخلايا لا رأسيا او افقيا 4 - العامل الرابع : COUNTA(Test1!$A$1:$A$10) هذا العامل هو قلب المدى المتحرك او الديناميكى او المفصلى فهو يقوم بعد الخلايا فى العمود الاول من (A1) الى (A10) . فعندما قمنا بمسح بيانات الصف الصف العاشر والتاسع كان ناتج هذا العامل هو 8 أى 8 صفوف وهو العامل الديناميكى فى الصيغة . وايضا عندما قمنا بمسح محتويات الخلية (A8) كان ناتج هذا العامل هو 7 أى 7 صفوف وهنا بيت القصيد . لان ارتفاع الجدول او المدى (MyRange) يتحدد حسب احتواء المدى (A1: A10) على بيانات . 5- العامل الخامس : 5 وهنا نقوم بتحديد عرض الجدول او المدى (MyRange) بعدد من الاعمدة وهو 5 أعمدة وهو ثابت دائما . ولكن يمكن جعله ديناميكى ايضا لو اردنا ذلك بنفس الطريقة المتبعة فى العامل الرابع ليكون جدول متحرك او ديناميكى كامل الاحساس بالنسبة لعدد صفوف واعمدة الجدول ولكن فى مثالنا هذا هو يتحسس فقط عدد الصفوف بالتحكم فى العامل الرابع ولو اردنا ان يكون كامل الاحساس يجب ان يكون العامل الخامس مفصلى ايضا كالرابع مع تغير عناوين الخلايا الى العناوين المناظرة . لعلى وعسى ان اكون قد وفقت فى شرح المدى الديناميكى وقد تعمدت الاسهاب فى الشرح بطريقة مبسطة لما له من اهمية فى عالم الاكواد وتسهيل العمل المراد انجازة بطريقة فعالة وحية تجاة التغيرات فى حجم المدى المحتوى على بيانات . مع تحيات ابوتامر

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

الاخ nse تحياتى شاهد المرفق لعل وعسى يكون هو المطلوب _______2.rar

الاخ triste تحياتى لك اخى العزيز محرك الصيغة يكمن فى الجزء الاول من الشرط =IF(COUNTIF($A$2:A2;A2)=1;SUMIF($A$2:$A$9;A2;$C$2:$C$9);"") وهو (COUNTIF) يتم الجمع بأستخدام (SUMIF) كالمعتاد ولكننا نريد ان يتم الجمع فى اول ظهور الحدث (محمد) مثلا وهنا يأتى دور الشرط الذى يسمح بالجمع فقط اذا كان محمد هو اول اسم ل (محمد) وليس الثانى او لثالث بالنسبة للعمود (D) ففى كل خلية سطر منه تم تثبيت بداية عد الحدث (محمد) ب ($A$2) وانتهى بهذا السطر (A2) فيكون عدد مرات تكرار الحدث 1 وهنا يتحقق الشرط ويتم الجمع عن طريق (SUMIF) لكل تكرارت الحدث (محمد) اما فى السطر الخامس المحتوى على الحدث الثانى من (محمد) لننظر الى الشرط الموجود فية سنجد الاتى COUNTIF($A$2:A5;A5) سنجد انه يقوم بعد الحدث (محمد) من البداية ($A$2) الى هذا السطر (A5) فيكون ناتج (COUNTIF) هو 2 فلا تقوم دالة (IF) بنتفيذ الجمع عن طريق (SUMIF) اتمنى ان اكون استطعت التوضيح تحياتى

الاخ atob الاخ اكرم تحياتى لكم الاخ atob شاهد المرفق __________.rar

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

الاخ بسولي تحياتى شاهد المرفق ________________________.rar

الاخ Shafik77 تحياتى شاهد اخى المرفق 15_12_2006_2.rar

الاخ triste تحياتى شاهد المرفق لعله يجيب على ما تطلب _______.rar

الاخ nse تحياتى لك اخى يمكنك عمل ذلك بدون اللجوء الى VBA ببساطة شديدة فيمكن استخدام المدى المتحرك بمعنى المدى الديناميكى (Dynamic Range) فى عمل جدول ذو مدى ديناميكى (Dynamic table) ولعمل Dynamic Range يجب اجادة استخدام دالة (OFFSET) مع احد دوال العد مثل (COUNTA) الجدول الديناميكى يمكن عملة بطريقتين حسب احتياجك النوع الاول هو الجدول ذو المدى المتحرك بعدد الصفوف حسب احتوائها للبيانات وهو ما فهمت من طلبك شاهد المرفق ستجد فى المرفق ورقتين الورقة الاولى بها مثال لما تطلب اللون الاخضر هو مدى الجدول ويتم انشاء المدى (MyRange1) من قائمة ( ادراج / اسم / تعريف ) وكتابة اسم المدى فى خانة (الاسماء فى المصنف) ومعادلة المدى فى ( يشير الى ) والمعادلة المستخدمة هى : =OFFSET(Test1!$B$8;0;0;COUNTA(Test1!$B$8:$B$141);13) والخلية الصفراء تقوم بعملية جمع الجدول وصيغتها : =SUM(MyRange1) والورقة الثانية : نفس الورقة الاولى مع الاختلاف فى نوع الجدول وهو جدول ديناميكى بعدد الصفوف والاعمدة ارجو ان اكون اسطعت التوضيح تحياتى Dynamic_table.rar

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

الاخ معبد تحياتى لك السؤال الثانى غير واضح فأرجو التوضيح حتى يستطيع الاخوة الرد عليك بخصوصة تحياتى

الاخ kh_mh_5 تحياتى اخى اشكرك على المتابعة ارجو التجربة على جهاز اخر لان الرسالة لا تعنى ان هناك مشكلة بالبرنامج ولكن الموارد المتاحة ( قد تكون الذاكرة او ضبط الاكسيل او شئ اخر )

شاهد المرفق ارجو تأكيد صحة عمله ________________________________2.rar

الاخ gamalin تحياتى تم التعديل على الملف المرسل فى الشيت 2 وتعديل كود الطباعة ولكن بالنسبة لاسماء الشركات من الشيت 1 لم استطع تحديد اسماء الشركات . لم استطع رفع الملف وسأحاول غدا مرة اخرى ان شاء الله تحياتى

الاخ gamalin اخى المرفق عبارة عن فيديو اتبع نفس الخطوات لتحصل على الاسماء الكاملة للطابعات تحياتى المرفق http://www.officena.net/team/tameromar/oma...therPrinter.rar

الاخ nasersaeed ملحوظة اعد ارسال رسائل الخطأ مصورة بكامل الشاشة حتى ارى شريط العنوان العلوى وايضا ارى شريط الحالة السفلى اهم شئ لتجنب اى احتمال للخطأ هو دائما تابع شريط العنوان العلوى ولاتنفذ اى امر الا وانت فى الصفحة الرئيسية وليس وانت فى الملفات التى تم انتاجها تحياتى

اخى الم تسطيع ازاحة رسالة الخطأ جانبا لارى الصفحة المتعامل معها اولا البرنامج يعمل على جهازى بدون مشاكل نهائيا جهازى مركب عليه Windows XP SP2 2005 والاوفيس Office11 XP 2003 Ar اخبرنى عن جهازك وهل قمت بتعديل على الاكواد وارجو عمل الاتى اذهب الى محرر الاكواد من قائمة Tools / references ارسل لى صورة القائمة التى ستظهر

الاخ gamalin شاهد المرفق الكود صح 100% ولكن اذا اعطى الكود رسالة خطأ و ذهب بك الى اسم الطابعة عند اختيار DEBUG فى هذه الحالة يجب اخذ اسماء الطابعات يدويا عن طريق VAB تحياتى ______________2.rar