Kelimeyi İstenen Yerden Virgül ile Ayırma

Bu dosya, bir hücredeki metnin ya da sayının belirlenen karakter sayısında bir virgülle bölünmesini sağlayan AYIR adlı kullanıcı tanımlı fonksiyonu örnekler. Örneğin 12 karakterlik bir metin 3'er karakterlik parçalara ayrılarak aralarına virgül konur.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: B2:D6 aralığında örnek veriler bulunur. B2 hücresinde "Değer" başlığı, B3:B6 hücrelerinde ise ayrıştırılacak örnek değerler yer alır: abcdefghijkl, A1B2C3D4E5F6, 1,02030405060708E+38 ve Excel Depo.
• Module1: AYIR fonksiyonunun VBA kodunu içeren modüldür.

Sayfada hazır formül bulunmaz; fonksiyon, sonuç hücrelerine okur tarafından yazılarak kullanılır.

Makrolar​

• AYIR(hucre, sayı): İki bağımsız değişken alır. Birincisi ayrıştırılacak hücre, ikincisi her parçanın karakter sayısıdır. Fonksiyon hücrenin görünen metnini (Text özelliği) okur, metni verilen karakter sayısı kadar parçalara böler, parçaların arasına virgül koyar ve sondaki fazla virgülü kaldırarak sonucu döndürür.

Makro bir düğmeyle çalıştırılmaz; çalışma sayfasında normal bir fonksiyon gibi çağrılır. Kodda dosya silme, dış bağlantı gibi zararlı bir işlem yoktur.
Fonksiyon hücrenin görünen metnini kullandığı için B5 hücresindeki gibi bilimsel gösterimle görüntülenen sayılar, ekranda göründüğü haliyle ayrıştırılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sonucun görüneceği bir hücre seçin, örneğin C3.
3. Fonksiyonu, ayrıştırılacak hücreyi ve parça uzunluğunu belirterek yazın:
   
   Excel formülü

   =AYIR(B3;3)

4. İngilizce Excel'de ayırıcı virgül olduğundan aynı çağrı şöyle yazılır:
   
   Excel formülü

   =AYIR(B3,3)

5. Formülü diğer satırlara kopyalayarak B4:B6 değerlerini de ayırın; parça uzunluğunu değiştirerek farklı sonuçlar elde edin.
6. Fonksiyonu başka bir dosyada kullanmak için Module1 içindeki kodu o dosyanın bir modülüne taşıyın ve dosyayı xlsm biçiminde kaydedin.