Importancia ID
Escrito por Jorge Romero
Notas: 01 En este artículo explico qué es un ID, cómo se puede crear como una serie de datos o de una forma sofisticada. Se explica cómo inmovilizar los paneles, y finalmente se indica cómo borrar varias hojas a la vez.
Tablas Dinámicas
(Parte 1)
Escrito por Jorge Romero
Notas: 02
Ahora escribo acerca de tablas dinámicas, esta herramienta ha sido
importante para el análisis de datos, para generar informes...
Los registros en Excel o en algunos otros orígenes de datos compatibles
con Excel se pueden resumir a través de tablas dinámicas, generando
un informe. Una tabla dinámica combina y compara datos, se puede colocar
filas por columnas y viceversa para generar diferentes vistas de los datos,
mostrar datos multiplicados por otro, agruparlos y mucho más.
Temario
Escrito por Jorge Romero
Temas: Este temario lo he escrito basado en la certificación de Microsoft Office Especialist 2007, con un toque de las actividades laborales realizadas en estos días. El objetivo es brindar un conjunto de herramientas para realizar análisis de datos con un enfoque comercial.
Diagrama de caja y bigote
Escrito por Jorge Romero
Notas: 03 En este documento muestro cómo realizar un diagrama de caja y bigote con Excel 2007, dado que no tiene este gráfico como plantilla.
Macro convierte X a valor 1
Escrito por Jorge Romero
Macro: 01 Este código convierte las celdas en blanco a ceros y donde existe una X esta se transforma en 1. para que funcioné es necesario tener en la primera columna valores en cada fila no nulos que determinen el número de registro. Por otro lado, los titulos correspondientes a cada columna deben ser continuos (ver ejemplo en archivo Excel):
Sub transformarXs()
' Se comprueba que la hoja tiene registros
If WorksheetFunction.CountA(Cells) = 0 Then
MsgBox "Hoja de cálculo vacía, sin registros"
Exit Sub ' termina la macro
End If
'comprobar que exista por lo menos un dato en celda 1,1
If Cells(1, 1) = "" Then
' Para el salto o avance de línea se utiliza Chr(10)
MsgBox ("LA HOJA NO TIENE EL FORMATO REQUISITO," + Chr(10) + " NO EXISTEN REGISTROS O EL PRIMER REGISTRO ESTÁ VACÍO")
Exit Sub ' si la celda (1, 1) está vacía termina la rutina
End If
nr = Range("A1").CurrentRegion.Rows.Count ' Obtenemos el número de renglones con registros
nc = Range("A1").CurrentRegion.Columns.Count ' Obtenemos el número de columnas con registros
If nr < 2 Or nc < 2 Then
MsgBox ("SON MUY POCOS REGISTROS PARA APLICAR TRANSFORMACIÓN")
Exit Sub ' si la celda fila 1 y columna 1 está vacía termina la rutina
End If
'es aquí donde comienza el algoritmo se sustituye toda x por 1 y cualquier oro valor por cero
renglones = Range("A1").CurrentRegion.Rows.Count
columnas = Range("A1").CurrentRegion.Columns.Count
For i = 2 To renglones
For j = 2 To columnas
If Cells(i, j).Value = "X" Then
Cells(i, j) = 1
Else
Cells(i, j) = 0
End If
Next j
Next i
End Sub