Excel ile çalışıyorum. Belki size garip gelecek ancak zaman zaman kesirli sayılar yazmam gerekiyor. Örneğin 15 2/3 (on beş tam 2 bölü 3 yani) gibi bir sayı yazmak istediğimde 15 ile 2 arasında boşluk bırakmak canımı sıkıyor. Bu işi yapmanın en kolay bölü işaretinin sağ tarafındaki asteriks (*) düğmesine basmak. Böyle yazdığımda işim kolaylaşıyor. Böyle yazsam da daha sonra bu yıldızlar otomatik olarak boşluk haline dönüştürülse olmaz mı? Eğer olursa bunu nasıl yapacağım?
Bu isteğinizi başarmak için sayılar yıldızlı olarak yazıp daha sonra bir makro yardımı ile bul-değiştir şeklinde boşluklara dönüştürme yoluna gidebilirsiniz. Ancak yıldız karakterini direkt olarak arattırıp bulduramazsınız, çünkü Excel yıldız işaretine wildcard (bir veya birden fazla harfin yerine geçen bir işaret) uygulaması yapar.
Bu yüzden yıldız karakterini arattırırken ~* şeklinde bir notasyon kullanmalısınız. Aşağıdaki makro gerekli işlemi yapmaktadır.
Sub arabul()
Selection.Replace "~*", " "
End Sub
Bu makroyu yaratmak ve her Excel oturumunda açılmasını ve aktif olmasını sağlamak için aşağıdaki adımları takip edin:
1. Ctrl + N tuşlarına basarak yeni ve boş bir Excel belgesi açın.
2. Alt + F8 tuşlarına basın. Ekrana gelecek olan diyalog kutusunda makro ismi olarak "arabul" (tırnaklar yok) yazın ve Yarat düğmesine basın.
3. Makronuzun Sub ve EndSub bölümlerinin gösterildiği Visual Basic makro düzenleyicisi ekrana gelecek. Burada iki satır arasına Selection.Replace "~*", " " yazın.
4. Alt + F4 tuşlarına basarak Visual Basic makro düzenleyicisi penceresini kapatın.
5. Ctrl + S tuşlarına basın.
6. Dosyayı Personal.xls adında C:\Program Files\Microsoft Office\Office\XLStart klasörüne kaydedin.
Bundan böyle, kesirli sayılarınızı yıldız kullanarak yazabilirsiniz. Değiştirmek istediğiniz alanı seçili duruma getirip Alt + F8 tuşuna basın ve Arabul makrosunu çalıştırın. Yıldızlar otomatik olarak boşluklara dönüştürülecektir.