أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





استخراج الرقم الاقل

السلام عليكم ورحمة الله وبركاته الاخوه الافاضل تحيه طيبه وبعد اريد عن طريق استخدام الحلقه التكراريه لدى العمود الاول ب ..


موضوع مغلق


14-02-2021 11:47 مساء
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 237
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 

السلام عليكم ورحمة الله وبركاته
الاخوه الافاضل
تحيه طيبه وبعد

اريد عن طريق استخدام الحلقه التكراريه

لدى العمود الاول به ارقام
اريد كود يقوم باستخراج الرقم الاقل
ويقف عنده
يعنى لو انا كاتب الرقم 4
والرقم الاقل منه 2
يتم استخرج الرقم 2 والوقوف عنده
مرفق شيت
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  Book1.rar   تحميل rar مرات التحميل :(6)
الحجم :(5.6) KB



أفضل إجابة مقدمة من salim وهي:
Try This code

Option Explicit
Sub fin_min()
Dim arr(), m, i, Mn
    For i = 2 To 7
      If Cells(i, 1) < Cells(2, 3) Then
        ReDim Preserve arr(m)
        arr(m) = Cells(i, 1)
        m = m + 1
      End If
    Next
If m > 0 Then
    Mn = Application.Min(Application.Max(arr), Cells(2, 3))
    MsgBox Range("a2:a7").Find(Mn, lookat:=1).Address
End If
End Sub
عرض الإجابة



توقيع :EM_ACC
إبراهيم أبوليله

15-02-2021 12:49 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 237
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 34
قوة السمعة : 2349
عدد الإجابات: 31
 offline 
look/images/icons/i1.gif استخراج الرقم الاقل
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub SelcRnge()
Dim C As Range, x As Double
For Each C In Range("A2:A" & Range("A" & Rows.Count).End(3).Row)
x = Range("C2").Value
If C.Value < x Then
C.Select
End If
Next
End Sub

15-02-2021 02:11 صباحا
مشاهدة مشاركة منفردة [2]
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 237
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 
look/images/icons/i1.gif استخراج الرقم الاقل
أستاذنا الفاضل مشكورا بارك الله فيك
الكود اتى بالفعل بالنتيجه الصحيحه 
ولكنى كنت ابحث عن كيفية تنفيذ الكود بطريقة الحلقه التكراريه 
FOR NEXT
وحاولت باستخدام هذا الكود ولكنه كان ياتى باخر قيمه 

Sub H()
For R = 2 To 100
x = Sheets("3").Range("C2").Value
If Sheets("3").Cells(R, 1) < x Then
MsgBox Sheets("3").Cells(R, 1).Value
Sheets("3").Cells(R, 1).Select
Exit Sub
End If
Next
End Sub

فهل من طريق للتعديل على هذا الكود وجعله يعمل بالصورة الصحيحة
 
Sub H() For R = 2 To 100 x = Sheets("3").Range("C2").Value If Sheets("3").Cells(R, 1) < x Then MsgBox Sheets("3").Cells(R, 1).Value Sheets("3").Cells(R, 1).Select Exit Sub End If Next End Sub
 
توقيع :EM_ACC
إبراهيم أبوليله

15-02-2021 07:09 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif استخراج الرقم الاقل
Try This code

Option Explicit
Sub fin_min()
Dim arr(), m, i, Mn
    For i = 2 To 7
      If Cells(i, 1) < Cells(2, 3) Then
        ReDim Preserve arr(m)
        arr(m) = Cells(i, 1)
        m = m + 1
      End If
    Next
If m > 0 Then
    Mn = Application.Min(Application.Max(arr), Cells(2, 3))
    MsgBox Range("a2:a7").Find(Mn, lookat:=1).Address
End If
End Sub

15-02-2021 09:17 صباحا
مشاهدة مشاركة منفردة [4]
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 237
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 
look/images/icons/i1.gif استخراج الرقم الاقل
اخى واستاذى سليم
مشكورا بارك الله فيك
حل رائع ايضا
تقبل تحياتى
 
توقيع :EM_ACC
إبراهيم أبوليله



الكلمات الدلالية
استخراج ، الرقم ، الاقل ،


 










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

الساعة الآن 02:26 صباحا