Sayı ve Metinleri Ayırma

Bu dosya, bir hücredeki karışık içerikten sayıları ya da metni ayırmak için hazırlanmış Parçala adlı kullanıcı tanımlı fonksiyonu (UDF) içerir. Ayıklama işlemi VBScript.RegExp nesnesiyle yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: B sütununda "Metin" başlığı altında 6 örnek metin (B3:B8), D sütununda "Tip" başlığı altında her örnek için kullanılacak seçenek numarası (1, 2 veya 3) yer alır. Örnekler arasında "Excel Depo 2016", "ED26122016" ve "Sub Test()" gibi karışık değerler bulunur.
• Module1: Parçala fonksiyonunun VBA kodu.

Makrolar​

Dosyada çalıştırılan bir makro yoktur; yalnızca hücre içinden çağrılan Parçala fonksiyonu bulunur. Fonksiyon iki bağımsız değişken alır: ayrıştırılacak metin ve isteğe bağlı sayi seçeneği. Seçeneğe göre şu sonuçlar döner:

1. 1 (varsayılan): Rakam dışındaki tüm karakterler silinir ve kalan sayı döndürülür. Sonuç CLng ile sayıya çevrilir.
2. 2: Rakamlar silinir, geriye sayı dışındaki her şey kalır.
3. 3: A-Z harfleri dışındaki karakterler silinir (kalıpta ñ de korunur); büyük/küçük harf ayrımı yapılmaz.

Kod dosya silme veya dışarıya bağlantı gibi işlemler yapmaz; yalnızca verilen metin üzerinde çalışır. Seçenek 1 kullanıldığında metinde hiç rakam yoksa CLng boş değeri çevirmeye çalışacağından hata oluşabilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sonucun görüneceği hücreye fonksiyonu yazın. Örneğin B3 hücresindeki metin için yalnızca sayıları almak için:
   
   Excel formülü

   =Parçala(B3;1)

3. Excel'in İngilizce sürümünde ayırıcı virgüldür:
   
   Excel formülü

   =Parçala(B3,1)

4. İkinci değeri 2 yaparak sayı dışındaki karakterleri, 3 yaparak yalnızca harfleri alın. D sütunundaki Tip değeri bu amaçla bağımsız değişken olarak kullanılabilir.
5. Formülü aşağı doğru kopyalayarak diğer satırlara uygulayın.
6. Kendi verilerinizde fonksiyonun çalışması için kodun bulunduğu dosyayı makrolu (.xlsm) olarak kaydedin.