Casos resueltos de Excel

Convertir números a letras en Excel

2008-12-15T07:17:00.000-08:00

Con esta pequeña macro podrán convertir números en letras

Ejemplo

1002 --> mil dos

Para utilizarla ingresar el siguiente código en una macro. (En Excel presionar alt+F11 luego [Insertar] módulo y pegas lo siguiente)

Function num_letras(Numero As Double) As String
Dim Letras As String
Dim HuboCentavos As Boolean
Dim Decimales As Double
Decimales = Numero - Int(Numero)
Numero = Int(Numero)
Dim Numeros(90) As String
Numeros(0) = "cero"
Numeros(1) = "uno"
Numeros(2) = "dos"
Numeros(3) = "tres"
Numeros(4) = "cuatro"
Numeros(5) = "cinco"
Numeros(6) = "seis"
Numeros(7) = "siete"
Numeros(8) = "ocho"
Numeros(9) = "nueve"
Numeros(10) = "diez"
Numeros(11) = "once"
Numeros(12) = "doce"
Numeros(13) = "trece"
Numeros(14) = "catorce"
Numeros(15) = "quince"
Numeros(20) = "veinte"
Numeros(30) = "treinta"
Numeros(40) = "cuarenta"
Numeros(50) = "cincuenta"
Numeros(60) = "sesenta"
Numeros(70) = "setenta"
Numeros(80) = "ochenta"
Numeros(90) = "noventa"
Do
  '*---> Centenas de Millón
  If (Numero < 1000000000) And (Numero >= _
  100000000) Then
      If (Int(Numero / 100000000) = 1) And ((Numero _
      - (Int(Numero / 100000000) * 100000000)) < _
      1000000) Then
          Letras = Letras & "cien millones "
      Else
          Select Case Int(Numero / 100000000)
          Case 1
              Letras = Letras & "ciento"
          Case 5
              Letras = Letras & "quinientos"
          Case 7
              Letras = Letras & "setecientos"
          Case 9
              Letras = Letras & "novecientos"
          Case Else
              Letras = Letras & Numeros(Int(Numero _
              / 100000000))
          End Select
          If (Int(Numero / 100000000) <> 1) And _
          (Int(Numero / 100000000) <> 5) And (Int( _
          Numero / 100000000) <> 7) And _
          (Int(Numero / 100000000) <> 9) Then
              Letras = Letras & "cientos "
          Else
              Letras = Letras & " "
          End If
      End If
      Numero = Numero - (Int(Numero / 100000000) * _
      100000000)
  End If
  '*---> Decenas de Millón
  If (Numero < 100000000) And (Numero >= 10000000) _
  Then
      If Int(Numero / 1000000) < 16 Then
          Letras = Letras & Numeros(Int(Numero / _
          1000000))
          Letras = Letras & " millones "
          Numero = Numero - (Int(Numero / 1000000) _
          * 1000000)
      Else
          Letras = Letras & Numeros(Int(Numero / _
          10000000) * 10)
          Numero = Numero - (Int(Numero / 10000000) _
          * 10000000)
          If Numero > 1000000 Then
              Letras = Letras & " y "
          End If
      End If
  End If
  '*---> Unidades de Millón
  If (Numero < 10000000) And (Numero >= 1000000) _
  Then
      If Int(Numero / 1000000) = 1 Then
          Letras = Letras & " un millón "
      Else
          Letras = Letras & Numeros(Int(Numero _
          / 1000000))
          Letras = Letras & " millones "
      End If
      Numero = Numero - (Int(Numero / 1000000) _
      * 1000000)
  End If
  '*---> Centenas de Millar
  If (Numero < 1000000) And (Numero >= 100000) Then
      If (Int(Numero / 100000) = 1) And ((Numero _
      - (Int(Numero / 100000) * 100000)) < 1000) Then
          Letras = Letras & "cien mil "
      Else
          Select Case Int(Numero / 100000)
          Case 1
              Letras = Letras & "ciento"
          Case 5
              Letras = Letras & "quinientos"
          Case 7
              Letras = Letras & "setecientos"
          Case 9
              Letras = Letras & "novecientos"
          Case Else
              Letras = Letras & Numeros(Int(Numero _
              / 100000))
          End Select
          If (Int(Numero / 100000) <> 1) And (Int _
          (Numero / 100000) <> 5) And (Int(Numero _
          / 100000) <> 7) And (Int(Numero / 100000) _
          <> 9) Then
              Letras = Letras & "cientos "
          Else
              Letras = Letras & " "
          End If
      End If
      Numero = Numero - (Int(Numero / 100000) * _
      100000)
  End If
  '*---> Decenas de Millar
  If (Numero < 100000) And (Numero >= 10000) Then
      If Int(Numero / 1000) < 16 Then
          Letras = Letras & Numeros(Int(Numero _
          / 1000))
          Letras = Letras & " mil "
          Numero = Numero - (Int(Numero / 1000) * _
          1000)
      Else
          Letras = Letras & Numeros(Int(Numero / _
          10000) * 10)
          Numero = Numero - (Int((Numero / 10000)) _
          * 10000)
          If Numero > 1000 Then
              Letras = Letras & " y "
          Else
              Letras = Letras & " mil "
          End If
      End If
  End If
  '*---> Unidades de Millar
  If (Numero < 10000) And (Numero >= 1000) Then
      If Int(Numero / 1000) = 1 Then
          Letras = Letras & "un"
      Else
          Letras = Letras & Numeros(Int(Numero / _
          1000))
      End If
      Letras = Letras & " mil "
      Numero = Numero - (Int(Numero / 1000) * 1000)
  End If
  '*---> Centenas
  If (Numero < 1000) And (Numero > 99) Then
      If (Int(Numero / 100) = 1) And ((Numero - _
      (Int(Numero / 100) * 100)) < 1) Then
          Letras = Letras & "cien "
      Else
          Select Case Int(Numero / 100)
          Case 1
              Letras = Letras & "ciento"
          Case 5
              Letras = Letras & "quinientos"
          Case 7
              Letras = Letras & "setecientos"
          Case 9
              Letras = Letras & "novecientos"
          Case Else
              Letras = Letras & Numeros(Int(Numero _
              / 100))
          End Select
          If (Int(Numero / 100) <> 1) And (Int _
          (Numero / 100) <> 5) And (Int(Numero / _
          100) <> 7) And (Int(Numero / 100) <> 9) _
          Then
              Letras = Letras & "cientos "
          Else
              Letras = Letras & " "
          End If
      End If
      Numero = Numero - (Int(Numero / 100) * 100)
  End If
  '*---> Decenas
  If (Numero < 100) And (Numero > 9) Then
      If Numero < 16 Then
          Letras = Letras & Numeros(Int(Numero))
          Numero = Numero - Int(Numero)
      Else
          Letras = Letras & Numeros(Int((Numero _
          / 10)) * 10)
          Numero = Numero - (Int((Numero / 10)) * 10)
          If Numero > 0.99 Then
              Letras = Letras & " y "
          End If
      End If
  End If
  '*---> Unidades
  If (Numero < 10) And (Numero > 0.99) Then
     Letras = Letras & Numeros(Int(Numero))
     Numero = Numero - Int(Numero)
  End If
Loop Until (Numero = 0)
'*---> Decimales
If (Decimales > 0) Then
  Letras = Letras & " con "
  Letras = Letras & Format(Decimales * 100, "00") _
  & "/100 centavos"
End If
num_letras = Letras
End Function

Luego para llamarla desde una celda de Excel lo haces con la siguiente función "=num_letras(B11)", donde B11 es la dirección de celda que tiene el número.

Trucos Excel

2008-12-15T03:49:00.000-08:00

1.- En la tecla F4 se almacena el último formato u orden realizada, por ejemplo al aplicar negrita a una celda, podremos movernos a otra celda y apretar la tecla F4 para aplicarle negrita también.

2.- Colocar hora actual: presionamos las teclas "CTRL" + ":" simultaneamente

Utilizar Asistente(Assistant) de Excel

2008-12-12T04:08:00.000-08:00

A veces resulta entretenido utilizar el asistente de Excel para enviar mensajes, alertas o ayuda al usuario

Algunos ejemplos de utilización del Assistant

1.- Para abrir el asistente

With Application.Assistant
.On = True
.Visible = True
.Animation = msoAnimationWritingNotingSomething
End With

Visualización:
2.- Para ocultarlo:

With Application.Assistant
.Visible = False
End With

3.-Para enviar un mensaje desde el asistente:

Application.Assistant.Visible = True
Application.ScreenUpdating = True
Application.Assistant.DoAlert _
"CasosResueltos.BlogSpot.com", _
"Gracias por tu visita", _
msoAlertButtonOK, _
msoAlertIconInfo, _
msoAlertDefaultFirst, _
msoAlertCancelFirst, False

Visualización:

Etas son solo algunas de las configuraciones del Assistant de Excel, espero ustedes descubran las demás.

Maximizar un UserForm

2008-12-12T03:44:00.000-08:00

Un ejemplo siempre útil que nos permite maximizar un UserForm al tamaño de la pantalla del usuario.

Para esto tenemos dos opciones:

1.- Maximiza el UserForm a la zona que abarcan las celdas de Excel.

With UserForm1
     .Width = Application.UsableWidth
     .Height = Application.UsableHeight
End With
Application.WindowState = xlMaximized

2.- Maximiza el UserForm a la resolución de la pantalla.

With UserForm1
    .Width = Application.Width
    .Height = Application.Height
End With

Visualizar Rango de Celdas en una Imagen

2008-12-10T04:28:00.000-08:00

En esta oportunidad veremos como visualizar un rango de celdas en una imagen y que está se actualice automáticamente

1.- Creamos un nuevo documento Excel

2.- Agregamos la barra de controles a la planilla, para ello ingresar al menu [ver][Cuadro de controles]

3.- En el cuadro de controles, seleccionamos e insertamos la imagen a la Hoja1

Así:

4.- Ahora modificaremos la función Fx de la imagen a "=Hoja2!A1:B10" (o el rango de celdas que deseemos), al ingresar la función, podremos visualizar el contenido de las celdas A1:B10 de la Hoja2.

Si vamos a la Hoja2

Y modificamos el aspecto

Y regresamos a la Hoja1, veremos que la imagen se actualizó automáticamente.

Saludos espero les sirva,

Sumar Horas en Excel

2008-12-02T04:06:00.000-08:00

Cuando deseamos sumar horas en Excel por ejemplo:

Lo que debemos hacer es aplicar una simple función suma()

Pero el resultado obtenido no es el deseado, ya que, la suma de las horas del ejemplo es 36 horas y 59 minutos, pero, obtenemos 12 horas y 59 minutos, esto se debe a que Excel tiene por defecto el formato hh:mm, lo que significa que pierde 1 día o 24 horas.

Para poder visualizar la suma correcta de horas, debemos ir a formato de la celda en que realizamos la suma y agregar un formato de celda personalizada con la siguiente nomenclatura [h]:mm

Luego podremos visualizar la suma de horas correctamente.