Çözüldü TextBox ile Yüzde Hesaplama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

obsesyonur

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba
Userform üzerinde 3 adet textboxum var, bu textboxlardan faydalanarak yüzde çıkartma işlemi yapmak istiyorum.(Hesap makinası gibi).Yüzde çıkarmak için userforma eklediğim commandbuttona yazdığım kod "TextBox3 = CDbl(TextBox1.Value) * CDbl(TextBox2.Value) / 100 - CDbl(TextBox1.Value)" yanlış sonuç veriyor. Doğru sonucu almak için nasıl bir kodlama yapmalıyım. Not : Textbox1 : Yüzdesi hesaplanacak sayı , Textbox 2: Yüzde Oranı, Textbox 3 : Sonuç bölümüdür.
 
Çözüm
Merhaba textbox ile yüzde hesabı başlıklı soruma sitenin değerli ustalarının yardımları ve yönlendirmeleri sayesinde çözüm bulmuş olduğumu bildirir,emeği geçen herkese teşekkür ederim.Sorumun çözümünde kullandığım kodu da buraya yazarak,benzer sorunlar yaşayan veya yaşayacak herkese faydalı olmasını temenni ederim.
Kod:
You must log in to view content
(5 satır)
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 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.
 
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.

VBA:
You must log in to view content
(5 satır)

.
 
Merhaba textbox ile yüzde hesabı başlıklı soruma sitenin değerli ustalarının yardımları ve yönlendirmeleri sayesinde çözüm bulmuş olduğumu bildirir,emeği geçen herkese teşekkür ederim.Sorumun çözümünde kullandığım kodu da buraya yazarak,benzer sorunlar yaşayan veya yaşayacak herkese faydalı olmasını temenni ederim.
Kod:
You must log in to view content
(5 satır)
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
8
Üst