Esta nota viene a colación de una consulta de un colega de trabajo. Él necesitaba calcular la cantidad de días entre dos fechas, pero tomando en cuenta sólo días de trabajo (días hábiles).
Excel cuenta con funciones que permiten hacer estos cálculos con facilidad: NETWORKDAYS y WORKDAY. Estas funciones están disponibles sólo si tenemos instalado el complemento Analysis ToolPak.
Veamos un ejemplo cómo usar estas funciones.
Supongamos estas fechas de comienzo y final de un período:
Podemos calcular la cantidad de días transcurridos fácilmente, restando B2-B1, lo que nos dará 91 días
Si queremos excluir los fines de semana (sábados y domingos) de nuestra cuenta, usamos la función NETWORKDAYS
Esta función cuenta con un tercer argumento que nos permite incluir feriados en nuestra cuenta. En el rango E2:E4 ponemos esta lista de feriados (Argentina)
Nuestra función será ahora =NETWORKDAYS(B1,B2,E2:E4) y el resultado 62 días
La función WORKDAY nos permite calcular la fecha de finalización, si sabemos la fecha de comienzo y la cantidad de días requeridos. Esta función, como NETWORKDAYS, toma en cuenta los fines de semana. También cuenta con un tercer argumento opcional para agregar listas de feriados.
Por ejemplo si empezamos nuestro proyecto el 1ro. de noviembre de 2006 y necesitamos de 10 días hábiles para concluirlo, le fecha de terminación será el 15 de noviembre del 2006 (hay 2 fines de semana en el período).
La función es =WORKDAY(B12,B13,E2:E4)
Categorías: Funciones&Formulas_
Technorati Tags: Excel
Sugerencias y ayuda para Excel en español. Ejemplos de funciones y fórmulas, gráficos, automatización con Vba, Power Query y PowerPivot
miércoles, diciembre 06, 2006
lunes, noviembre 27, 2006
Crear varias hojas en un cuaderno de Excel en una operacion
Si tenemos un cuaderno Excel con varias hojas y queremos borrar algunas de ellas, podemos hacerlo en una sola operación. Sencillamente, elegimos las hojas a ser borradas (clic mientras apretamos la tecla Ctrl) y luego en el menú contextual elegimos Eliminar.
En cambio, Excel no tiene ningún método para crear varias hojas en una sola operación. Por ejemplo, si queremos crear un cuaderno con 12 hojas, una para cada mes del año; o peor aún, uno con 52 hojas, una para cada semana.
Una solución bastante exótica sería definir el número de hojas en un nuevo libro (Opciones—General—Número de hojas en un nuevo libro) a 100, o algo así. Luego podríamos borrar de una vez las hojas excedentes.
Una solución más razonable es crear una macro que automatice la tarea de agregar hojas al cuaderno.
En un módulo del editor de Vba ponemos este código
Sub add_sheets()
Dim nbrSh As Integer, Counter As Integer
nbrSh = Application.InputBox(prompt:="Cuantas hojas agregar?", _
Title:="Agregar Hojas", Type:=1)
Counter = 0
While Counter < nbrSh
Sheets.Add After:=Sheets(Sheets.Count)
Counter = Counter + 1
Wend
End Sub
O esta otra, mas sintetica
Dim NrSh As Integer
On Error Resume Next
NrSh = Application.InputBox(prompt:="Cuantas hojas agregar", Title:="Agregar Hojas", Type:=1)
Sheets.Add after:=Sheets(Sheets.Count), Count:=NrSh
Esta macro la podemos guardar en el Personal.xls, de manera que esté disponible cada vez que trabajemos con Excel. También podemos asociarle una combinación de teclas (método abreviado) como Ctrl+Mayúsculas+A, para facilitar su uso.
Categorías: Varios_
En cambio, Excel no tiene ningún método para crear varias hojas en una sola operación. Por ejemplo, si queremos crear un cuaderno con 12 hojas, una para cada mes del año; o peor aún, uno con 52 hojas, una para cada semana.
Una solución bastante exótica sería definir el número de hojas en un nuevo libro (Opciones—General—Número de hojas en un nuevo libro) a 100, o algo así. Luego podríamos borrar de una vez las hojas excedentes.
Una solución más razonable es crear una macro que automatice la tarea de agregar hojas al cuaderno.
En un módulo del editor de Vba ponemos este código
Sub add_sheets()
Dim nbrSh As Integer, Counter As Integer
nbrSh = Application.InputBox(prompt:="Cuantas hojas agregar?", _
Title:="Agregar Hojas", Type:=1)
Counter = 0
While Counter < nbrSh
Sheets.Add After:=Sheets(Sheets.Count)
Counter = Counter + 1
Wend
End Sub
O esta otra, mas sintetica
Dim NrSh As Integer
On Error Resume Next
NrSh = Application.InputBox(prompt:="Cuantas hojas agregar", Title:="Agregar Hojas", Type:=1)
Sheets.Add after:=Sheets(Sheets.Count), Count:=NrSh
Esta macro la podemos guardar en el Personal.xls, de manera que esté disponible cada vez que trabajemos con Excel. También podemos asociarle una combinación de teclas (método abreviado) como Ctrl+Mayúsculas+A, para facilitar su uso.
Categorías: Varios_
Technorati Tags: Excel
sábado, noviembre 25, 2006
Excel – Comentarios ocultos en celdas.
Excel permite incluir comentarios en las celdas. Esta utilidad es muy práctica, en especial cuando queremos dejar indicaciones o explicaciones relacionadas con el contenido de la celda (o de un rango que contiene a la celda).
En ciertas situaciones Excel hace difícil ver el comentario.
Por ejemplo en esta tabla
El pequeño triángulo rojo en el ángulo superior derecho de la celda nos indica que incluye un comentario. Este comentario se hace visible en el momento que apuntamos a la celda con el mouse o la seleccionamos
No todo el contenido del comentario es visible (ver más adelante el cuadro de texto completo).
Una de las formas de solucionar este problema es volver el comentario visible con el menú Mostrar Comentario
y luego cambiar el tamaño del cuadro de texto que contiene el comentario
Luego volvemos a ocultar el comentario y más tarde, cuando seleccionemos la celda, veremos el comentario en un su totalidad.
Sin embargo existe otro problema. Supongamos que queremos que los encabezamientos de las columnas queden fijos. Para eso seleccionamos la fila 2 y aplicamos Inmovilizar Paneles del menú Ventana.
Ahora supongamos que nos movemos a la fila 50 y seleccionamos la celda A1 para ver que dice el comentario. Lo que veremos es esto
El comentario queda oculto!!
Para solucionar este problema usaremos una macro sencilla. En un modulo de macro del editor de Vba ponemos
Sub show_comm()
On Error Resume Next
MsgBox ActiveCell.Comment.Text
On Error GoTo 0
End Sub
Para facilitar el uso de esta macro le hemos asociado la combinación de teclas Shift+Ctrl+M
Ahora podemos seleccionar la celda con el comentario, apretar la combinación de teclas lo que producirá un mensaje en el centro de la pantalla con el contenido del comentario
Categorías: Varios_
En ciertas situaciones Excel hace difícil ver el comentario.
Por ejemplo en esta tabla
El pequeño triángulo rojo en el ángulo superior derecho de la celda nos indica que incluye un comentario. Este comentario se hace visible en el momento que apuntamos a la celda con el mouse o la seleccionamos
No todo el contenido del comentario es visible (ver más adelante el cuadro de texto completo).
Una de las formas de solucionar este problema es volver el comentario visible con el menú Mostrar Comentario
y luego cambiar el tamaño del cuadro de texto que contiene el comentario
Luego volvemos a ocultar el comentario y más tarde, cuando seleccionemos la celda, veremos el comentario en un su totalidad.
Sin embargo existe otro problema. Supongamos que queremos que los encabezamientos de las columnas queden fijos. Para eso seleccionamos la fila 2 y aplicamos Inmovilizar Paneles del menú Ventana.
Ahora supongamos que nos movemos a la fila 50 y seleccionamos la celda A1 para ver que dice el comentario. Lo que veremos es esto
El comentario queda oculto!!
Para solucionar este problema usaremos una macro sencilla. En un modulo de macro del editor de Vba ponemos
Sub show_comm()
On Error Resume Next
MsgBox ActiveCell.Comment.Text
On Error GoTo 0
End Sub
Para facilitar el uso de esta macro le hemos asociado la combinación de teclas Shift+Ctrl+M
Ahora podemos seleccionar la celda con el comentario, apretar la combinación de teclas lo que producirá un mensaje en el centro de la pantalla con el contenido del comentario
Categorías: Varios_
Technorati Tags: Excel
Suscribirse a:
Entradas (Atom)