checles قام بنشر أكتوبر 7 مشاركة قام بنشر أكتوبر 7 السلام عليكم برجاء المساعده في معدله استخراج اكبر قيمه مع علم وجود حروف بجانب الارقام وشكرا رابط هذا التعليق شارك More sharing options...
AmirMohamed قام بنشر أكتوبر 7 مشاركة قام بنشر أكتوبر 7 =MAX(IF(ISNUMBER(VALUE(LEFT(A1:A100; LEN(A1:A100)-1))); VALUE(LEFT(A1:A100; LEN(A1:A100)-1)); 0)) جرب هذي المعادلة اكبر قيمه.xlsx 1 رابط هذا التعليق شارك More sharing options...
checles قام بنشر أكتوبر 7 الكاتب مشاركة قام بنشر أكتوبر 7 السلام عليكم اولا شكرا جزيل لاهتمام حضرتك بس لو تم كتبه رقم اكبر بدون رومز لا يتم حسابه برجاء المساعده في حلها رابط هذا التعليق شارك More sharing options...
AmirMohamed قام بنشر أكتوبر 7 مشاركة قام بنشر أكتوبر 7 (معدل) طيب تمام بجرب طريقه اخرى تم تعديل أكتوبر 7 بواسطه AmirMohamed رابط هذا التعليق شارك More sharing options...
AmirMohamed قام بنشر أكتوبر 7 مشاركة قام بنشر أكتوبر 7 عشان تقدر تطبق المطلوب كان لابد من عمد كود برمجة فيه داله اسمها MaxNumber تعمل المطلوب وبشكل مختصر هذا كود البرمجة: Function MaxNumber(rng As Range) As Double Dim cell As Range Dim matches As Object Dim largest As Double Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Global = True regex.IgnoreCase = True regex.Pattern = "\d+(\.\d+)?" largest = -1 For Each cell In rng If Not IsEmpty(cell.Value) Then Set matches = regex.Execute(cell.Value) If matches.Count > 0 Then Dim match As Variant For Each match In matches If CDbl(match.Value) > largest Then largest = CDbl(match.Value) End If Next match End If End If Next cell MaxNumber = largest End Function بعد كده اختار أي عمود تحتاجه عادي جدا زي ما بتعمل أي معادلة وهذه المعادلة كده بتكون : =MaxNumber(A1:A100) تحياتي 🙂 اكبر قيمه.xlsm 4 رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر أكتوبر 8 مشاركة قام بنشر أكتوبر 8 تحياتي للأستاذ / أمير حل رائع . إضافة بسيطة و هو كود لاستحراج أكبر قيمة مع النص الموجود بجانب الرقم Function LargestValueWithOriginalText(rng As Range) As String Dim cell As Range Dim matches As Object Dim maxNum As Double Dim num As Double Dim regex As Object Dim resultText As String ' Create a regular expression object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "\d+\.?\d*" ' Pattern to match numbers (including decimals) regex.Global = True maxNum = -1 ' Initialize maxNum to a low value resultText = "No numeric values found." ' Default message ' Loop through each cell in the specified range For Each cell In rng If Not IsEmpty(cell.Value) Then ' Find all matches in the cell Set matches = regex.Execute(cell.Value) ' Loop through all found matches For Each Match In matches num = CDbl(Match.Value) ' Convert match to a number If num > maxNum Then maxNum = num ' Update maxNum if the current number is larger resultText = cell.Value ' Store the text of the cell with the largest number End If Next Match End If Next cell ' If a number was found, return the original text If maxNum > -1 Then LargestValueWithOriginalText = resultText Else LargestValueWithOriginalText = resultText End If End Function اكبر قيمه (2).xlsm 3 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أكتوبر 8 أفضل إجابة مشاركة قام بنشر أكتوبر 8 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته بعد إدن الإخوة الكرام اليك حلول اخرى بالمعادلات =MAX(IFERROR(VALUE(LEFT(A1:A200, LEN(A1:A200) - IF(ISNUMBER(VALUE(RIGHT(A1:A200, 1))), 0, 1))), A1:A200)) أو =MAX(LET(val,A1:A200, num, IFERROR(VALUE(LEFT(val, LEN(val) - IF(ISNUMBER(VALUE(RIGHT(val, 1))), 0, 1))), val), IF(ISNUMBER(num), num, 0))) في حالة الرغبة باستخدام الأكواد إليك الدالة التالية Function GetMaxValue(rng As Range) As Double Dim maxValue As Double, n As Double Dim Cnt As String, r As String, cell As Range c = 0 For Each cell In rng If Not IsEmpty(cell.Value) Then Cnt = cell.Value If IsNumeric(Right(Cnt, 1)) Then n = CDbl(Cnt) Else r = Left(Cnt, Len(Cnt) - 1) n = CDbl(r) End If If n > c Then c = n End If End If Next cell GetMaxValue = c End Function =GetMaxValue(A1:A200) اكبر قيمة V2.xlsb تم تعديل أكتوبر 8 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
mishoexcel قام بنشر أكتوبر 13 مشاركة قام بنشر أكتوبر 13 On 10/8/2024 at 5:34 AM, hegazee said: تحياتي للأستاذ / أمير حل رائع . إضافة بسيطة و هو كود لاستحراج أكبر قيمة مع النص الموجود بجانب الرقم Function LargestValueWithOriginalText(rng As Range) As String Dim cell As Range Dim matches As Object Dim maxNum As Double Dim num As Double Dim regex As Object Dim resultText As String ' Create a regular expression object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "\d+\.?\d*" ' Pattern to match numbers (including decimals) regex.Global = True maxNum = -1 ' Initialize maxNum to a low value resultText = "No numeric values found." ' Default message ' Loop through each cell in the specified range For Each cell In rng If Not IsEmpty(cell.Value) Then ' Find all matches in the cell Set matches = regex.Execute(cell.Value) ' Loop through all found matches For Each Match In matches num = CDbl(Match.Value) ' Convert match to a number If num > maxNum Then maxNum = num ' Update maxNum if the current number is larger resultText = cell.Value ' Store the text of the cell with the largest number End If Next Match End If Next cell ' If a number was found, return the original text If maxNum > -1 Then LargestValueWithOriginalText = resultText Else LargestValueWithOriginalText = resultText End If End Function اكبر قيمه (2).xlsm 18.09 kB · 18 downloads هل من الممكن التعديل على المعادلة للاستخراج اكبر تاريخ بدل من القيمة ؟؟؟ رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر أكتوبر 13 مشاركة قام بنشر أكتوبر 13 ما المقصود بأكبر تاريخ؟ الأحدث أم الأقدم؟ رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر أكتوبر 14 مشاركة قام بنشر أكتوبر 14 (معدل) تفضل أخي الكريم ملف به التاريخ الأحدث و الأقدم باستخدام المعادلات و الأكواد. اختر ما يحلو لك. الأحدث و الأقدم.xlsm تم تعديل أكتوبر 14 بواسطه hegazee 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان