TextBox ile Yüzde Hesaplama

Textbox'lara veri girişi yapıldığında oluşturulmuş biçimlendirme (sonuna TL ibaresi eklemek, binlik ayracı eklemek vs gibi)
işlemi var mıdır bilemiyoruz. Örnek belge de eklenmediğinden ve TextBox1'deki değer, TextBox2'deki değer nedir, nasıl değerler girilmektedir,
örneğin YÜZDE oranını yazdığınız TextBox2'de % karakteri var mıdır onu da bilemiyoruz.

Herneyse; TextBox1'de 1000, TextBox2'de 18 varsa TextBox3'te hangi sonucu almak istiyorsunuz?
Örneğin TextBox1'deki değerin %18'ini mi almak istiyorsunuz, yoksa 1000=(1+0,18)*x sonucudur diye düşünüp İÇYÜZDE hesabı mı istiyorsunuz?
Yoksa iki değerin ÇARPIMI/100 kodu yeterlidir.

.

Sayın Ömer BARAN
Textbox2 deki değer(yüzde oranı) elle girilmektedir,sabit bir değer değildir.Ayrıca Tesxtbox2 deki değerin sonuna % simgesi getirilebilirse daha anlaşılır olur diye düşünüyorum,Ayrıca bu kez örnek dosyayı eklemeyi de ihmal etmiyorum,İyi akşamlar.

Onur bey, yüzde işareti getirmek istediğiniz kodların sonuna & "%" ilavesini yapmanız yeterli olacaktır.

Sayın Admin cevabınız için teşekkür ederim,çözüm için önerdiğiniz eklentiyi hemen deneyeceğim,fakat asıl sorun yaşadığım durum , yüzde (%) eksiltme ile ilgili kodda meydana gelmektedir,İlginiz için teşekkür ederim,iyi akşamlar.

Excel'in ön yüzünde =A1*5% şeklinde bir formül ile kolayca yüzde hesabı yapabilirsiniz. Lakin VB tarafında bu işlem için normal matematik algoritması yapmak gerekir.
Yüzde hesabı için (Range("A1") * 5) / 100 şeklinde kod ile sonucu alabilirsiniz.
Umarım doğru anlamışımdır talebinizi.
Son olarak (Range("A1") * 5 ) / 100 & "%" derseniz de, bulunan yüzde oranının sonuna yüzde işareti ekler. Dilerseniz bu işareti başa da ekleyebilirsiniz.
Yüzde olarak gelen değer uzuyorsa, Round((Range("A1") * 5) / 100, 2) şeklinde de sadece iki ondalık karakter kalacak hale getirebilirsiniz.

Doğru sonuç için yazdığınız kodu aşağıdaki gibi değiştirin.

Sanırım TextBox3'e değer yazdırma satırlarında;
TextBox1 ve TextBox2'nin dolu/boş kontrolüyle, sonuç değerinin de YUVARLAnmasında yarar var.


.