Mostrar un texto según el valor ingresado.

Una compañera de trabajo tenia un problema y me pidió ayuda para resolverlo.

Ella haría una evaluación, y según los resultados, mostraría un texto en una hoja de Excel.

• De 0 a 10 BAJO
• De 11 a 21 PROMEDIO BAJO
• De 22 a 32 PROMEDIO
• De 33 a 43 PROMEDIO ALTO
• De 44 a 52 ALTO

Era una aplicación de la función SI(lógica,valor positivo, valor negativo), pero anidada 5 veces lo que le llevaba a errores y en caso quisiera aumentar el número de rangos, se complicaría más.

Así que cree un modulo Visual Basic, en el libro de Excel y escribí esta función:

Public Function cmCategoria(ByVal Valor As Integer) As String

ARESULTADO = ""




Select Case Valor
Case 0 To 10
ARESULTADO = "BAJO"
Case 11 To 21
ARESULTADO = "PROMEDIO BAJO"
Case 22 To 32
ARESULTADO = "PROMEDIO"
Case 33 To 43
ARESULTADO = "PROMEDIO ALTO"
Case 44 To 52
ARESULTADO = "ALTO"
End Select

cmCategoria = ARESULTADO


End Function


Mi amiga, pudo utilizar esta función como si fuera una de las que viene integrada con el Excel y su mantenimiento le es mas facil.

Usar teclas de Función

Dentro de un formulario o un objeto para utilizar las teclas de función es la sentencia siguiente, por ejemplo que al presionar F2 se ejecute el botón Nuevo, hay que utilizar el evento KeyUp.

Private Sub frmCliente_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp

If e.KeyCode = Keys.F2 Then
btnNuevo_Click(sender, e)
End If

End Sub

Eso es lo necesario.


Previamente hay que configurar el formulario con su propiedad KeyPreview a True (correción gracias a Hitman).