O

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

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

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
O
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: 
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)
Tarihe göre sırala Oylamaya göre sırala
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.

.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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: 
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

.
 
Oyla 1 Olumsuz oyla
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: 
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst