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

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

الا يوجد لدى حضرتك عمود للتسلسل فى الشيت المطلوب هذه المعادلة توضع بدلا منه كذلك يمكن الأستعاضة عن رقم (3 ) فى المعادلة السابقة بالرقم "103 " لتكون المعادلة كالتالى: =IF(D6="";"";SUBTOTAL(103;$B$6:B6)) ولابد من أن تحقق المطلوب وأسف لأنى ليس لدى أوفيس 2010 وبرنامج التحويل الذى عندى رفض تحويل الملف إلى أوفيس 2003 المعادلتان سليمتان أخى لابد أنك أستخدمتها بصورة غير دقيقة أو أرسلى الشيت المطلوب بنفس تنسيق الملف فى المشاركة الأولى تقبل تحياتى

أستخدم هذه المعادلة فى "B6 " وأسحبها لأسفل =IF(D6="";"";SUBTOTAL(3;$B$6:B6)) تقبل تحياتى

هناك خطأ ما حيث لابد من قسمة "3%/365 " ليعطى معدل يومى ".0082% أى هذا المعدل هو إللى لابد من ضربة فى المبلغ وعدد الأيام المعادلة تخضع لقانون الفائدة المركبة وقانونها جـ = أ ( 1 + ع)ن إجمالي المبلغ في نهاية المدة = أصل المبلغ في عام × (الفائدة + 1) ^ مدة القرض لذلك فالمعادلة النهائية =100,000 x1.03 ^30 , ( or 60) تقبلوا تحياتى

أستخدم هذه المعادلة ستحقق ماتريد =100000*(1+(0.03*30)) أو هذه 100,000 x1.03 ^30 ; ( or 60) تقبل تحياتى

واضح جدا إننى سأستدرج فى كتابة الكود وأن كنت أرفض ذلك ، وعاهدت نفسى على ذلك ولكن نظرا لغياب عمالقة الأكواد فأنا مضطر أليك أخى الكود التالى سيحقق ماتريد أو أستخدم هذا وهذا أعم ويشمل تنسيق الرقم أيضا يكفى تظليل مدى الأرقام الذى تريد تحويلها Sub GAMAL() Dim rng As Range Dim cell As Range Set rng = Selection For Each cell In rng cell = Int(cell) cell.NumberFormat = "0.00" Next End Sub وهذا أيضا حتى يكون الكود الأخير ولن أكررها Sub gamal() Dim adr As String adr = "A1:A" & Range("A" & Rows.Count).End(xlUp).Row '<- Change column & start row to suit With Range(adr) .Value = Evaluate("IF(LEN(" & adr & "),TRUNC(" & adr & "),"""")") .NumberFormat = "0.00" End With End Sub تقبل تحياتى أستخراج الرقم قبل العلامة 2 العشرية.rar أستخراج الرقم قبل العلامة العشرية.rar

أستخدم دالة( INT ) أو ( TRUNC ) =INT(A2) =TRUNC(A2) وإذا أردت العلامة العشرية والأصفار ستقوم بنفس الخطوات وتكتب فى "TYPE " 00.00 تقبل تحياتى

كليك يمين على عمود الأرقام بعد تظليلة بالكامل ثم "FORMAT CELLS " ثم "NUMBER" ثم "CUSTEM " ثم "TYPE " ثم فى المستطيل أسفلها أكتب الأتى: ##."00" بالطبع هناك معادلات لعمل ذلك ولكن هذه أفضل وأسهل تقبل تحياتى

أستخدم هذه المعادلة مع تغير الشرط كما تريد =MAX(IF(VALUE($B$13:$B$83)=$B13;VALUE($C$13:$C$83))) أو هكذا =MAX(IF(--($A$2:$A$71)=$B13;--($B$2:$B$71))) أو هكذا =MAX(IF(1*($A$2:$A$71)=$B13;1*($B$2:$B$71))) وعلى فكرة المعادلة تعمل جيدا ولكن تنسيق أرقامك " تنسيق نصى " لذلك تم إستخدام دالة " VALUE " أوضرب كل مدى فى "1" أوجمع علية "صفر"أو أستخدام علامة الناقص لتحويل الرقم إلى قيمة لكى تعمل المعادلة بصورة طبيعية الدالة دالة صفيف أى لكى تعمل بصورة طبيعية لابد من الضغط على " CTRL+SHIFT+ENTER " تقبل تحياتى

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

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

عفوا أخى " الريفى " حلك رائع ، ولأثراء الموضوع هذه طريقة أخرى ونظرا لأنك تستخدم أوفيس 2007 فمعادلتك ستكون كاللأتى للتخلص من الخطأ فماعليك إلا سحبها يمينا وأسفل لتحقق النتيجة ولاتنسى الضغطط على (CTRL+SHIFT+ENTER ) لأنها معادلة صفيف =IFERROR(INDEX(tbl; SMALL(IF(($D$1=Insu_NO); ROW(tbl)-MIN(ROW(tbl))+1; ""); ROW(A1));COLUMN(A1));"") تقبلوا تحياتى بحث برقم التأمين.rar

أعطينى مثال أخى على ( قيمة السهم ) فى حالة أرقام الرفع و(قيمة السهم ) فى حالة الأنخفاض وأرقام الزيادة المحتملة وأرقام الأنخفاض

تفضل أخى هذه تجلب لك ماتريد المعادلة ، معادلة صفيف أى لابد من الضغط على " ctrl+shift+enter " لعمل الأقواس الموضحة {=LOOKUP(9.99999999999999E+307;IF(A3:Z3 <> 0;A3:Z3))} تقبل تحياتى

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

تفضل أحى هذا سيسهل كثيرا ="(2" & TEXT(A1;"0000) -000-0000") تقبل تحياتى

وهذه أيضا تحقق ماطلبت =MIN(IF(($H$3:$DR$3>0)*($H$3:$DR$3<>"");$H$3:$DR$3)) المعادلة معادلة صفيف أى لابد من الضغط على ( ctrl+shift+enter) تقبل تحياتى

أنظر هذا أيضا لعله المطلوب بعد مشاهدتى لحلول أساتذتى تقبل تحياتى سؤال 5.rar

صعب التكهن بما تريد أخى ولكن هذه المعادلة تجلب ماتريد بإذن الله =LOOKUP(9.9999999E+307;A:A) تقبل تحياتى

أتمنى يكون المطلوب على حسب مافهمت وأدعو حضرتك بمناسبة هذا الشهر الكريم تغيير تغيير أسم الظهور للعربية لكى يسهل تواصلك مع الزملاء تقبل تحياتى سؤال ( 2).rar

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

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

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

تفضل أخى المطلوب ملحوظة: يمكن إستخدام المعادلة الموجودة فى الخلية "H1 " لجلب نصف الجدول بطريقة تلقائية أو وضع الرقم الذى تريدة يدوى ، أو وضع المعادلة أو الرقم كشرط فى المعادلة بدل الخلية وبالطبع ستستخدم دالة "IFERROR " وذلك لعدم ظهور الخطأ تقبل تحيات أخيك نقل بيانات على نصفى الورقة.rar

كل سنة وحضرتك بخير أستاذى الفاضل " الريفى " بارك الله فيك وأكثر الله من أمثالك تقبل تحيات : أخيك