Calculation in real time in userform

[hhh]

Hi All,


Any brother here can help to provide Calculation in real time in userform.



I have a user form which displayed:

Good Average Poor
3 2 1

Result(%): 3/(3+2+1)* 30%

Any body can help.

 

[pedie]

Any brother here can help to provide Calculation in real time in userform.

[FONT=Courier New]Good Average Poor[/FONT]
[FONT=Courier New]3 2 1[/FONT]
[FONT=Courier New]Result(%): 3/(3+2+1)* 30%[/FONT]

yea perhaps sis


is your values Good Average Poor in different textboxes?
and when you click on button wants the results in another text box showing you the realtime result below evertime you hit the button?
Result(%): 3/(3+2+1)* 30%



try something like this...
this code can be shorter but for understanding purpose... =)

[/FONT][/FONT][FONT=Courier New][FONT=Courier New]Option Explicit[/FONT][/FONT]
[FONT=Courier New][FONT=Courier New]Private Sub CommandButton1_Click()[/FONT]
[FONT=Courier New]'3/(3+2+1)* 30%[/FONT]
[FONT=Courier New]Dim x ' Good[/FONT]
[FONT=Courier New]Dim y 'Averagne[/FONT]
[FONT=Courier New]Dim z 'Poor[/FONT]
[FONT=Courier New]Dim rel ' result[/FONT][/FONT]
[FONT=Courier New][FONT=Courier New]x = Me.Good.Value[/FONT]
[FONT=Courier New]y = Me.Ave.Value[/FONT]
[FONT=Courier New]z = Me.Poor.Value[/FONT][/FONT]
[FONT=Courier New][FONT=Courier New]rel = x / (x + y + z) * 30[/FONT]
[FONT=Courier New]Me.result.Value = Format(rel, "0.0%")[/FONT]
[FONT=Courier New]End Sub[/FONT]
[/FONT]

[FONT=Courier New][FONT=Courier New]

I am not quite sure what u want...

 

[ZVI]

Put four text boxes onto UserForm1, name it as txtGood, txtAverage, txtPoor, txtResult.
Then try the code shown below.

Code of Module1

' Code of Module 1
Sub FormShow()
  UserForm1.Show
End Sub

Code of UserForm1

' Code of UserForm1
' Textboxes of the form are: txtGood, txtAverage, txtPoor, txtResult

Private Sub UserForm_Initialize()
  txtGood = 3
  txtAverage = 2
  txtPoor = 1
  MyCalc
End Sub

Sub MyCalc()
  txtResult = Format(0.3 * Val(txtGood) / (Val(txtGood) + Val(txtAverage) + Val(txtPoor)), "0.0%")
End Sub

Private Sub txtAverage_Change()
  MyCalc
End Sub

Private Sub txtGood_Change()
  MyCalc
End Sub

Private Sub txtPoor_Change()
  MyCalc
End Sub