TextBox Üzerinde Dört İşlem Yapma

Bu dosya, bir UserForm üzerindeki TextBox'a yazılan matematiksel ifadenin (örneğin 12*5+3) VBA ile hesaplanıp sonucun mesaj kutusunda gösterilmesini sağlar. Toplama, çıkarma, çarpma ve bölme işlemleri tek bir ifade içinde birlikte kullanılabilir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A1:S12 aralığında formül içermeyen boş bir çalışma sayfasıdır. Sayfaya özel bir makro bulunur.
• UserForm1: Bir TextBox (TextBox1) ve bir düğme (CommandButton1) içeren hesaplama formudur.
• Module1: Formu açan exceldestek makrosunu barındırır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodlarda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur.

• exceldestek: UserForm1'i görüntüler. Alt+F8 ile makro listesinden çalıştırılır.
• CommandButton1_Click: Düğmeye basıldığında TextBox1 boşsa işlem yapmadan çıkar. Doluysa metni Evaluate ile hesaplar ve sonucu "Sonuc=" başlığıyla MsgBox içinde gösterir.
• Worksheet_SelectionChange: Sayfada seçilen hücrenin sütununun yazı boyutunu 30 yapar. Önceki seçilen sütun 10 punto boyutuna döner.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Alt+F8 tuşlarıyla exceldestek makrosunu seçip çalıştırın; form açılır.
3. TextBox'a işlemi yazın, örneğin 150/4+20.
4. Düğmeye tıklayın; sonuç mesaj kutusunda görüntülenir.
5. Başka bir işlem için formu yeniden kullanın. Sayfada hücre seçtiğinizde ilgili sütunun yazı boyutunun büyüdüğünü görürsünüz.

Yazılan ifade Excel formül kurallarına uymalıdır; ondalık ayırıcı olarak nokta kullanılır ve ifadenin başına "=" işareti konmaz.