lunes, 29 de abril de 2019

Funciones de Visual Basic Excel.

Realice el siguiente diseño y escriba los datos que aparecen en la hoja de calculo:

Copie el siguiente código:
Private Sub ComboBox1_Click()
  Dim myRange As Range

  If Trim(TextBox1) = "" Or Trim(TextBox2) = "" Then
    MsgBox "Debe escribir una celda", vbExclamation, "Error"
    Exit Sub
  End If
  With Hoja1
  Set myRange = .Range((TextBox1 + ":" + TextBox2))

  Select Case ComboBox1.ListIndex
    Case 0
      TextBox3 = Application.WorksheetFunction.Sum(myRange)
      .Cells(6, 2) = "Suma"
    Case 1
      TextBox3 = Application.WorksheetFunction.Min(myRange)
      .Cells(6, 2) = "Minimo"
    Case 2
      TextBox3 = Application.WorksheetFunction.Max(myRange)
      .Cells(6, 2) = "Maximo"
  End Select

  .Cells(6, 1) = Val(TextBox3)

  End With
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Suma"
  ComboBox1.AddItem "Minimo"
  ComboBox1.AddItem "Maximo"

End Sub

Ejecute el programa, visualice los cambios en la hoja de calculo Hoja1 y en el formulario.

Tenga en cuenta:
La función TRIM, es propia de Visual Basic, lo que hace es eliminar los espacios a la izquierda y derecha de un texto, o de un cuadro de texto.
Esta instrucción:
Trim(TextBox1) = ""
Lo que hace es preguntar si el cuadro de texto está vacío.