trke96 قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 في الاكسل لدي خلية A1 خلية متغيرة ما اريده هو استخراج اعلى قيمة سجلتها الخلية A1 واستخراج اصغر قيمة سجلتها الخلية A1 وجزاكم الله خيرا 1
قنديل الصياد قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 اخى العزيز برجاء ارفاق ملف للعمل عليه كل عام وحضرتك بخير الدالة max لاظهار اعلى قيمة الدالة min لاظهار اقل قيمة 1
trke96 قام بنشر يوليو 22, 2013 الكاتب قام بنشر يوليو 22, 2013 جزاك الله خيرا وتقبل الله منكم الصيام والقيام لا اعرف كيف ارفق ملف لكن شأشرح لك ما اريد لدي خلية واحدة وهذة الخلية متغيرة ربما ترتفع فتكون موجبة وربما تنخفض فتكون سالبة انا اريد استخراج اعلى ما سجلته هذه الخلية فأضعها في خلية اخرى واقل ما سجلته الخلية نفسها واضعه في حلية اخرى بالنسبة لـ الدالة max لاظهار اعلى قيمة الدالة min لاظهار اقل قيمة ههذه لعدة خلايا انا عملي على خلية واحده وغفر الله لك
قنديل الصياد قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 اخى العزيز قم بضغط الملف الخاص بك باحدى برامج الضغط وقم برفعه 1
trke96 قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 سبحان الله والحمد لله ولا اله الا الله وحده لا شريك له الملك وله الحمد يحيي ويميت وهو على كل شئ قدير. واستغفر الله الذي لا اله الا هو الحي القيوم واتوب اليه ولا حول ولا قوة الا بالله العلى العظيم والله اكبر الا يوجد حل لهذه المشكلة اين انتم يا خبرائنا
قنديل الصياد قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 اخى العزيز مرفق ملف اتمنى ان يكون هو المطلوب الكود المستخدم Private Sub CommandButton1_Click() Me.Cells(1, 4) = "=c1" & "+ b" & Me.Cells(1, 1) End Sub ملفات مرفقة book1.rar
trke96 قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 لا........ ليس كما اردت لك كل احترامي وتقديري
حمادة عمر قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 السلام عليكم الاخ الكريم / trke96 بارك الله فيك لقد قام الاستاذ الاخ الحبيب / عباد - ابو نصار ... جزاه الله خيرا بوضع كود لتنفيذ طلبك تماما وكما تريد علي الرابط التالي في موضوع بعنوان (( أكبر وأصغر قيمة في مدخلات خلية معينه )) http://www.officena.net/ib/index.php?showtopic=44648&hl= ان شاء الله به ما تريد تماما جزاكم الله خيرا
حمادة عمر قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 السلام عليكم كل الشكر والتقدير للاستاذ الغالي / احمد فضيلة ... جزاه الله خيرا علي تغييره للعنوان ليتناسب مع الموضوع ويجب علي الاخ صاحب الموضوع مراعاة ذلك مستقبلا ... والاطلاع علي قواعد المشاركة بالمنتدي قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.ومخالفة ذلك تعرض الموضوع للحذف
trke96 قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 جزاكم الله كل خير لم يحل مشكلتي بعد ما اريد هو مثل البورصة مثلا سعر شركة ما 50 ثم ارتفع السعر الى 55 اريد تسجيله في خلية اخرى ( مباشر بدون ضغط ازرار) وهبط السعر الى 45 اريد تسجيله ايضا في خلية اخرى ( مباشر بدون ضغط ازرار) ولكم جزيل الشكر وتقبل الله صيامكم وقيامكم
حمادة عمر قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=43564&hl=%2B%D8%A7%D8%B9%D9%84%D9%89+%2B%D9%82%D9%8A%D9%85%D8%A9+%2B%D8%B3%D8%AC%D9%84%D8%AA%D9%87%D8%A7+%2B%D8%A7%D9%84%D8%AE%D9%84%D9%8A%D8%A9
حمادة عمر قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 الاخ الكريم فكرة ايضا توصلت لها بخصوص موضوعك بكود بسيط ولكنه يحتاج لبعض التعديل ما رأيك فيه ... هل يتناسب مع طلبك Sub sama() LastCol = Range("iv1").End(xlToLeft).Column + 1 Cells(1, LastCol).Value = [a1].Value Application.CutCopyMode = False [a1].Select End Sub جزاك الله خيرا في انتظار ردك .... وجرب الملف المرفق .. قم بالكتابة في الخلية a1 ثم اضغط علي الزر وشاهد النتيجة ثم قم بالكتابة مرة اخري في الخلية a1 واضغط علي الزر وشاهد النتيجة Book1.rar
trke96 قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 جزاكم الله خيرا فعلا جزاكم الله خيرا هذه المشكلة لا انام منها واريد لها حلا عاجلا . جدا جدا الان سأشرح بالتفصيل لدي ملف اكسل . فيه ارتباط خارجي ببرنامج يخص الاسهم . هنالك خليه فيها ارقام تتغير بستمرار مثلا a1 ممكن ترتفع وممكن تهبط . اريد اقل رقم حققته a1 فينتقل الى a2 واعلى رقم a1 فينتقل الى a3 وتتغير هذه الارقام مع الارتفاع والهبوط ملاحظ ممكن بريد الكتروني او حساب في اي موقع من مواقع التواصل الاجتماعي للتواصل المباشر الى ان نفهم على بعضنا ونجد الحل ثم نطرحه في هذا المنتدى المبارك وجزاكم الله خير واسف على التاخر في الرد لبعدي عن الكمبيوتر
شوقي ربيع قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 لسلام عليكم حسب فهمي لطلبك جرب هذا الملف (قم تغيير قيم الخلية المتغيرة ولاحط) aa.rar 1
trke96 قام بنشر يوليو 24, 2013 الكاتب قام بنشر يوليو 24, 2013 يا سلام عليك احسنت وبارك الله فيك وجعل الله جهودكم في موازين حسناتكم كيف اتواصل معك اخي شوقي ?
حمادة عمر قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 السلام عليكم الاخ الحبيب / شوقي ربيع فكرة جميلة جدا وتحايل علي القانون بطريقة ملتوية .... اعجبتني الفكرة جدا تقبل خالص تحياتي جزاك الله خيرا
trke96 قام بنشر يوليو 24, 2013 الكاتب قام بنشر يوليو 24, 2013 السلام عليكم الاخ الحبيب / شوقي ربيع فكرة جميلة جدا وتحايل علي القانون بطريقة ملتوية .... اعجبتني الفكرة جدا تقبل خالص تحياتي جزاك الله خيرا عليكم السلام كيف هذا التحايل اخي حماده
حمادة عمر قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 السلام عليكم الاخ الكريم / trke96 بارك الله فيك التحايل هنا اخي الكريم ليس بمعناه ... ولكنها دعابة لاخي الحبيب / شوقي حيث استخدم له فكرة وسيطة وهي استخدام العمود A في الشيت رقم 2 حيث قام من البداية بوضع الكود التالي في حدث الورقة الموجود بها الخلية المتغيرة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lr As Long lr = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row + 1 Feuil2.Cells(lr, 1) = [C7] End Sub وهذا الكود يعني انه يجعل اي قيمة تسجل في الخلية C7 كما في هذا الجزء من الكود Feuil2.Cells(lr, 1) = [C7] يتم تسجيلها في العمود A في الورقة الثانية ثم قام بوضع معادلتي اكبر قيمة واصغر قيمة في الخلايا الاخري المطلوب اظهار اعلي قيمة فيها كما يلي باستخدام الدالة MAX =MAX(ورقة2!A:A) واظهار اقل قيمة في العمود A باستخدام الدالة MIN كما يلي =MIN(ورقة2!A:A) وهذا هو التحايل بان الكود ليس مباشرا ولكن قام الاخ الحبيب / شوقي باستخدام وسيط للوصول لما يريد باستخدامه العمود A في الصفحة او الشيت 2 ارجو ان اكون قد اوصلت المعلومة بالشكل المطلوب جزاك الله خيرا
قنديل الصياد قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 رائع يا استاذى على التعليق والشرح الجميل كل يوم اتعلم منك ومن اساتذتنا هنا فى اوفيسنا كل ما هو جديد ورائع الفاظ رائعة ومنتقاه ورد واسع وشامل وكافى الله عليك يا ملك المعادلات ويا استاذنا الجليل استاذ / حمادة عمر والشكر ايضا لاستاذى الحبيب والرائع / شوقى ربيع وعلى الفكر العالى جعلكم الله عونا لكل متعلم ونحن كل يوم نتعلم ونتزود من علمكم الواسع جزاكم الله خير الجزاء وكل عام وحضراتكم بخير
دغيدى قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 الأخ / trke96 تم غلق الموضوع حتى تغيير صورة الظهور لما لها من دلالة سيئة
شوقي ربيع قام بنشر يوليو 25, 2013 قام بنشر يوليو 25, 2013 السلام عليكم كل الشكر للاخ الحبيب حمادة عمر على الشرح الجميل للكود كما اشكر الاخ الحبيب قنديل الصياد على تعليقه الجميل للافادة هذا كود يعمل على تسجيل اعلى و اصغر قيمة لعمود كامل Sub Test() Dim lr As Long, Lrr As Long Dim Mx As Integer, Mn As Integer, R As Integer, iCont As Integer Dim xx As Double Lrr = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row For R = 1 To Lrr lr = Feuil2.Cells(Rows.Count, R).End(xlUp).Row + 1 xx = Feuil1.Cells(R, 1) iCont = WorksheetFunction.CountIf(Feuil2.Columns(R), xx) If xx <> 0 Then If iCont > 0 Then GoTo RabieCont Feuil2.Cells(lr, R) = xx Mx = WorksheetFunction.Max(Feuil2.Columns(R)) Mn = WorksheetFunction.Min(Feuil2.Columns(R)) Feuil1.Cells(R, 2) = Mx Feuil1.Cells(R, 3) = Mn RabieCont: End If Next End Sub تحياتي اعلى واصغر قيمة مسجلة في خلية.rar
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان