Userform'da bulunan Textbox'da yüzde hesaplama

[basaksehirli]

[TR][TD]
Yapmak istediğim: evet + bazen cevaplarının, hayır cevabının yüzde kaçı olduğunu tespit etmek.
[/TD][/TR]
[TR][TD]
Bunun sonucunu userform'da textbox'da göstermek istiyorum. Her veri eklendiğinde sonuç textbox da yenilenmeli. Yardımcı olursanız sevinirim.
[/TD][/TR]

 

[Muzaffer Ali]

Merhaba.
A kolonuna veri eklemeyi hangi kod ile yapıyorsanız aşağıdaki kodu ondan sonra çalışacak şekilde ayarlayınız.

Sub Test()
    Dim Say As Long, Hayir As Long
    Say = WorksheetFunction.CountIf(Range("A:A"), "<>") - 1
    Hayir = WorksheetFunction.CountIf(Range("A:A"), "hayır")
    TextBox1.Text = FormatNumber(Hayir / (Say / 100), 2)
End Sub

 

[basaksehirli]

Hocam çok teşekkür ederim. Dosyayı biraz daha ayrıntıladım biraz zorlanarak kendi kodlarıma uyarlayabilirim sanırım. Ancak şöyle bir sorun oldu "bazen" cevabını evet cevabı ile değil hayır cevabıyla topluyor sanırım. O yüzden yüzdelik dilim yanlış çıkıyor. Yani şöyle düşünürsek; evet ve bazen cevabı başarılı, hayır cevabı ise başarısız olarak adledersek, aslında görmek istediğim başarı oranıdır.

 

[Muzaffer Ali]

Sanırım sizin istediğiniz sonuç normal yüzdeden farklı.

5 Evet
4 Bazen
1 Hayır

Şeklinde veri varsa oranlar aşağıdaki gibi olur.

Evet oranı %50
Bazen oranı %40
Hayır oranı %10

Siz yukardaki örneğe göre oranlar kaç olmalıdır diyorsunuz?

 

[basaksehirli]

Hocam evet ve bazen cevabını aynı olarak algılamalı. Yani evet + bazen = 9 hayır ise 1. sonuç olarak başarı oranımız %90.

 

[Muzaffer Ali]

Buton kodları aşağıdaki gibi olmalı.

Private Sub CommandButton1_Click()
    Dim Satır As Long
    Dim Say As Long, Basari As Long
    Dim sh As Worksheet
    Set sh = Sheets("sayfa1")
    Satır = Sheets("sayfa1").Range("A65536").End(3).Row + 1
    sh.Cells(Satır, "A") = TextBox2.Text

    Say = WorksheetFunction.CountIf(Range("A:A"), "<>") - 1
    Basari = Say - WorksheetFunction.CountIf(Range("A:A"), "hayır")
    TextBox1.Text = FormatNumber(Basari / (Say / 100), 2)
    
    MsgBox "Veri kaydedildi!", vbInformation, "Bilgi!"
End Sub

 

[basaksehirli]

Muzaffer hocam çok teşekkür oldu. Başarı oranını doğru hesaplıyor. Son olarak sormak istediğim textbox içinde % işaretini sabitleyebilir miyiz ? Yani oranımız % 90 olarak görünsün ve kaydetme veya düzeltme butonları ile kodu aktif etme dışında, uygulama açıldığı gibi A sutunundaki bilgileri sayıp textboxa gösterebilir mi ?

 

[basaksehirli]

Kodları Initialize alanına ekledim hocam. Açılışta görebiliyorum şimdi değeri.

 

[Muzaffer Ali]

O zaman aşağıdaki kodları kullanın.

Private Sub CommandButton1_Click()
    Hesapla
    MsgBox "Veri kaydedildi!", vbInformation, "Bilgi!"
End Sub

Private Sub UserForm_Initialize()
    Hesapla
End Sub

Sub Hesapla()
    Dim Satır As Long
    Dim Say As Long, Basari As Long
    Dim sh As Worksheet
    Set sh = Sheets("sayfa1")
    Satır = Sheets("sayfa1").Range("A65536").End(3).Row + 1
    sh.Cells(Satır, "A") = TextBox2.Text

    Say = WorksheetFunction.CountIf(Range("A:A"), "<>") - 1
    Basari = Say - WorksheetFunction.CountIf(Range("A:A"), "hayır")
    TextBox1.Text = FormatPercent(Basari / Say, 2)
End Sub

 

[basaksehirli]

Sağolun hocam iyi akşamlar

 

[basaksehirli]

 Say = WorksheetFunction.CountIf(Range("A:A"), "<>") - 1
    Basari = Say - WorksheetFunction.CountIf(Range("A:A"), "hayır")
    TextBox1.Text = FormatPercent(Basari / Say, 2)

Merhaba hocam ve diğer arkadaşlar. Yukarıdaki kod excel sayfasından işlem yapıyor ve sonucunda yüzdeyi gösteriyor. Ben şuan bu kodun listboxun 6. kolonundaki veriye göre yüzde hesaplama yapmasını istiyorum. 6. kolondaki veri ise excel sayfasında "e" sutununda bulunuyor. Örneğini bulamadım.

 

[basaksehirli]

Yardım ederseniz sevinirim. Veri sonucunu excel sutunlarından değil de listboxa göre yapmak istiyorum.