جمال عبد السميع

بارك الله فيك أخى الحبيب " محمد " عمل رائع مثلك تقبل تحياتى

تتبع " أخى " هذا الرابط بإذن سوف تجد به ماتريد http://www.officena.net/ib/index.php?showtopic=34337

تفضل أخى كانت المعادلات قد تم حذفها دون أن ألاحظ ذلك تقبل تحياتى بطاقة موظف2.rar

تم عمل المطلوب أخى وتم زيادة نطاق المعادلات ليتحمل " 500 أسم " بصورهم أما عن شرح الربط تم زيادة نطاق الجدول "tbl " ليتضمن العمودان الجديدان وتغيير أعمدة البحث فى المعادلة ليتضمنوا العمودان الجديدان أيضا أما الجديد فى المعادلة والذى لم يتطرق له أحد إنى جعلت دالة "index" بشكلها العادى تقوم بجلب الصور تقبل تحياتى بطاقة موظف1.rar

ماذا تعنى بمشاركتك فى المنتدى أخى !!!!!!!!!!!! أنت مشارك بالفعل ؟ أم تقصد رفع ملف ؟ إذا كنت تقصد طريقة رفع الملفات 1-أولا بالنسبة للشخض الجديد الملف لابد الا يزيد عن " 900KBITE " 2- لابد من ضغط الملف ببرنامج ضغط وليكن "WINRAR " مثلا 3-تضغط على كلمة المحرر الكامل سوف ينقلك إلى صفحة أخرى 4- ستجد أسفل كلمة " إرفاق ملفات " ، كلمة " BROWSE " إضغط عليها لتختار منها موضع حفظ ملفك الذى سبق ضغطة فى موضع حفظك له على هاردك 5 - ثم إضغط رفع الملف ثم " إضافة رد " ومبروك عليك المشاركة لوتقصد ذلك تقبل تحياتى

أنظر هذا الرابط أخى أعتقد أنه سيوفر لك كثيرا من الوقت ، أو لعله يفيدك وإذا لم يحقق المطلوب إبحث داخل المنتدى فهناك الكثير والكثير الذى سيفيدك أو يفتح لك أفاقا جديدة لسؤالك http://www.officena.net/ib/index.php?showtopic=51385 تقبل تحياتى

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

أستخدم هذا الكود أخى فى حدث الصفحة سيحقق المطلوب Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone ActiveCell.Interior.ColorIndex = 20 End Sub تقبلوا تحياتى تلوين الحلية النشطة.rar

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

أخىالرسالة تفيد بأن هناك خلايا مدمجة ، لذلك لابد من إرجاع الخلايا لوضعها الأصلى لكى تعمل المعادلة وتتم كالأتى: 1- ظلل كامل العمود الذى يحتوى على المعادلة 2- كليك يمين على العمود المظلل ، ثم إختار " formatt cells " 3- إختر "alignment " ومن " text control " إلغى العلامة الموجودة فى " merge cells " 4- بعد ذلك نفذ الخطوات السابقة والمتعلقة بطريقة كتابة المعادلة تقبل تحياتى

أستخدم الأكسيل نفسة فى عملية الفصل عن طريق إتباع الأتى: 1- "من قائمة - DATA - ثم - TEXT TO COLUMNS - ثم علم على -FIXED WIDTH - ثم - NEXT - ثم - من DESTINATION - إختر بداية الخلية التى تريد أن يتم الفصل بها ولتكن "D1 " - ثم - " FINISH " وأنظر إلى هذا الرابط به الشرح مصور http://www.officena.net/ib/index.php?showtopic=55507 تقبل تحياتى Book1.rar

أخى الحبيب ماتقولة متعلق ، بمعادلات الصفيف ولكى تعمل المعادلة بشكل صحيح بعد كتابة المعادلة ، قف فى نهاية المعادلة بمؤشر الموس وكليك شمال واحدة حتى يقف مؤشر الكتابة فى نهاية المعادلة ثم قم بالضغط " CTRL+SHIFT+ENTER " معا حتى تجد تكون هذان القوسان " { } " فى مقدمة ونهاية المعادلة فى هذه الحلة ستعمل المعادلة وتجلب قيمها بشكل صحيح تقبل تحياتى

حل أخر بالمعادلات تقبلوا تحياتى عد التكرارات فى قائمة.rar

تفضل أخى القول الفصل فى سؤالك تقبل تحياتى جلب الأسماء الفريدة وعددها.rar

حل أخر بعد حل أخى " محمد الريفى " تقبل تحياتى ترحيل بناء على حالة القيد.rar

هناك برنامج " الأكسيس " وهو إحدى مجموعة الأوفيس ولكنى لم أتعامل معه أخى وعلى العموم هل الأكسيل ورؤيتك لما قام به غير كافى لماتريد تحقيقة أم ماذا؟ وإذا كنت غير قادر على تنفيذ مارأيتة من الأكسيل يمكنك أرسال ، نموذج لما تريدة لعل الله يوفقنا لمساعدتك تقبل تحياتى

ومن أجل أخى الحبيب " سامى " صاحب السؤال وإجابة جديدة له وللزملاء ، يمكنة إستخدام هذا الكود لإظهار عدد الأسماء الفريدة فى مدى معين ،ولكنه يقوم بتحديد المدى الذى يريد " عد " الأسماء الفريدة فية Sub gama1() Dim r As Range, e With CreateObject("Scripting.Dictionary") .CompareMode = 1 For Each r In Selection For Each e In Split(Replace(r.Value, " ", "")) .Item(e) = .Item(e) + 1 Next Next MsgBox "عدد الكلمات الفريدة فى المدى المختار: " & Format(.Count) End With End Sub عد الأسماء الفريدة.rar

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

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

أرجو من الأساتذة الأفاضل الأخت الغالية " أم عبد الله " وأخى العزيز " سليم " ألا يغضبوا منى من هذه الملحوظة " وأن هذا لايقلل من روعة حلولهم " ولكن الغرض هو عد الأستسهال فى عرض السؤال ، والرغبة فى البحث أولا حتى تكون الأجابة إضافة للسائل والمنتدى على حدا سواء تقبلوا تحياتى

أنظر لهذا الرابط أخى أعتقد ستجد به ماتريد http://www.officena.net/ib/index.php?showtopic=55486

ضع إحدى هاتين المعادلتين فى الخلية رقم "A30" =COUNTIF(A2:A29,"<"&$A$1) =SUMPRODUCT(--(A2:A29<$A$1)) تقبل تحياتى

ياريت من الأخوة الأفاضل اللذين قاموا بالرد على السؤال " مع الشكرلهم بالطبع على حسن الأجابة وتنوع الحلول " ولكن طلب الأخ السائل هو الحصول على عدد الأسماء الفريدة فقط ؟ وهنا يتم توجية الأخ السائل لعملية البحث أولا ؟ فإذا لم يجد الإجابة الشافية لطلبة يقوم بعرض سؤالة والإيضاح من جانبة أنه لم يجد مايبحث عنه حتى تكون الإجابة جديدة وإضافة لمكتبة المنتدى لإنى على علم تام بأن المنتدى يحتوى على العديد والعديد من الإجابات لهذا السؤال =SUMPRODUCT(1/COUNTIF(C6:C41,C6:C41)) وهذه المعادلة كافية للإجابة على طلبة تقبلوا تحياتى

بعد إذن إخوتى الأفاضل وحلولهم القيمة لم يتبقى فى الحلول سوى معادلات الصفيف وهذان حلان بمعادلة الصفيف وذلك بفرض أن - "B3 " قائمة منسدلة تحوى الأسماء - "D3 " قائمة منسدلة تحوى السلع أستخدم إحدى هاتين المعادلتين ستجلب لك مجموع الأقساط وفقا للشروط الذى سيتم إختيارها من القائمتين المنسدلتين {=SUM(IF(ورقة1!$B$6:$B$11=B3,IF(ورقة1!$C$6:$C$11=D3,ورقة1!$D$6:$D$11)))} {=SUM(IF((ورقة1!$B$6:$B$11=B3)*(ورقة1!$C$6:$C$11=$D$3),ورقة1!$D$6:$D$11))} تقبلوا تحياتى

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