كيفية استخراج القيمة العشرية من سلسلة في إكسيل؟
سيخبرك هذا البرنامج التعليمي بكيفية استخراج القيمة العشرية فقط من سلسلة في Excel.
استخراج القيمة العشرية بالصيغة في Excel
استخراج القيمة العشرية باستخدام VBA في Excel
استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel
استخراج القيمة العشرية بالصيغة في Excel
هناك نوعان من الصيغ التي يمكن أن تساعدك على استخراج قيمة عشرية من سلسلة ، اختر واحدة منهم كما تريد.
الصيغة بغض النظر عن علامة القيم:
حدد خلية واكتب هذه الصيغة = ABS (A1-TRUNC (A1)) (A1 هي الخلية التي تريد استخراج القيمة العشرية منها) في "شريط الصيغة" ، ثم اضغط أدخل مفتاح. استمر في تحديد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج. يمكنك رؤية القيم العشرية المستخرجة فقط بدون علامة كما هو موضح أدناه لقطة الشاشة.
الصيغة التي تعكس علامة القيم:
حدد خلية واكتب هذه الصيغة = A1-TRUNC (A1) (A1 هي الخلية التي تريد استخراج القيمة العشرية منها) في "شريط الصيغة" ، ثم اضغط أدخل مفتاح. استمر في تحديد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج. يمكنك أن ترى أن القيم العشرية يتم استخراجها مع الإشارة كما هو موضح أدناه.
استخرج الأرقام العشرية بسهولة من نطاق محدد في Excel:
كوتولس ل إكسيل's استخراج النص تساعدك الأداة المساعدة على استخراج جميع القيم العشرية بسهولة من نطاق محدد كما هو موضح أدناه.
قم بتنزيله وجربه الآن! (مسار مجاني لمدة 30 يومًا)
استخراج القيمة العشرية باستخدام 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 .
ثم يتم استخراج جميع القيم العشرية في النطاق المحدد على الفور. انظر لقطة الشاشة:
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!