domingo, 12 de abril de 2015

ancho estandarde la columna y cambiar el nombre de hoja





- Hace un tiempo atrás los iqueños utilizamos software o programas que nos permitían crear de una manera fácil planillas o cuadros estadísticos, estos programas fueron evolucionando hasta llegar a lo que hoy conocemos como Excel estos programas fueron el Fortran, multical, Lotus 123 , Quatro también conocido como Qpro y así sucesivamente hasta que aparece los paquetes de Office una versión mejorada el Excel 4.2.
Office. - Es un paquete donde tiene diferentes aplicaciones como el Word, Excel, Power pointAccess una de las primeras versiones fue Office 4.2 luego aparecieron el Office 95, Office 97 , Office 2000 , Office Xp habiendo otros en el mercado como el Star Office entre otros la diferencia es que cada uno de ellos tiene diferentes aplicaciones y susimágenes y sonidos todos no son iguales.
Para nuestro estudio aprenderemos el Office 97/2000/XP
De aquí es de donde proviene la palabra Ofimática
Microsoft Excel.- Es una Hoja electrónica que nos permite construir planillas, cuadros estadísticos, registros de asistencias de notas etc.
Para ingresar tenemos que :
1.1 Ejecución del programa
1.-Click en el Botón Inicio
2.- Seleccionar Todos los Programas
3. - Click en Microsoft Excel
Nos mostrara la ventana de Bienvenida de Microsoft Excel.
1.2 El entorno de Microsoft Excel
Reconocimiento de la hoja Electrónica
  • Consta de 65536 Filas
  • Y Las columnas están en forma de letras de A hasta IV
  • Contiene Celdas cada una de ellas son separadas
  • Puedes trabajar y grabar varias hojas de trabajo en un mismo archivo
Una vez ingresado deberá reconocer las herramientas con las cuales podrá realizar sus hojas
Recuerde :
Click en Ver
Seleccionar Barra de Herramientas
Tiene que estar activas las Barras Estándar, Barra de Formato, y la Barra de Dibujo.
Una vez configurado Ver los diferentes modos normal, Vista previa de salto de pagina Nótese que no hay regla que activar.
Aprendiendo el uso de la Barra Estándar.
 Una Vez Conocido la Barra Estándar Conoceremos la Barra de Formato con ella podremos utilizar rápidamente los modos para arreglar nuestros textos
Aprendiendo el uso de la Barra de Formato.
 Aprendiendo el uso de la Barra de Dibujo.
 Una vez aprendido el uso de las barras de herramientas. Comenzaremos a ingresar datos en nuestra hoja aprenderemos a sumar, restar ,multiplicar y dividir.
Operaciones Matemáticas esta escrito en la celda B2 , Suma esta escrito en la celda B4 , Resta esta en la celda C4 y así sucesivamente cada dato deberá estar en una celda Unica.

 Aprendiendo a Ingresar Fórmulas Básicas
Una vez ingresado los datos comenzaremos a utilizar las formulas
Primero vamos a sumar para ello debes ponerte debajo o al lado de los números a sumar celda C7
Luego para que la maquina entienda que lo que vas ingresar es una formula se pone el símbolo =
=B5+B6 Presionar Enter y observen que sucedió

 Notaras que sale el resultado 30 y en la barra de formula aparecerá la formula utilizando un poco de sentido común realizar las demás operaciones recordando que el símbolo de multiplicación es el asterisco * y el de división es el Slahs /.
Una vez sacado el resultado utilizaremos herramientas de formato para mejorar nuestra hoja
Iluminar desde la celda B2 Hasta la celda E2 luego Click en el botón de combinar y centrar
Luego Click en el botón para crear Bordes elija cuadrado
Luego le daremos color de relleno y color de letra y así a toda la hoja
Para Cambiar de Nombre HOJA1 por Práctica 1
1.- Click con el botón derecho en Hoja1
2.- Click en Cambiar Nombre
3.- Digite practica1
4.- Click fuera del cuadro o presione la tecla Enter
Datos
Datos Numéricos.- Son lo Números 1,2,3,4 etc.
Datos Alfanuméricos .- Son las letras y números a,e,i,o,u, 1,2,3,
Para Guardar un archivo en su disquete
1.- Click en Archivo
2.- Click en Guardar Como
3.- Seleccionamos la unidad donde queremos Guardar Disco 3 ½ A
4.- Ingresamos el nombre del archivo Practica1
5.- Click en Guardar
Para abrir Un archivo de Excel en su disquete
1.- Click en Archivo
2.- Click en Abrir (También Usando la Barra Estándar Abrir)
3.- Seleccionamos la unidad en donde deseamos abrir el archivo disco 3 1/2 A
4.- Elegimos el archivo a Abrir Practica1
5.- Click en abrir
Técnicas Básicas De Bloques
Para dar ancho de columnas y Alto de filas
Si queremos que sea para todas las Columnas debemos seleccionar primero si es para una Columna nos ponemos en la Columna que deseamos anchar ejemplo
1.- Posiciónese en la celda A1
2.- Click en Formato
3.- Click Columna
4.- Click en ancho por defecto el alto es 10,71 para todas las Columnas
5.- Aumentamos a 25 el ancho de Columna Luego Click en Aceptar
Note la diferencia
Si queremos que sea para todas las filas debemos seleccionar primero si es para una fila nos ponemos en la fila que deseamos anchar ejemplo
1.-posiciónese en la celda A1
2.- Click en Formato
3.- Click Fila
4.- Click en alto por defecto el alto es 12,75 para todas las filas
5.- Aumentamos a 25 el alto de la fila Luego Click en Aceptar
Note la diferencia
Nota.- Puede ensanchar las filas y columnas poniendo el puntero del Mouse en uno de sus bordes Click sin soltar arrastre el Mouse y automáticamente Ud. podrá elegir el ancho o alto.
Manejo de Fuentes
Seleccionando en la barra de formato podemos dar formato a nuestras fuentes en la hoja electrónica ya sea para N , K, S o para alineación de Texto o color.
Manejo de Bloques
Para copiar un texto o Parte de la hoja
1.- Seleccione o Ilumine la parte a copiar
2.- Click en le botón de copiar en la Barra Estándar
3.- Click en la nueva posición a copiar
4.- Click en Pegar
Para Mover un texto o Parte de la hoja
1.- Seleccione o Ilumine la parte a Mover
2.- Click en le botón de Cortar(Mover) en la Barra Estándar
3.- Click en la nueva posición a Mover
4.- Click en Pegar
Para Borrar un texto o Parte de la hoja
1.- Seleccione o Ilumine la parte a Borrar
2.- Presione la tecla Supr y listo.
Para Deshacer y Rehacer
1.- Click en el Botón Deshacer en la barra Estándar
2.- Click en el Botón Rehacer en la barra Estándar
Recuerde que son sus botones amigos que le ayudaran mucho cuando tengas problemas
Para Buscar y Reemplazar
1.- Click en Edición
2.- Click en Reemplazar
3.- En donde dice Buscar se escribe la palabra que se desea buscar y reemplazar
4.- Debajo donde dice reemplazar con se pone el texto que reemplazara
5.- una vez encontrado Buscar siguiente hasta que termine la búsqueda.
Apariencia de la Hoja
Números
Para los numero nosotros debemos darles una configuración si se trata de dinero configurarlo a moneda, si se trata de fecha o de decimales ejm.
1.- Seleccione los datos a la configuración de numero
2.- Click en Formato
3.- Click en celdas
Aquí aparecerá los formatos para Numero elegir el indicado luego Click en aceptar.

 Alineación
Para los Textos nosotros debemos darles una configuración si se trata de Textos con una alineación diferente del texto normal ejm.
1.- Seleccione los datos a la configuración de Texto alineación
2.- Click en Formato
3.- Click en celdas
4.- Click en Alineación
Aquí aparecerá los formatos para Alineación elegir el indicado luego Click en aceptar.

 Fuente
Para los Textos nosotros debemos darles una configuración Peculiar si se trata de texto configurarlo
1.- Seleccione los datos a la configuración de Fuente
2.- Click en Formato
3.- Click en celdas
4.- Click en Fuentes
Aquí aparecerá los formatos para Fuentes elegir el indicado luego Click en aceptar.

 Bordes
Para los Bordes nosotros debemos darles una configuración si se trata de Bordes configurarlo de la siguiente manera ejm.
1.- Seleccione las Celdas a la configuración de Bordes
2.- Click en Formato
3.- Click en celdas
4.- Click en Bordes
Aquí aparecerá los formatos para Bordes elegir el indicado luego Click en aceptar.

 Tramas
Para el tramado nosotros debemos darles una configuración ejm.
1.- Seleccione los datos a la configuración de tramado
2.- Click en Formato
3.- Click en celdas
4.- Click en Tramas
Aquí aparecerá los formatos para Tramas elegir el indicado luego Click en aceptar.

 Uso de Funciones
En esta parte debe hacer uso de una herramienta en la cual utilizaremos funciones obviamente las mas usadas
Utilizaremos también el uso del asistente de funciones y formulas en la hoja practica. N°1
5.-Gestión del Libro
Manejo de Hoja
Para seleccionar Hoja.- En la parte inferior de la hoja hay unas barras hoja1, hoja2,hoja3 Para seleccionar simplemente haga Click en una de ellas.
Para insertar Hoja nueva
1.- Click en Insertar
2.- Click en hoja de calculo
Para Eliminar Hoja
1.- Click con el botón Izquierdo del Mouse En la Hoja que desee eliminar aparecerá un menú emergente
2.- Click en Eliminar
3.- Confirmar la eliminación de la hoja
Para ocultar y desocultar Hoja
1.- Seleccione la hoja a ocultar ejm(Hoja1)
2.- Click en Formato
3.- Click en Hoja Aparecerá diferentes opciones Ocultar Mostrar
4.- Seleccionar la opción deseada
Para Insertar Celdas , Filas y columnas
1.- Seleccione la celda ,fila o columna donde se desee Insertar
2.- Click en Insertar
3.- Elija la opción deseada.
6.- Ordenar Datos
Para esto necesitamos ingresar datos Practica N°2
Para Ordenar Datos
1.- Seleccionar los Datos a Ordenar
2.- Click en Datos
3.- Click en Ordenar
4.- Seleccione el Orden
5.-Click en Aceptar
Nota.- Puede Ordenar por nombres de campos en Forma Ascendente o Descendente puede activar la lista de encabezamiento

 Filtro y Auto filtro
1.- Seleccionar los Datos a Ordenar
2.- Click en Datos
3.- Click en Filtro
4.- Click en Auto filtro
Aparecerán unas flechas con las cuales podrás
Buscar datos con facilidad.
7.- Objetos en la hoja
Utilizaremos para ello la barra de Dibujo
Para Insertar Imágenes
1.- Click en Insertar
2.- Click en Imágenes
3.- Click en Imágenes prediseñadas
4.- Elija la imagen de su agrado
5.- Insertar
Para insertar letras Wordart
1.- Click en la barra de dibujo en la A inclinada de color azul
2.- Elija el estilo de letra
3.- Ingrese el texto
4.- Click en Aceptar

 Recuerde que con las Herramientas
De Wordart Podrá Ud. darle el diseño deseado como por ejemplo
El Utilizar ABC puede Ud.
Cambiar en forma curva o cuadrada el texto.
Así También cambiarle el color o modelo de Letra.
Para insertar Diagramas (Organigramas)
1.- Click en Insertar
2.- Click en Objeto
3.- Seleccionar MS Organization Chart 2.0
4.- Click en Aceptar
5.- Una vez Creado el Organigrama
6.- Click en Archivo
7.- Click en Salir y regresar al documento
Nota.- Los mas usados son el Subordinado
y el asistente.- Recuerde que Para trabajar mejor
1.-Click en Ver
2.-Click en 50%
Utilice las Herramientas de texto, Cuadros
Líneas para mejorar la presentación de su
Organigrama
8.-Manejo avanzado de datos
Protección de la Hoja
1.- Seleccionar la hoja a proteger
2.- Click en Herramientas
3.- Click en Proteger
4.- Click en Proteger la hoja (aparecerá un mensaje indicando que ingreses una contraseña)
5.- Ingresar la contraseña Click en aceptar , vuelva a escribir la contraseña Click en aceptar
 Desprotección de Hoja
1.- Seleccionar la hoja a proteger
2.- Click en Herramientas
3.- Click en Proteger
4.- Click en Desproteger la hoja (aparecerá un mensaje indicando que ingreses una contraseña)
5.- Ingresar Contraseña Click en Aceptar
9.- Manejo Avanzado de la hoja
Ventana Ocultar / Mostrar
1.- Click en Ventana
2.- Click en Ocultar/ Mostrar
Inmovilizar Paneles
1.- Posición de Celda
2.- Click en Ventana
3.- Click en Inmovilizar Paneles
10.- Representar datos en un gráfico
1.- Seleccionamos los datos Para crear un Grafico
2.- Click en botón para asistente de gráficos
3.- Aparecerá. Paso 1 de 4 Elija el tipo de
4.- Aparecerá. Paso 2 de 4 Elija Datos de Origen
Grafico a usar Luego Siguiente - Luego Siguiente.

3.- Aparecerá. Paso 3 de 4 Elija Opción de 4.- Aparecerá. Paso 4 de 4 Ubicación del grafico
Grafico Luego Siguiente Luego Click en Finalizar.

Como Imprimir
Para imprimir es recomendado indicarle a la maquina tu área de impresión
1.- Seleccionar toda el área que va imprimir
2.- Click en archivo
3.- Click en Área de Impresión
4.- Establecer Área de Impresión
5.- Guarde su trabajo y estará listo para configurar
Hay diferentes maneras de imprimir en Excel esta es una de ellas
1.- Click en Vista Previa
2.- Utilice márgenes para alinear los lados de su hoja
3.- Utilice configurar si sus datos no están completos
4.- En Escala dice ajustar al 100% del tamaño normal
elija 80% Click en aceptar
verifique si los datos estén bien alineados sino siga el mismo procedimiento hasta lograr mejoría.

También podrás poner encabezado y pie de página
Así como imprimir de forma vertical o Horizontal
La calidad de impresión depende de la impresora recomendable de 600ppp o mas.
Una vez configurada la pagina Click en imprimir
De igual manera funciona para los gráficos.

miércoles, 8 de abril de 2015

cambiar el color de las etiquetas de hojas ocultas y mostrar ojas ocultas en excel





te habrás dado cuenta que llevo con este 3 artículos relacionados a las hojas de un archivo de Excel. Mi objetivo es crear un add-in que contenga las siguientes opciones:
Ocultar una hoja de cálculo

  1. Seleccione las hojas de cálculo que desee ocultar.
    Cómo seleccionar hojas de cálculo
    Para seleccionar
    Haga lo siguiente
    Una hoja individual
    Haga clic en la etiqueta de la hoja.
    Pestaña de la hoja activa
    Si no ve la etiqueta que desea, haga clic en los botones de desplazamiento de etiquetas para que se muestre la etiqueta y, a continuación, haga clic en ella.
    Botones para desplazarse por las pestañas
    Dos o más hojas adyacentes
    Haga clic en la etiqueta de la primera hoja. Después, mantenga presionada la tecla MAYÚS mientras hace clic en la etiqueta de la última hoja que desea seleccionar.
    Dos o más hojas no adyacentes
    Haga clic en la etiqueta de la primera hoja. Después, mantenga presionada la tecla CTRL mientras hace clic en las etiquetas de las otras hojas que desea seleccionar.
    Todas las hojas de un libro
    Haga clic con el botón secundario en una etiqueta y, a continuación, haga clic en el comando Seleccionar todas las hojas del menú contextual.
    Sugerencia    Cuando se seleccionan varias hojas de cálculo, [Grupo] aparece en la barra de título en la parte superior de la hoja. Para cancelar la selección de varias hojas de un libro, haga clic en cualquier hoja no seleccionada. Si no está visible ninguna hoja no seleccionada, haga clic con el botón secundario en la etiqueta de una hoja seleccionada y, a continuación, haga clic en Desagrupar hojas en el menú contextual.
  2. En la ficha Inicio, en el grupo Celdas, haga clic en Formato.
    Imagen de cinta de Excel
  3. En Visibilidad, haga clic en Ocultar y mostrar y haga clic en Ocultar hoja.

Mostrar una hoja de trabajo oculta

  1. En la ficha Inicio, en el grupo Celdas, haga clic en Formato.
    Imagen de cinta de Excel
  2. En Visibilidad, haga clic en Ocultar y mostrar y haga clic en Mostrar hoja.
  3. En el cuadro Mostrar hoja, haga doble clic en el nombre de la hoja oculta que desee mostrar.
    NOTA   Sólo se puede mostrar una hoja de cálculo a la vez.
NOTA   Si las hojas de cálculo se esconden mediante código de Visual Basic para Aplicaciones (VBA) que asigna la propiedad xlSheetVeryHidden, no puede usar el comando Mostrar para mostrar estas hojas ocultas. Si usa un libro que contiene macros de VBA y encuentra problemas al trabajar con hojas ocultas, póngase en contacto con el propietario del libro para obtener más información.

Ocultar una ventana de libro

  • En la ficha Ver, en el grupo Ventana, haga clic en Ocultar.
    The Window group on the View tab
NOTA   Cuando cierre Excel, se le preguntará si desea guardar los cambios en la ventana del libro oculto. Haga clic en si desea que la ventana del libro se oculte la próxima vez que abra el libro.

Mostrar una ventana de libro oculta

  1. En la ficha Ver, en el grupo Ventana, haga clic en Mostrar.
    Excel Ribbon Image
    NOTA   Si la opción Mostrar no está disponible, el libro no contiene ventanas de libros ocultas.
  2. En Mostrar libro, haga doble clic en la ventana de libro que desee mostrar.

Ocultar o mostrar ventanas de libro en la barra de tareas de Windows

  1. Haga clic en el botón de Microsoft Office Imagen del botón de Microsoft Office, haga clic en Opciones de Excel y, a continuación, haga clic en la categoría Avanzadas.
  2. En Pantalla, desactive o active la casilla de verificación Mostrar todas las ventanas en la barra de tareas.





  1. Cambiar color a etiquetas de hojas.
  2. Etc, etc.
Los dos primeros temas ya están publicados para su consulta.
En lo que respecta a este artículo vamos a tener un formulario donde podremos visualizar el color de cada una de las etiquetas de las hojas de nuestro archivo de Excel, pero con la facilidad de poder cambiar el color de cada una de ellas desde el mismo formulario.
Llamar Diálogos prediseñados de Excel

Par poder cambiar seleccionar el color que tendrán las hojas, haremos uso de la paleta de colores de Excel mediante un cuadro de diálogo prediseñado Colores.
En VBA para poder mandar llamar la paleta de colores de Excel, usamos:
Application.Dialogs(xlDialogEditColor).Show

Cómo funciona el ejemplo

Al mandar llamar al formulario, el ListBox que contiene se llenará con el nombre de todas las hojas del archivo. Tiene un CheckBox que permitirá visualizar las hojas que estén ocultas.
Cada vez que seleccionemos un elemento del ListBox en la parte derecha habrá un TextBox que el color de fondo se llenará con el mismo color de la hoja elegida.
El botón Cambiar color llamadar a la paleta de colores para elegir el nuevo color de la hoja.


Código vba

Validamos si el archivo tiene la estructura protegida.
Ubicación: Hoja1.
Option Explicit
'
Private Sub CommandButton1_Click()
'Declaramos variables
Dim VentanaProtegida As Boolean
Dim EstructuraProtegida As Boolean
'
With ActiveWorkbook
    '
    'Damos valores a las variables
    VentanaProtegida = .ProtectWindows
    EstructuraProtegida = .ProtectStructure
    '
End With
'
'En caso de que el libro tenga la estructura protegida no contiúa.
If VentanaProtegida Or EstructuraProtegida Then
    MsgBox "Este comando no se puede ejecutar en un libro con estructura protegida.", _
           vbExclamation, "EXCELeINFO"
Else
    frmNombresHojas.Show
End If
'
End Sub
Declaración de variables públicas y Subrutina MostrarHojas.
Ubicación: Módulo1.
Public strNombreItem As String
Public longColorActual As Long
'
Sub MostrarHojas()
'
frmNombresHojas.lstVisibles.Clear
frmNombresHojas.txtColor.BackColor = longColorActual
'
For Each Hoja In ActiveWorkbook.Sheets
    '
    Select Case frmNombresHojas.CheckBox1.Value
    Case Is = True
        frmNombresHojas.lstVisibles.AddItem Hoja.Name
    Case Is = False
        If Hoja.Visible = True Then frmNombresHojas.lstVisibles.AddItem Hoja.Name
    Case Else
    End Select
    '
Next Hoja
'
End Sub
Código del formulario
Ubicación: Formulario.
'---------------------------------------------------------------------------------------
' Module    : frmNombresHojas
' Author    : MVP Excel, Sergio Alejandro Campos
' Date      : 07/11/2014
' Purpose   : Cambiar colores a etiquetas de hojas
'---------------------------------------------------------------------------------------
'
Private Sub CheckBox1_Click()
'
Call MostrarHojas
'
End Sub
'
Private Sub CommandButton5_Click()
Unload Me
End Sub
'
Private Sub CommandButton6_Click()
Const BGColor As Long = 13160660    'Color de fondo del diálogo
Const ColorIndexLast As Long = 32    'Índice el último color personalizado de la paleta
'
Dim myOrgColor As Double    'Color original del Index 32
Dim myNewColor As Double    'Color que es elegido en el diálogo
Dim myRGB_R As Integer    'Valores RGB del color que será
Dim myRGB_G As Integer    'mostrado en el diálogo
Dim myRGB_B As Integer    'como el color "Actual"
'
On Error GoTo ErrorHandler
'
'Guadar el color original, porque no lo queremos cambiar
'
myOrgColor = ActiveWorkbook.Colors(ColorIndexLast)
'
i_OldColor = Me.txtColor.BackColor
'
If i_OldColor = xlNone Then
    'Obtener valores RGB del fondo, para que el color original luzca en blanco
    Color2RGB BGColor, myRGB_R, myRGB_G, myRGB_B
Else
    'obtener los valores RGB del color anterior
    Color2RGB i_OldColor, myRGB_R, myRGB_G, myRGB_B
End If
'
If Application.Dialogs(xlDialogEditColor).Show(ColorIndexLast, _
                                               myRGB_R, myRGB_G, myRGB_B) = True Then
    'Se presiona "Aceptar"
    NewColor = ActiveWorkbook.Colors(ColorIndexLast)
    '
    Sheets(2).Tab.Color = NewColor
    Me.txtColor.BackColor = NewColor

    For i = 1 To ThisWorkbook.Sheets.Count
        '
        If Sheets(i).Name = strNombreItem Then
            Sheets(i).Tab.Color = NewColor
        Else
        End If
        '
    Next i
Else
    'Se presiona "Cancelar"
    NewColor = i_OldColor
    Me.txtColor.BackColor = i_OldColor
End If
'
Exit Sub
ErrorHandler:
MsgBox "Debes elegir una hoja de la lista", vbExclamation, "EXCELeINFO"
'
End Sub
Sub Color2RGB(ByVal i_Color As Long, _
              o_R As Integer, o_G As Integer, o_B As Integer)
o_R = i_Color Mod 256
i_Color = i_Color \ 256
o_G = i_Color Mod 256
i_Color = i_Color \ 256
o_B = i_Color Mod 256
End Sub
'
Private Sub lstVisibles_Click()
'Al dar click
'
'Declaramos variables
Dim Cuenta As Integer
Dim Numero As Integer
Dim j As Integer
Dim i As Integer
'
Cuenta = Me.lstVisibles.ListCount
'
'Validamos que haya un elemento seleccionado.
For j = 0 To Cuenta - 1
    If Me.lstVisibles.Selected(j) = True Then
        Numero = Numero + 1
    End If
Next j
'
'La hoja seleccionada se pasará al ListBox de hojas visibles.
For i = 0 To Cuenta - 1
    If Me.lstVisibles.Selected(i) = True Then
        strNombreItem = Me.lstVisibles.List(i)
        ColorActual = Sheets(Me.lstVisibles.List(i)).Tab.Color
        If ColorActual = False Then
            '
            Me.txtColor.BackColor = vbWhite
        Else
            Me.txtColor.BackColor = ColorActual
        End If
    End If
Next i
'
End Sub
'
Private Sub UserForm_Initialize()
'
longColorActual = Me.txtColor.BackColor
'
Call MostrarHojas
End Sub