عنوان معدل - استخراج اعلى و اصغر قيمة سجلتها خلية معينه

[trke96]

في الاكسل 

لدي خلية A1 خلية متغيرة ما اريده  هو استخراج

اعلى قيمة سجلتها الخلية A1

واستخراج اصغر قيمة سجلتها الخلية A1

 

وجزاكم الله خيرا 

[قنديل الصياد]

اخى العزيز برجاء ارفاق ملف للعمل عليه

كل عام وحضرتك بخير

 

 

الدالة max   لاظهار اعلى قيمة

الدالة min  لاظهار اقل قيمة

[trke96]

جزاك الله خيرا وتقبل الله منكم الصيام والقيام

 

لا اعرف كيف ارفق ملف    لكن شأشرح لك ما اريد

 

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

 

بالنسبة لـ الدالة max   لاظهار اعلى قيمة

الدالة min  لاظهار اقل قيمة

 

ههذه لعدة خلايا   انا عملي على خلية واحده

وغفر الله لك

[قنديل الصياد]

اخى العزيز قم بضغط الملف الخاص بك باحدى برامج الضغط وقم برفعه

[trke96]

شكرا يا غزيزي......

aa.rar

[trke96]

سبحان الله والحمد لله ولا اله الا الله وحده لا شريك له الملك وله الحمد يحيي ويميت وهو على كل شئ قدير.

واستغفر الله الذي لا اله الا هو الحي القيوم واتوب اليه ولا حول ولا قوة الا بالله العلى العظيم والله اكبر

 

 

الا يوجد حل لهذه المشكلة اين انتم يا خبرائنا

[قنديل الصياد]

اخى العزيز

مرفق ملف

اتمنى ان يكون هو المطلوب

الكود المستخدم

Private Sub CommandButton1_Click()
Me.Cells(1, 4) = "=c1" & "+ b" & Me.Cells(1, 1)

End Sub

ملفات مرفقة

 

book1.rar

 

 

 

[trke96]

لا........ ليس كما اردت لك كل احترامي وتقديري

[حمادة عمر]

السلام عليكم

الاخ الكريم / trke96

بارك الله فيك

لقد قام الاستاذ الاخ الحبيب / عباد - ابو نصار  ... جزاه الله خيرا

بوضع كود لتنفيذ طلبك تماما وكما تريد علي الرابط التالي في موضوع بعنوان

 

(( أكبر وأصغر قيمة في مدخلات خلية معينه ))

http://www.officena.net/ib/index.php?showtopic=44648&hl=

 

ان شاء الله به ما تريد تماما

جزاكم الله خيرا

[حمادة عمر]

رمضـــان كـــريـــم

[احمد فضيله]

جزاكم الله كل خير

[حمادة عمر]

السلام عليكم

كل الشكر والتقدير للاستاذ الغالي / احمد فضيلة ... جزاه الله خيرا

علي تغييره للعنوان ليتناسب مع الموضوع

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

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[trke96]

جزاكم الله كل خير

 

لم يحل مشكلتي بعد

ما اريد هو مثل البورصة  مثلا  سعر شركة ما 50 ثم ارتفع السعر الى 55 اريد تسجيله في خلية  اخرى ( مباشر بدون ضغط ازرار)

وهبط السعر الى 45 اريد تسجيله ايضا في خلية اخرى   ( مباشر بدون ضغط ازرار)

ولكم جزيل الشكر وتقبل الله صيامكم وقيامكم

[حمادة عمر]

شاهد الرابط التالي

 

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

[حمادة عمر]

الاخ الكريم

فكرة ايضا توصلت لها بخصوص موضوعك

بكود بسيط ولكنه يحتاج لبعض التعديل

ما رأيك فيه ... هل يتناسب مع طلبك

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]

جزاكم الله خيرا   فعلا جزاكم الله خيرا 

هذه المشكلة لا انام منها واريد لها حلا عاجلا . جدا جدا

الان سأشرح بالتفصيل لدي ملف اكسل . فيه ارتباط خارجي ببرنامج يخص الاسهم . هنالك خليه فيها ارقام تتغير بستمرار مثلا a1 ممكن ترتفع وممكن تهبط .  اريد اقل رقم حققته a1 فينتقل الى a2  واعلى رقم  a1  فينتقل الى a3    وتتغير هذه الارقام مع الارتفاع والهبوط   

 

 

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

 

وجزاكم الله خير  واسف على التاخر في الرد لبعدي عن الكمبيوتر

[شوقي ربيع]

لسلام عليكم

حسب فهمي لطلبك جرب هذا الملف

(قم تغيير قيم الخلية المتغيرة ولاحط)

aa.rar

[trke96]

يا سلام عليك

احسنت

وبارك الله فيك

وجعل الله جهودكم في موازين حسناتكم

  كيف اتواصل معك اخي شوقي ?

[حمادة عمر]

السلام عليكم

الاخ الحبيب / شوقي ربيع

فكرة جميلة جدا

وتحايل علي القانون بطريقة ملتوية .... اعجبتني الفكرة جدا

تقبل خالص تحياتي

جزاك الله خيرا

[trke96]

السلام عليكم

الاخ الحبيب / شوقي ربيع

فكرة جميلة جدا

وتحايل علي القانون بطريقة ملتوية .... اعجبتني الفكرة جدا

تقبل خالص تحياتي

جزاك الله خيرا

 عليكم السلام    كيف هذا التحايل اخي حماده     

[حمادة عمر]

السلام عليكم

الاخ الكريم / 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

 

ارجو ان اكون قد اوصلت المعلومة بالشكل المطلوب

جزاك الله خيرا

[قنديل الصياد]

رائع يا استاذى على التعليق والشرح الجميل

كل يوم اتعلم منك ومن اساتذتنا هنا فى اوفيسنا كل ما هو جديد ورائع

الفاظ رائعة ومنتقاه ورد واسع وشامل وكافى

الله عليك يا ملك المعادلات ويا استاذنا الجليل

استاذ / حمادة عمر

والشكر ايضا لاستاذى الحبيب والرائع / شوقى ربيع

وعلى الفكر العالى

جعلكم الله عونا لكل متعلم

ونحن كل يوم نتعلم ونتزود من علمكم الواسع

جزاكم الله خير الجزاء

وكل عام وحضراتكم بخير

[دغيدى]

الأخ / trke96

تم غلق الموضوع حتى تغيير صورة الظهور لما لها من دلالة سيئة

[شوقي ربيع]

السلام عليكم

كل الشكر للاخ الحبيب حمادة عمر على الشرح الجميل للكود

كما اشكر الاخ الحبيب قنديل الصياد على تعليقه الجميل

 

للافادة هذا كود يعمل على  تسجيل اعلى و اصغر قيمة لعمود كامل

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

[حمادة عمر]