Buscar en este blog

Loading...

Friday, November 19, 2010

Atascado: No funciona el botón de WIFI o conexiones inhalámbricas del portátil

Puede deberse a que en Conexiones de red del sistema, por ejemplo en un Windows XP, el servicio de redes inhalámbricas esté desactivado: lo puede haber deshabilitado el mismo usuario. Investigar por ahí pulsando activar, reparar, etc en la conexión.

Si no, habría que pensar en algo físico, que el botón esté deteriorado por ejemplo.

Tuesday, July 27, 2010

Gráfico de sectores en excel

Selecciona dos columnas, una con los títulos y otra con los datos.

Luego elige insertar grafico->circular y siguiente a todo.

El gráfico es sensible a los cambios y a los filtros.

Monday, July 26, 2010

Excel - Insertar imagen en Celda


La puedes insertar en una celda si primero configuras la celda al tamaño que la necesitas, despues insertas la imagen, ajustas el tamaño de la imagen para que quepa en la celda y finalmente.. le das click derecho a la imagen, seleccionas "formato de imagen"/propiedades y escoges "mover y cambiar tamaño con las celdas" con esto puedes manejar la celda copiarla incluso ordenar la tabla.

Thursday, July 15, 2010

Convertir excel en access - Hojas en tablas

En Access y con una base de datos abierta nos vamos a Archivo->Obtener Datos Externos->Importar. Elegir el libro que se desea y seguir el asistente.
Es posible importar las hojas como tablas y elegir detalladamente los campos involucrados.
Tambien ayuda a normalizar los datos (crear tablas relacionadas para evitar duplicados innecesarios de datos y tener organizada la base de datos).

Wednesday, July 14, 2010

Trucos para Excel

Escribir fórmulas sin precederlas de los signos = o + (Excel 2000):
Cuando escribimos una fórmula siempre debemos escribir el signo de igualdad = o de suma + al iniciar, pues de lo contrario Excel tomará como texto al contenido de la celda. No obstante, si nuestro trabajo consiste en escribir diariamente una gran cantidad de fórmulas quizás querramos ahorrar ese paso.
Vamos al menú [Herramientas] [Opciones]. Esta acción te mostrará el cuadro de diálogo correspondiente. Seleccionamos la solapa [Transición], activamos la casilla "Introducción de fórmulas para transición" y hacemos clic en el botón [Aceptar].
Si deseamos escribir una cadena como texto, podemos hacerlo precediéndola de un apóstrofe ( " ).



Comprimir imágenes en Excel XP:
Cuando insertamos imágenes de alta calidad en archivos de Excel o Word, el archivo que se genera puede adquirir un tamaño muy elevado si no tomamos la precaución de reducir previamente los archivos gráficos.Lo primero será visualizar la barra de herramientas de Imagen para lo que, si no la tenemos cargada, tendremos que acudir al menú Ver/Barras de herramientas/Imagen.
Pincharemos sobre el icono Comprimir imágenes, representado por una imagen con cuatro flechas, una en cada esquina. Hecho esto, aparecerá una nueva ventana en la que podremos indicar los parámetros que afectarán a dicha compresión. Así, podremos cambiar la resolución según sea el destino final del documento que estamos tratando (Web o impresión), así como otras opciones menores.De esta forma, reduciremos considerablemente el tamaño que ocupan en bruto dentro de nuestro documento, creando un fichero mucho más manejable y sencillo de copiar o mandar por correo electrónico.



Desplazarse entre Planillas con el teclado:
Para desplazarse por las planillas abiertas en Excel con el teclado tal como hacemos en Windows pulsando simultáneamente Alt y Tab, tan solo debemos hacerlo pulsando simultáneamente las teclas Ctrl y F6 (válido en otros programas Office).



Abrir un documento como "solo lectura":
Cómo asegurarnos de no producir ninguna modificación en el documento. Muchas veces, queremos abrir un documento para verificar su contenido, pero, a la vez, deseamos asegurarnos de que no sufrirá cambios de nuestra parte. Para eso existe una opción en las aplicaciones de Office.En Excel y en Word, se selecciona el comando [Abrir] del menú [Archivo]. Después, se elige el archivo que se desea abrir. Entonces se podrá ver que el botón [Abrir], que se encuentra en el extremo inferior derecho, tiene una pequeña flecha hacia abajo. Al presionar ese icono, se abre un nuevo menú, donde se encuentra la opción [Como sólo lectura]. Desde allí también se puede abrir el documento seleccionado como una copia.



Repetir la última acción:
La tecla F4 almacena la última orden o formato aplicado. Por ejemplo, escriba un texto o un número en dos celdas y, luego, aplique el formato de fuente negrita en una de ellas.
De inmediato, active la segunda celda y pulse F4: automáticamente esta celda también adopta el formato negrita. Ahora presione la tecla Supr (Suprimir) del teclado para borrar el contenido de la celda. Luego, active la restante y presione F4; también ésta queda en blanco.



Insertar Fecha y Hora:
Para insertar la fecha o la hora en una celda use estas combinaciones de teclas:
Hora: Ctrl + :
Fecha: Ctrl + ;



Créditos en Excel 2000:
Después de abrir un documento nuevo, vamos al cuadro de nombres e ingresamos X2000:L2000. Luego presionamos TAB, para ubicarnos en la celda M2000. Mientras mantenemos CTRL+SHIFT apretadas, hacemos clic sobre el ícono de Asistente para gráficos, y vamos a ver los créditos.



Juego oculto en Excel 97:
Los huevos de pascua (Easter Eggs en inglés) es el nombre que reciben subprogramas que los programadores incluyen dentro de las aplicaciones. Suelen ser juegos muy sencillos que se activan con combinaciones de teclas. Excel 97 contiene uno. Se trata de un avión que se dirige con el ratón. Para conseguir visualizarlo es necesario abrir el programa y una vez dentro meternos en el menú [Archivo] [Nuevo]. Ya en el nuevo libro en blanco, pulsamos la tecla F5 y aparecerá la ventana "Ir a". Dentro de ella, en la casilla Referencia escribimos X97:L97 y hacemos clic sobre el botón [Aceptar]. A continuación pulsamos el tabulador una vez y con las teclas Ctrl y Mayúsculas pulsadas hacemos clic en el botón "Asistente para gráficos" de la barra de [Herramientas]. Aparecerá el simulador de vuelo del que podremos salir pulsando la tecla Escape.



Abrir siempre la misma Planilla:
Si al utilizar Excel trabajan siempre con la misma planilla, pueden guardarla dentro de la carpeta \ARCHIVOS DE PROGRAMA\MICROSOFT\OFFICE\OFFICE\XLSTART. El libro se abrirá cada vez que inicien el programa.



Auto Guardado:
La utilidad que permite guardar automáticamente el trabajo realizado cada cierto tiempo, comúnmente utilizada en Word, no viene instalada por defecto en Excel. Para poder utilizarla, primero debes instalar la herramienta que se presenta como un complemento. Los complementos, también llamados Add-ins, son extensiones de funcionalidades para Excel y algunas vienen por defecto con el paquete Office. Selecciona el menú [Herramientas] [Complementos].Localiza la opción Auto guardar y hazle un clic en su cuadro de selección. Si nos pregunta si deseamos instalar esta función le respondemos Aceptar. En caso de tener el Excel 2000 seguramente te pedirá el CD de instalación original, excepto que ya hayas instalado dicha opción en instalaciones previas.A partir de ahora en el menú Herramientas aparecerá la nueva opción Auto guardar.Para configurar la opción de auto guardado marca la selección Guardar automáticamente cada 10 minutos. Puedes modificar el tiempo predeterminado pero no recomendamos bajarlo de los 10 minutos porque en vez de una utilidad se puede volver un estorbo. También nos permite escoger entre Guardar solo el libro actual o Guardar todos los libros abiertos. Recomendamos escoger la primera alternativa, ya que si tenéis muchos libros abiertos la operación puede demorar tiempo y bajar el rendimiento de Excel mientras graba.Finalmente puedes activar la opción Preguntar antes de guardar. Se recomienda marcar esta opción pues, a diferencia de Word, algunas acciones o pruebas de fórmulas que se están editando en Excel no interesa guardarlas y el Auto guardar nos pueden crear verdaderos quebraderos de cabeza al almacenar, sin que nos demos cuenta, versiones de la hoja de cálculo que no deseábamos.


Atajos de tecladoMejore su productividad en Excel:
CTRL+INICIO ir al principio de un documento.
CTRL+FIN ir al final de un documento.
CTRL+Z o ALT+RETROCESO deshacer.
CTRL+X o SHIFT+SUPR cortar.
CTRL-C o CTRL+INSERT Copiar
F10 activar la barra de menúes en los programas.
CTRL+F4 cerrar la ventana activa en programas de documentos múltiples (MDI, multiple documents interface) cómo Word 97, Excel 97.
ALT+F4 cerrar el programa o la ventana activa.
ALT+ESPACIO mostrar el menú de sistema de la ventana activa.
ALT+ESPACIO+N minimizar la ventana activa.
ALT+ESPACIO+X maximizar la ventana activa.
ALT+ESPACIO+R restaurar la ventana activa.
ALT+TAB cambiar de aplicación.
ALT+ESPACIO+C cerrar la ventana activa.
SHIFT+F10 mostrar el menú contextual.
CTRL+ESC mostrar el menú Inicio.
ALT+ENTER mostrar el cuadro de propiedades del ítem seleccionado.
ALT+M minimizar todas las ventanas.
ALT+FLECHA DERECHA adelante.
ALT+FLECHA IZQUIERDA atrás.
RETROCESO subir un nivel.
CTRL+ALT+SUPR mostrar la ventana de cierre de programas.
SHIFT + clic sobre el botón cerrar (sÓlo en Mi PC)
cierra la carpeta actual y todas las subcarpetas.
Ctrl. + A Abrir un Documento
Ctrl. + B Buscar y Reemplazar una Palabra
Ctrl. + C Copiar
Ctrl. + D Alinear a la Derecha
Ctrl. + E Seleccionar todo el Documento
Ctrl. + G Guardar el Documento
Ctrl. + H Dejar Sangría
Ctrl. + I Ir a...
Ctrl. + J Alineación Justificada
Ctrl. + K Letra Cursiva
Ctrl. + L Buscar y Reemplazar
Ctrl. + M Fuentes, Estilos, Tamaños...
Ctrl. + P Imprimir
Ctrl. + R Cerrar el Documento
Ctrl. + S Subrayar
Ctrl + T Alineación Centrada
Ctrl + U Documento Nuevo
Ctrl. + V Pegar
Ctrl. + X Cortar
Ctrl. + Y Repite la última Operación
Ctrl. + Z Deshacer


Moviendo fácilmente los botones de las barras de Herramientas
Existe una manera ágil y sencilla de reubicar/eliminar los botones de las barra de Tareas de casi todo el paquete Office. Simplemente, mantenemos pulsada la tecla Alt y arrastramos el botón deseado hasta su nueva ubicación. En caso de querer eliminarlo, lo arrastramos hasta el documento y lo soltamos allí.

Extraido de http://usuarios.sion.com/pauluk/trucosexcel.htm

Friday, June 11, 2010

Crear controles dinamicamente en tiempo de ejecución

Crear un Label

Private WithEvents lblDinamic As Label

Set lblDinamic = Controls.Add("VB.Label", "lblDinamic")
With lblDinamic
.Visible = True
.Top = 10
.Left = 10
.Caption = .Name
.Height = 255
End With

Codigo Excel - Referencia Rápida

Los títulos están por orden alfabético y las primeras palabras :


Abrir,Activar,Alinear, Añadir, Asignar, Buscar, Cortar, Crear, Dar valor, Detectar, Eliminar, Encontrar, Establecer, Insertar, Obtener, Ordenar, Mostrar, Pegar, Seleccionar, Tratar

Abrir un Libro


Workbooks.Open Filename:="C:\Mis documentos\video safe 3.xls"
Activar hoja :

Sheets("NombreHoja").Select

Activar hoja anterior :
ActiveSheet.Previous.Select

Activar hoja siguiente :
ActiveSheet.Next.Select
Activar libro abierto
Workbooks("Ejemplo.xls").Activate

Alinear a la izquierda

With Selection

.HorizontalAlignment = xlLeft

End With

Alinear a la Derecha

With Selection

.HorizontalAlignment = xlRight

End With

Añadir comentario a una celda :

ActiveCell.AddComment

ActiveCell.Comment.Visible = False

ActiveCell.Comment.Text Text:=”Mi descripción de comentario”
Añadir gráfico

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"

ActiveChart.ChartType = xlPyramidColClustered

Asignar un color de fondo a una celda :

Selection.Font.ColorIndex = 37

Buscar un dato en una celda y seleccionar la celda :

Cells.Find(What:="--", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _

.Activate
Copiar
Selection.Copy

Cortar

Selection.Cut

Crear hoja nueva
Sheets.Add
ActiveSheet.Name = "Cruce"

Crear libro nuevo
Workbooks.Add

Dar valor de una celda en negrita :

Selection.Font.Bold = True
Dar valor a la celda activa :

ActiveCell.Value = “sdfsd”

ActiveCell = “sdfad”

ActiveCell.FormulaR1C1 = “lkajdja”
Desplazarse x filas y/o columnas a partir de una celda :

ActiveCell.Offset(1, 0).Range("A1").Select

; 1 fila hacia abajo o columnas hacia la derecha

Detectar si existe hoja

Function SheetExists(SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
SheetExists = False
On Error GoTo NoSuchSheet
If Len(Sheets(SheetName).Name) > 0 Then
SheetExists = True
Exit Function
End If
NoSuchSheet:
End Function



Eliminar Celda y desplazar hacia arriba
Selection.Delete Shift:=xlUp

Eliminar Columna

Selection.EntireColumn.Delete

Eliminar Fila

Selection.EntireRow.Delete

Encontrar última fila (en columna especificada)
Dim intUltimaFila As Range

If WorksheetFunction.CountA(Columns(1)) mayor_que 0 Then
Set intUltimaFila = Range("65536").End(xlUp)
MsgBox intUltimaFila.Address
End If

Encontrar última fila
intUltimaFila = _
Columns("A:A").Range("A65536").End(xlUp).Row

Establecer formato dos decimales

Cell.NumberFormat = "#,##0.00"

Establecer borde superior con línea de grosor medio :

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlMedium

.ColorIndex = xlAutomatic

End With

; xlThin para grosor fino

Establecer Centrar Texto

With Selection

.HorizontalAlignment = xlCenter

End With

Establecer Letra Cursiva

Selection.Font.Italic = True

Establecer Letra Subrayada

Selection.Font.Underline = xlUnderlineStyleSingle

Establecer Tipo de Letra(Fuente)

With Selection.Font

.Name = "AGaramond"

End With

Establecer Tamaño de Letra(Tamaño de Fuente)

With Selection.Font

.Size = 15

End With


Grabar un Libro

ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\piscis.xls", FileFormat _

:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False
Insertar Columna

Selection.EntireColumn.Insert

Insertar fila encima de la celda activa :

Selection.EntireRow.Insert

Mostrar msgbox

' Seguimiento del usuario
msg = " Se creará nueva hoja Cruce, si existe se eliminará." & vbCrLf
msg = msg & " La hoja actual DEBE TENER EL VOLCADO DE EXPEDIENTES." & vbCrLf
Respuesta = MsgBox(msg, vbYesNo)
If Respuesta = vbNo Then Exit Sub

Mostrar todas las hojas

Sub MostrarHojas()
Set wsHoja = Worksheets
For Each wsHoja In ActiveWorkbook.Worksheets
If wsHoja.Visible = False Then
wsHoja.Visible = True
End If
Next wsHoja
End Sub

Obtener Dirección de una celda
ActiveCell.Address
Obtener valor de la celda activa :

Pp = ActiveCell.Value

Pp = ActiveCell

Pp = ActiveCell.FormulaR1C1
Ordenar Ascendente

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Ordenar Descendente

Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Pegar

ActiveSheet.Paste

Pegar formato
Sub PegarFormato()
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub
Pegar valor
Sub PegarValor()
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
Seleccionar una celda concreta o un rango de celdas:

Range(cadena).Select

;donde cadena puede ser “B15” ó “A18:F34”

Suprimir filas vacías
Sub SuprimirFilasVacias()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r
End Sub

Trata error

on error goto hayerror:

exit sub
hayerror:
dim msgE as String
msgE = " Error tecnico al ejecutar la macro." & vbCrLf
msgE = msgE & err.description & vbCrLf
msgbox(msgE, vbok)

Tratar Ficheros

Open "c:\datos.txt" For Output As 1

Write #1, ActiveCell

Write #1, nombre, direccion, telefono

Input #1, nombre

Input #1, nombre, direccion, telefono
Close #1

Monday, May 24, 2010

La belleza de la programación informática

Nadie podrá negar, a estas alturas, que la programación informática representa no sólo un servicio configurable y versátil para el ingenio humano, sino que ademas, para los entendidos que llevamos años tratando de aprender y perfeccionar las entrañas de la bestia, supone un continuo reto de depuración, de aprendizaje constante, de perfeccionamiento. La informática, aliada a las telecomunicaciones, ha permitido hacer posible la comunicación global y el rápido y agil acceso al conocimiento que en las redes de computadores se conserva, evoluciona y vive. Tambien ofrece herramientas que extienden nuestras propias limitaciones de cálculo, de modelado, de representación.

Es tambien un motivo de debate continuo e incluso de conflicto, puesto que hay cientos de formas de programar un servicio o aplicación y hay implicados numerosos sistemas mantenidos por multiples empresas con intereses dispares.

Pero mi deseo era hablar especialmente del código, que es la base de la pirámide sobre la que se hacen posibles las aplicaciones. Como es natural, quien no haya intentado nunca programarse una utilidad aparentemente sencilla, como un pequeño generador de numeros aleatorios para el boleto de la lotería, es dificil que aprecie el complejo mundo que se esconde detrás de la magia de los programas.

Y es ciencia, y es arte. Nada en sus entrañas es inexplicable. Un código que hace funcionar un programa es un ingenio perfeccionado que requiere análisis e inteligencia, y un laborioso trabajo de pruebas, de cubrir casos, de amoldarse a diversos lenguajes técnicos. Es búsqueda de documentación, es investigación, es orden.

La programación se alía prácticamente con cualquier forma de ingenio humano, incluso existen analogías entre las capas informáticas que existen en los sistemas operativos, y que van desde el lenguaje informático mas primario hasta el mas cercano al nuestro, con la psicología del hombre, en la que sin lugar a dudas, también existen procesos de depuración y "programación" (hablo de las costumbres) aunque en un universo aun mas misterioso y complejo.