Jump to content

Calcular Media y Mediana de 2 o 3 textbox en un label


Recommended Posts

Hola, estoy haciendo un programa en VBA de excel y en uno de los formularios quiero realizar la media si uso dos textbox y la mediana si uso 3 textbox. El formulario es el siguiente (Es solo un pedazo del mismo):

[ATTACH]30734.vB[/ATTACH]

La columna S1 de textbox en orden descendente es la siguiente (txtPesoCorporalS1, txtTallaS1, txtTallaSentadoS1, txtEnvergaduraS1), las siguientes columnas mantienen la misma lógica, solo cambia el final dependiendo la columna que sea (si es columna S3, dice txtPesoCorporalS3).


Private Sub Calcular_Cineantropometria()[/CODE]

[/left]

[CODE]

On Error Resume Next

Dim PesoCorporalS1 As Double
Dim PesoCorporalS2 As Double
Dim PesoCorporalS3 As Double

' Datos Basicos
If (txtPesoCorporalS1.Text = "") Then
PesoCorporalS1 = 0
Else
PesoCorporalS1 = txtPesoCorporalS1.Text
End If
If (txtPesoCorporalS2.Text = "") Then
PesoCorporalS2 = 0
Else
PesoCorporalS2 = txtPesoCorporalS2.Text
End If
If (txtPesoCorporalS3.Text = "") Then
PesoCorporalS3 = 0
Else
PesoCorporalS3 = txtPesoCorporalS3.Text
End If

[LEFT] 'Media y Mediana
If (txtPesoCorporalS3 <> 0) Then
PesoCorporal = WorksheetFunction.Median(txtPesoCorporalS1, txtPesoCorporalS2, txtPesoCorporalS3)
lbPesoCorporal.Caption = PesoCorporal
Else
PesoCorporal = WorksheetFunction.Median(textPesoCorporalS1, txtPesoCorporalS2)
lbPesoCorporal.Caption = PesoCorporal
End If

[/LEFT]


[/CODE]

[left]

[/left]

Ahora bien, en el label lbPesoCorporal no me parece nada cuando relleno los textbox

Yo hice el siguiente procedimiento para activarlo.

[CODE]
Private Sub txtPesoCorporalS2_Change()
Calcular_Cineantropometria
End Sub
[/CODE]

Saludos y si me pueden dar una mano seria tremenda, porque pudiendo hacer eso solo, lo puedo aplicar a todo el formulario que es enorme.

post-99441-145877004864_thumb.jpg

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy