Excel'de bir metinden ondalık değer nasıl çıkarılır?

Bu öğretici, Excel'deki bir metinden yalnızca ondalık değeri çıkarmayı anlatacak.

Excel'de formülle ondalık değer çıkarın
Excel'de VBA ile ondalık değer çıkarın
Kutools for Excel ile kolayca ondalık değer çıkarın

Excel'de formülle ondalık değer çıkarın

Bir metinden ondalık değer çıkarmaya yardımcı olabilecek iki formül bulunmaktadır, ihtiyaçlarınıza göre birini seçin.

Değerlerin işaretinden bağımsız olan formül:

Bir hücre seçin ve bu formülü =MUTLAK(A1-TAM(A1)) (A1, ondalık değeri çıkarmak istediğiniz hücredir) Formül Çubuğuna yazın ve ardından Enter tuşuna basın. İlk sonuç hücresini seçili tutun ve tüm sonuçları almak için doldurma sapmasını aşağı çekin. Aşağıdaki ekran görüntüsünde gösterildiği gibi yalnızca işaret olmadan ondalık değerlerin çıkarıldığını görebilirsiniz.

Değerlerin işaretini yansıtan formül:

Bir hücre seçin ve bu formülü =A1-TAM(A1) (A1, ondalık değeri çıkarmak istediğiniz hücredir) Formül Çubuğuna yazın ve ardından Enter tuşuna basın. İlk sonuç hücresini seçili tutun ve tüm sonuçları almak için doldurma sapmasını aşağı çekin. Aşağıdaki ekran görüntüsünde gösterildiği gibi işaretli olarak ondalık değerlerin çıkarıldığını görebilirsiniz.

Excel'de VBA ile ondalık değer çıkarın

Metinlerden yalnızca işaretle kütle halinde ondalık değerleri çıkarabilen bir VBA bulunmaktadır.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Açılan pencerede Ekle > Modül'e tıklayın, ardından aşağıdaki VBA kodunu modüle yapıştırın.

VBA: Yalnızca ondalık değerleri çıkar

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. Kodu çalıştırmak için F5 tuşuna basın. Ardından bir Kutools for Excel iletişim kutusu açılır, lütfen yalnızca ondalık değerleri çıkarmak istediğiniz aralığı seçin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

4. Ardından başka bir Kutools for Excel iletişim kutusu açılır, çıkartılan ondalık değerleri yerleştirmek için bir hücre seçmeniz gerekir. Ekran görüntüsüne bakın:

Belirtilen sayıların yalnızca ondalık değerlerinin çıkarıldığını ve aşağıdaki ekran görüntüsünde gösterildiği gibi belirli bir aralığa yerleştirildiğini görebilirsiniz.

Kutools for Excel ile kolayca ondalık değer çıkarın

Formül ve VBA yöntemlerini sevmiyorsanız, size pratik bir araç olan Kutools for Excel'i tanıtayım. Metin Çıkart yardımcı programıyla, Excel'deki bir aralıktaki tüm ondalık değerleri kolayca çıkarabilirsiniz.

1. Çıkarmak istediğiniz ondalık içeren aralığı seçin ve ardından Kutools > Metin > Metin Çıkart'a tıklayın. Ekran görüntüsüne bakın:

2. Metin Çıkart iletişim kutusunda, Metin kutusuna .* yazın ve ardından Ekle düğmesine tıklayın. Son olarak Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

3. Başka bir açılan Metin Çıkart iletişim kutusunda, sonucu yerleştirmek için boş bir hücre seçin ve ardından Tamam düğmesine tıklayın.

Ardından, seçilen aralıktaki tüm ondalık değerler hemen çıkarılır. Ekran görüntüsüne bakın:

İlgili Makaleler:

• Excel'de yalnızca zaman veya saat çıkarın