Val

Söz dizimi​

Val(string)

• string: sayıya çevrilecek metin ifadesi; zorunludur, varsayılan değeri yoktur. Genellikle bir metin değişkeni ya da hücrenin Value özelliği verilir.

Metin nasıl okunur​

• Boşluklar: boşluk, sekme ve satır sonu karakterleri yok sayılır. Bu yüzden "1 250 gr" metni 1250, "4 5 6" metni 456 olarak okunur.
• Ondalık ayracı: yalnızca nokta (.) ondalık ayracı olarak tanınır. Bilgisayarınızın bölgesel ayarı virgül olsa bile "3.5" metni 3,5 olur; "3,5" metni ise virgülde durduğu için 3 olur.
• Tanınmayan karakterler: para simgesi ($), yüzde işareti (%), binlik ayracı olarak virgül ve harfler sayının parçası sayılmaz. Metin bunlardan biriyle başlıyorsa sonuç 0 olur.
• Birden çok nokta: "1.2.3" metninde ikinci noktada okuma durur ve sonuç 1,2 olur.
• Önek: &H öneki onaltılık, &O öneki sekizlik sayı olarak yorumlanır. Örneğin Val("&HFF") 255, Val("&O17") 15 verir.
• Sayı bulunamazsa: metin sayıyla başlamıyorsa ya da boş metinse sonuç 0 olur; hata üretilmez.

Val ile diğer dönüştürme yöntemleri​

• Val: "12.5 kg" gibi karışık metinlerden baştaki sayıyı almak için uygundur.
• CDbl: kullanıcının yerel biçimde yazdığı "12,5" gibi saf sayı metinleri için uygundur.
• IsNumeric: dönüştürmeden önce metnin sayıya benzeyip benzemediğini denetler.

1. Ölçü metninden sayıyı ayıklama​

Option Explicit

Sub OlculeriSayiyaCevir()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Ölçüler")

    ' 2-8. satırlardaki ölçü metinlerini sayıya çevirir
    For i = 2 To 8
        ws.Cells(i, 3).Value = Val(ws.Cells(i, 2).Value)
    Next i
End Sub

2. Özel biçimler ve tanınmayan karakterler​

Option Explicit

Sub KaliplariDene()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Metin Kalıpları")

    ' A sütunundaki her metin için Val sonucunu B sütununa yazar
    For i = 2 To 8
        ws.Cells(i, 2).Value = Val(ws.Cells(i, 1).Value)
    Next i
End Sub

3. Sipariş notlarından tutar hesaplama​

Option Explicit

Sub SiparisTutariHesapla()
    Dim ws As Worksheet
    Dim i As Long
    Dim adet As Double

    Set ws = ThisWorkbook.Worksheets("Sipariş Notları")

    For i = 2 To 7
        ' Nottaki baştaki sayıyı adet olarak al
        adet = Val(ws.Cells(i, 2).Value)

        If adet > 0 Then
            ws.Cells(i, 3).Value = adet
            ws.Cells(i, 5).Value = adet * ws.Cells(i, 4).Value
        Else
            ' Not sayıyla başlamıyorsa elle denetlenmesi için işaretle
            ws.Cells(i, 3).Value = "Kontrol"
            ws.Cells(i, 5).Value = "Hesaplanamadı"
        End If
    Next i

    ' Metin olan hücreler toplama katılmaz
    ws.Range("E8").Value = Application.WorksheetFunction.Sum(ws.Range("E2:E7"))
End Sub

Kullanırken dikkat edin​

• Virgüllü sayılara dikkat edin: Türkçe bölgesel ayarda sayılar virgülle yazılır, ancak Val yalnızca noktayı ondalık ayracı olarak tanır. "3,5" metni 3,5 değil 3 olarak okunur. Kullanıcıdan gelen verilerde virgül olabiliyorsa metni önce Replace ile düzeltin ya da bölgesel ayara duyarlı CDbl işlevini kullanın.
• Binlik ayracı ve para simgesi: "1,250" metni 1 olarak okunur, "$100" ve "%18" gibi metinler 0 verir. Para ya da yüzde biçimli metinlerde önce bu simgeleri Replace ile temizleyin, sonra dönüştürün.
• Sonuç 0 ise ne olduğunu ayırt edin: Val hem gerçek 0 değerinde hem de sayı bulunamadığında 0 döndürür. Ayrım gerekiyorsa önce metnin ilk karakterini ya da IsNumeric sonucunu denetleyin; üçüncü örnekteki gibi 0'ı "Kontrol" olarak işaretleyebilirsiniz.
• Hata değeri ve Null: Hücre #N/A gibi bir hata değeri içeriyorsa Val bu değeri işleyemez ve çalışma zamanı hatası oluşur. Null değer verilmesi de hata doğurur. Döngüde hücreleri okurken IsError ile denetim yapmak güvenlidir.
• Sayı hücrelerinde gerekmez: Val metin bekleyen bir işlevdir. Hücre zaten sayı içeriyorsa değeri doğrudan kullanın; sayıyı yeniden metne çevirip Val ile okumak bölgesel ayar yüzünden yanlış sonuç doğurabilir.
• İlgili konular:
  • CDbl, CLng, CInt: tüm metni sayıya çeviren, bölgesel ayara uyan dönüştürme işlevleri
  • IsNumeric: bir ifadenin sayıya çevrilebilir olup olmadığını denetler
  • Str ve CStr: sayıyı metne çevirir
  • Replace: metindeki virgül ve simgeleri değiştirmek için
  • Left, Mid, Right: metinden belirli bir parçayı ayırmak için
  • DEĞER: çalışma sayfasında metni sayıya çeviren işlev
  • SAYIDEĞERİ: ondalık ve binlik ayracını kendiniz belirterek metni sayıya çeviren işlev