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

trke96 · يوليو 22, 2013

في الاكسل

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

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

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

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

**قنديل الصياد** · يوليو 22, 2013

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

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

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

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

trke96 · يوليو 22, 2013

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

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

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

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

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

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

وغفر الله لك

**قنديل الصياد** · يوليو 22, 2013

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

trke96 · يوليو 22, 2013

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

aa.rar

trke96 · يوليو 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

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

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

**حمادة عمر** · يوليو 23, 2013

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

**احمد فضيله** · يوليو 23, 2013

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

**حمادة عمر** · يوليو 23, 2013

السلام عليكم

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

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

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

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

trke96 · يوليو 23, 2013

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

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

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

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

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

**حمادة عمر** · يوليو 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

الاخ الكريم

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

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

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

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

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

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

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

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

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

**شوقي ربيع** · يوليو 24, 2013

لسلام عليكم

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

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

aa.rar

trke96 · يوليو 24, 2013

يا سلام عليك

احسنت

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

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

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

**حمادة عمر** · يوليو 24, 2013

السلام عليكم

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

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

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

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

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

trke96 · يوليو 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

الأخ / trke96

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

**شوقي ربيع** · يوليو 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

**حمادة عمر** · يوليو 25, 2013

تسجيل الدخول

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

الردود الموصى بها

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

محتوي مشابه

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information