كيفية استخراج القيمة العشرية من سلسلة في إكسيل؟

سيخبرك هذا البرنامج التعليمي بكيفية استخراج القيمة العشرية فقط من سلسلة في Excel.

استخراج القيمة العشرية بالصيغة في Excel
استخراج القيمة العشرية باستخدام VBA في Excel
استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel

استخراج القيمة العشرية بالصيغة في Excel

هناك نوعان من الصيغ التي يمكن أن تساعدك على استخراج قيمة عشرية من سلسلة ، اختر واحدة منهم كما تريد.

الصيغة بغض النظر عن علامة القيم:

حدد خلية واكتب هذه الصيغة = ABS (A1-TRUNC (A1)) (A1 هي الخلية التي تريد استخراج القيمة العشرية منها) في "شريط الصيغة" ، ثم اضغط أدخل مفتاح. استمر في تحديد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج. يمكنك رؤية القيم العشرية المستخرجة فقط بدون علامة كما هو موضح أدناه لقطة الشاشة.

الصيغة التي تعكس علامة القيم:

حدد خلية واكتب هذه الصيغة = A1-TRUNC (A1) (A1 هي الخلية التي تريد استخراج القيمة العشرية منها) في "شريط الصيغة" ، ثم اضغط أدخل مفتاح. استمر في تحديد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج. يمكنك أن ترى أن القيم العشرية يتم استخراجها مع الإشارة كما هو موضح أدناه.

استخراج القيمة العشرية باستخدام VBA في Excel

يوجد VBA يمكنه استخراج القيم العشرية بشكل جماعي بعلامة من السلاسل فقط.

1. صحافة ALT + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة، ثم الصق رمز فبا التالي في الوحدة النمطية.

فبا: استخراج القيم العشرية فقط

Sub GetNumber()
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            KK = xSRgArea(K).Row - xSRg.Row
            If IsNumeric(xRgVal) Then
                xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
            End If
        Next
    Next
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود. ثم كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد النطاق الذي تريد استخراج القيم العشرية منه فقط ، والنقر فوق OK زر. انظر لقطة الشاشة:

4. ثم آخر كوتولس ل إكسيل ينبثق مربع الحوار ، تحتاج إلى تحديد خلية لتحديد القيم العشرية المستخرجة. انظر لقطة الشاشة:

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

استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel

إذا لم تعجبك الصيغة وطرق VBA ، فإني أقدم لك هنا أداة مفيدة - كوتولس ل إكسيل. مع ل استخراج النص يمكنك بسهولة استخراج كل القيم العشرية من نطاق في Excel.

1. حدد النطاق بالعلامة العشرية التي تريد استخراجها ، ثم انقر فوق كوتولس > نص > استخراج النص. انظر لقطة الشاشة:

2. في ال استخراج النص مربع الحوار، اكتب .* في مربع النص ، ثم انقر فوق ملف أضف زر. أخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

3. في آخر ظهرت استخراج النص في مربع الحوار ، حدد خلية فارغة لتحديد موقع النتيجة ، ثم انقر فوق OK .

ثم يتم استخراج جميع القيم العشرية في النطاق المحدد على الفور. انظر لقطة الشاشة:

استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel

مقالات ذات صلة:

• استخراج الوقت أو الساعة فقط في Excel

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...