Metin kutularındaki değerler nasıl toplanır?
Diyelim ki aşağıdaki ekran görüntüsünde gösterildiği gibi, Textbox1 ve Textbox2’deki değerleri toplayıp sonucu Textbox3’e otomatik olarak yansıtmak istiyorsunuz. Excel’de bunu nasıl yapabilirsiniz?

Metin kutularındaki değerleri VBA koduyla toplayın
Metin kutularındaki değerleri VBA koduyla toplayın
İki metin kutusundaki değerleri toplayıp sonucu üçüncü metin kutusuna aktarmak için aşağıdaki VBA kodundan yararlanabilirsiniz.
1. Öncelikle üç metin kutusu ekleyin: Bunun için Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimi) seçeneğine tıklayıp bir metin kutusu çizin, ardından bu kutudan iki kopya oluşturun. Ekran görüntüsüne bakın:

2. Metin kutularını ekledikten sonra, kullanmak istediğiniz metin kutularını içeren sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini tıklayarak Microsoft Visual Basic for Applications penceresini açın. Ardından aşağıdaki VBA kodunu boş bir modüle kopyalayıp yapıştırın:
VBA kodu: Metin kutularındaki değerleri toplayın:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub

3. Ardından Textbox1 ve Textbox2’ye değerleri girin ve kodu çalıştırmak için F5 tuşuna basın ya da Çalıştır düğmesine tıklayın; hesaplanan sonuç hemen Textbox3’te görüntülenecektir. Ekran görüntüsüne bakın:

En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar