Bu dosya, hücrede metin olarak duran değerleri sayıya dönüştüren SayiCevir adlı özel bir fonksiyon içerir. Fonksiyon VBA ile yazılmıştır ve çalışma sayfasında normal bir Excel fonksiyonu gibi kullanılır.
Formül aşağı kopyalanarak H10:H12 hücreleri de dönüştürülür.
Dosyanın içeriği
- Sayfa1: H8:I12 aralığında örnek veriler bulunur. H8 hücresi "Metin" başlığıdır; H9:H12 hücrelerinde "+69", "58 KM", "+98" ve "2ExcelDepo" örnek metinleri yer alır.
- Module1: SayiCevir fonksiyonunun bulunduğu VBA modülüdür.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- SayiCevir: Parametre olarak bir hücre aralığı alır ve içindeki metne VBA'nın Val işlevini uygular. Val, metnin başındaki sayısal karakterleri okur ve sayı olarak döndürür; sayı olmayan karakterle karşılaşınca okumayı durdurur. Bu nedenle "58 KM" için 58, "+69" için 69 sonucu alınır. Metin sayıyla başlamıyorsa (örneğin "2ExcelDepo" gibi rakamla başlayanlarda yalnızca baştaki 2 alınır, harfle başlayanlarda ise) sonuç 0 olur.
- Makro bir düğmeyle çalıştırılmaz; fonksiyon olduğu için hücreden çağrılır.
- Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem bulunmaz.
Kullanılan formüller
Dönüştürme için hücreye aşağıdaki gibi bir çağrı yazılır:=SayiCevir(H9)
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
- Dönüştürülecek metinleri H sütunundaki ilgili satırlara girin.
- I9 hücresine =SayiCevir(H9) yazın ve Enter tuşuna basın.
- Formülü diğer satırlara doğru kopyalayın.
- Kendi çalışma kitabınızda kullanmak için Module1 içindeki fonksiyonu VBA düzenleyicisinden ilgili dosyaya aktarın ve dosyayı .xlsm olarak kaydedin.