Archivo

Archive for 5 marzo 2010

Cómo trabajar con Excel 2007

5 marzo 2010 21 comentarios

El entorno de trabajo en la versión 2007.

Para los que veníamos acostumbrados al entorno típico de Excel con barras de herramientas y menús, es importante hacer una inspección detallada de las novedades de la versión 2007. Una de las más importantes es el marco de trabajo general, el cuál tiene los siguientes elementos más destacados.

  • Cinta de opciones
  • Fichas de la cinta de opciones
  • Grupos de opciones dentro de las fichas
  • Botón de Office
  • Barra de herramientas de acceso rápido
  • Barra de fórmulas
  • Barra de estado
  • Botones de visualización: (vista normal, vista diseño de página y vista salto de página)

Como considero que se aprende mejor cuando se obseravn las cosas en vivo y en directo, los invito a que observen el siguiente videotutorial dónde se muestra con detalle las novedades de Excel 2007.

Observa el video en nuestro nuevo sitio: ExpertoenExcel.Com

Ir al video

Anuncios

Cómo convertir números a letras en Excel

4 marzo 2010 2 comentarios

Excel cuenta con VBA ( Aplicaciones en Visual Basic ) lo que ayuda a programar rutinas o tareas repetitivas, entre muchas cosas más. Por ahora los dejo con un videotutorial que surgió por la consulta puntual de uno de nuestros seguidores. Espero les sea de utilidad.

Acá les agrego el código de VBA para que lo implementen*

* Este código es cortesía del Blog de Gonzalo_Conta

Function PesosCO(tyCantidad As Currency) As String
Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito <> 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito <= 2 Then
lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)
Else
lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque
End If
lnSegundoDigito = lnDigito
Case 3
lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque
lnTercerDigito = lnDigito
End Select
Else
lnBloqueCero = lnBloqueCero + 1
End If
lyCantidad = Int(lyCantidad / 10)
If lyCantidad = 0 Then
Exit For
End If
Next I
Select Case lnNumeroBloques
Case 1
PesosCO = lcBloque
Case 2
PesosCO = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosCO
Case 3
PesosCO = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosCO
End Select
lnNumeroBloques = lnNumeroBloques + 1
Loop Until lyCantidad = 0
PesosCO = "SON: (" & PesosCO & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 C.O.)"
End Function

Observa el video en nuestro nuevo sitio: ExpertoenExcel.Com

Ir al video