Excel'de bir metinden ondalık değeri nasıl çıkarabilirim?
Bu öğretici, Excel'de bir metinden yalnızca ondalık değeri nasıl çıkaracağınızı adım adım gösterecektir.
Excel'de formülle ondalık değeri çıkarın
Excel'de VBA ile ondalık değeri çıkarın
Kutools for Excel ile ondalık değeri kolayca çıkarın
Excel'de formülle ondalık değeri çıkarın
Metinden ondalık değeri çıkarmak için kullanabileceğiniz iki formül bulunur; ihtiyacınıza en uygun olanı seçin.
Değerlerin işaretinden bağımsız olan formül:
Bir hücre seçin ve aşağıdaki formülü yazın:=ABS(A1-TRUNC(A1)) (A1, ondalık kısmını çıkarmak istediğiniz hücredir). Formülü **Formül Çubuğu**'na yazdıktan sonra Enter tuşuna basın. İlk sonuç hücresini seçili bırakarak doldurma tutamacını aşağı doğru sürükleyin ve tüm sonuçları alın. Aşağıdaki ekran görüntüsünde gösterildiği gibi, yalnızca işaret içermeyen ondalık değerlerin çıkarıldığını göreceksiniz.
Değerlerin işaretini yansıtan formül:
Bir hücre seçin ve aşağıdaki formülü yazın: =A1-TRUNC(A1) (burada A1, ondalık kısmını çıkarmak istediğiniz hücredir). Formülü **Formül Çubuğu**'na yazdıktan sonra Enter tuşuna basın. İlk sonuç hücresini seçili bırakarak doldurma tutamacını aşağı doğru sürükleyin ve tüm sonuçları alın. Aşağıdaki ekran görüntüsünde gösterildiği gibi, ondalık değerlerin başarıyla çıkarıldığını göreceksiniz.
Excel'de bir Aralık seç içinden ondalık sayıları kolayca çıkarın:
Kutools for Excel'nin Metni Çıkart yardımcısı, aşağıdaki örnekte gösterildiği gibi bir sınırlı aralıktan tüm ondalık değerleri kolayca çıkarmanıza olanak tanır.
Şimdi indirin ve deneyin! (30 günlük ücretsiz deneme)
Excel'de VBA ile ondalık değeri çıkarın
Metinlerden yalnızca ondalık değerleri, işaretiyle birlikte toplu olarak çıkarabilen bir VBA kodu mevcuttur.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Açılan pencerede Ekle > Modül seçeneğine tıklayın ve 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 Sub3. 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ğerlerini çı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; çıkarılan ondalık değerlerin yerleştirileceği 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 ondalık değeri kolayca çıkarın
Formül ve VBA yöntemlerini beğenmiyorsanız, size pratik bir çözüm öneriyorum: Kutools for Excel! Metni Çıkart yardımcısı sayesinde Excel’de bir aralıktan tüm ondalık değerleri kolayca çıkarabilirsiniz.
1. Ondalık değerlerini çıkarmak istediğiniz aralığı seçin ve ardından Kutools > Metin > Metni Çıkart seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Metni Çıkart iletişim kutusundaki Metin kutusuna .* yazın, 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 Metni Çıkart iletişim kutusunda, sonucun yerleştirileceği boş bir hücre seçin ve ardından Tamam düğmesine tıklayın.
Ardından tüm ondalık değerler Seçili Aralık anında çıkarılır. Ekran görüntüsüne bakın:
Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.
İlgili Makaleler:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar