כיצד להוציא ערך עשרוני מחרוזת ב-Excel?

המדריך הזה יראה לך כיצד להוציא רק ערך עשרוני מחרוזת ב-Excel.

הוצאת ערך עשרוני עם נוסחה ב-Excel
הוצאת ערך עשרוני עם VBA ב-Excel
הוצאת ערך עשרוני בקלות עם Kutools for Excel

הוצאת ערך עשרוני עם נוסחה ב-Excel

קיימות שתי נוסחאות שיכולות לעזור לך להוציא ערך עשרוני מחרוזת, בחר אחת מהן לפי הצורך שלך.

הנוסחה שאינה תלויה בסימן של הערכים:

בחר תא והקלד את הנוסחה הזו =ABS(A1-TRUNC(A1)) (A1 הוא התא ממנו ברצונך להוציא את הערך העשרוני) בשורת הנוסחאות, ולאחר מכן לחץ על מקש Enter. המשך לבחור בתא התוצאה הראשון, גרור את ידית המילוי כלפי מטה כדי לקבל את כל התוצאות. תוכל לראות שהערכים העשרוניים הוצאו ללא סימן כפי שמוצג בתמונה למטה.

הנוסחה שמשקפת את הסימן של הערכים:

בחר תא והקלד את הנוסחה הזו =A1-TRUNC(A1) (A1 הוא התא ממנו ברצונך להוציא את הערך העשרוני) בשורת הנוסחאות, ולאחר מכן לחץ על מקש Enter. המשך לבחור בתא התוצאה הראשון, וגרור את ידית המילוי כלפי מטה כדי לקבל את כל התוצאות. תוכל לראות שהערכים העשרוניים הוצאו עם הסימן כפי שמוצג בתמונה למטה.

הוצאת ערך עשרוני עם VBA ב-Excel

קיימת VBA שיכולה להוציא בצורה מרוכזת ערכים עשרוניים עם הסימן בלבד מחרוזות.

1. לחץ על Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. בחלון הקופץ, לחץ על Insert > Module, ולאחר מכן הדבק את הקוד הבא של VBA לתוך המודול.

VBA: הוצאת ערכים עשרוניים בלבד

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 כדי להריץ את הקוד. לאחר מכן קופץ חלון דו-שיח של Kutools for Excel, אנא בחר את הטווח ממנו ברצונך להוציא ערכים עשרוניים בלבד, ולחץ על כפתור ה-OK. ראה צילום מסך:

4. לאחר מכן קופץ חלון דו-שיח נוסף של Kutools for Excel, אתה צריך לבחור תא אחד כדי לאתר את הערכים העשרוניים שהוצאו. ראה צילום מסך:

תוכל לראות כי רק הערכים העשרוניים של המספרים שצוינו הוצאו והועברו לטווח מסוים כפי שמוצג בתמונה למטה.

הוצאת ערך עשרוני בקלות עם Kutools for Excel

אם אינך אוהב את שיטות הנוסחה וה-VBA, כאן אני מציג לך כלי שימושי – Kutools for Excel. עם הכלי Extract Text שלו, תוכל בקלות להוציא את כל הערכים העשרוניים מטווח ב-Excel.

1. בחר את הטווח עם הערכים העשרוניים שברצונך להוציא, ולאחר מכן לחץ על Kutools > Text > Extract Text. ראה צילום מסך:

2. בחלון הדו-שיח Extract Text, הקלד .* לתוך תיבת הטקסט, ולאחר מכן לחץ על כפתור ה-Add. לבסוף לחץ על כפתור ה-OK. ראה צילום מסך:

3. בחלון הדו-שיח Extract Text שעולה, בחר תא ריק כדי לאתר את התוצאה, ולאחר מכן לחץ על כפתור ה-OK.

לאחר מכן כל הערכים העשרוניים בטווח הנבחר הוצאו מיידית. ראה צילום מסך:

מאמרים קשורים:

• הוצאת זמן או שעה בלבד ב-Excel