BUSCADOR DE ROM's
***Descarga también el respectivo Flash Tool***
...
...
...
...
Reporta cualquier error a miweb.ds@gmail.com

jueves, 31 de mayo de 2012



Google Apps Script: Crear funciones propias


pay per click Al igual que en Microsoft Excel en Google Hoja de Calculo también se pueden... thumbnail 1 summary



Al igual que en Microsoft Excel en Google Hoja de Calculo también se pueden crear funciones propias. Veamos a continuación como crear una sencilla función para calcular el área de un circulo.

En un proyecto nuevo en el Editor de secuencia de comandos copiar y pegar el siguiente código:

function aCirc(radio) {
  var area = 0;               // valor que se devuelve
  area = 3.1416*radio*radio;  // calcula el área
  return area;                // devuelve el valor
}

La forma de llamar la función es igual de cuando se crean en Microsoft Excel, es decir "=Nombre_de_la_función":




miércoles, 30 de mayo de 2012



Google Apps Script: Cuadros de dialogo inputBox y msgBox


Con el siguiente código aprenderemos como mostrar cuadros de dialogo en Google Hoja de Calculo ya ... thumbnail 1 summary

Con el siguiente código aprenderemos como mostrar cuadros de dialogo en Google Hoja de Calculo ya sea para mostrar mensajes o para solicitar que se ingrese algún valor. Algo bastante sencillo.

En un proyecto nuevo en el Editor de secuencia de comandos copiar y pegar el siguiente código:

function ejemplo() {
    Browser.msgBox("msgBox", "Este es un msgBox y el siguiente es un inputBox", Browser.Buttons.OK);
    Browser.inputBox("inputBox","Ingresar nombre", Browser.Buttons.OK_CANCEL);
}

Al ejecutar este código se observa lo siguiente:



para poder utilizar el dato ingresado en el inputBox y asignarlo a una celda se escribe lo siguiente:

function ejemplo() {
function ejemplo() {
    Browser.msgBox("msgBox", "Este es un msgBox y el siguiente es un inputBox", Browser.Buttons.OK);
    SpreadsheetApp.getActiveSpreadsheet().getSheets()[0].getRange("A1").setValue(Browser.inputBox("inputBox","Ingresar nombre", Browser.Buttons.OK_CANCEL));
}}

o bien se puede ordenar mejor de la siguiente forma:

function ejemplo() {
  Browser.msgBox("msgBox", "Este es un msgBox y el siguiente es un inputBox", Browser.Buttons.OK);
  
  var libro = SpreadsheetApp.getActiveSpreadsheet();
  var hoja = libro.getSheets()[0];
  var nombre = Browser.inputBox("inputBox","Ingresar nombre", Browser.Buttons.OK_CANCEL); 
  var celda = hoja.getRange("A1");
  celda.setValue(nombre);
}

con este último código el dato ingresado en el inputBox se asigna a la celda A1.






martes, 29 de mayo de 2012



Google Apps Script: Asignar valor a celda


pay per click Google SpreadSheets tiene su propio lenguaje de programación, algo tipo VBA... thumbnail 1 summary



Google SpreadSheets tiene su propio lenguaje de programación, algo tipo VBA de Microsoft Office. Veremos a continuación un sencillo ejemplo de como asignar valores a las celdas mediante código:

1
Crear una nueva Hoja de Calculo y abrir el Script Editor con "Herramientas>Editor de secuencias de comando...":


2
Borrar ese código existente. Copiar y pegar el siguiente código:
function AsignarValor() {
  
  SpreadsheetApp.getActiveSpreadsheet().getSheets()[0].getRange("A1").setValue("Valor asignado a A1");
 
}


3
Ejecutar el código con el Menú o el Botón:


y observar el resultado:



Con estos sencillos pasos hemos logrado nuestra primera Secuencia de Comandos.

Para ejecutar desde la Hoja de Calculo ir a "Herramientas>Administrador de secuencias de comandos...", elegir la función y clic en "Ejecutar":








lunes, 28 de mayo de 2012



iTextSharp y VB .Net: Tamaño de hoja y margenes


pay per click The iText library is free software; you can redistribute it and/or modify it under the terms of the GNU Affero Gen... thumbnail 1 summary



The iText library is free software; you can redistribute it and/or modify it under the terms of the GNU Affero General Public License version 3. Please read the terms of use before downloading iText.

Descarga iTextSharp: http://itextpdf.com/download.php

El tamaño de hoja en el archivo pdf creado con iTextSharp también es posible configurarlo así como sus margenes, para ello veamos el siguiente código:

 
Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO


Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ruta As Integer
        Save.Filter = "Archivos Adobe PDF (*.pdf)|*.pdf"
        ruta = Save.ShowDialog
        If ruta = 2 Then GoTo salir

        Try
            Kill(Save.FileName)
        Catch ex As Exception
        End Try

        Dim oDoc As New iTextSharp.text.Document(PageSize.LETTER, 36, 36, 36, 36)   'aquí se coloca el tamañode hoja y los margenes
        Dim pdfw As iTextSharp.text.pdf.PdfWriter                                   '36 pt equivalen supuestamente a 0.5 pulgadas, aunque quiza depende
        Dim NombreArchivo As String = Save.FileName                                 'de la impresora porque a mi no me da exactamente 0.5 pulgadas pero si 
        Try                                                                         'es muy cercano
            pdfw = PdfWriter.GetInstance(oDoc, New FileStream(NombreArchivo, _
            FileMode.Create, FileAccess.Write, FileShare.None))

            'Apertura del documento.
            oDoc.Open()

            'Agregamos una pagina.
            oDoc.NewPage()


            Dim parafo As New Chunk("Esta es una prueba de tamaño de página y de la dimensión de los parrafos del documento que se esta creando")

            oDoc.Add(parafo)


            'Forzamos vaciamiento del buffer.
            pdfw.Flush()
            'Cerramos el documento.
            oDoc.Close()
        Catch ex As Exception
            'Si hubo una excepcion y el archivo existe …
            If File.Exists(NombreArchivo) Then
                'Cerramos el documento si esta abierto.
                'Y asi desbloqueamos el archivo para su eliminacion.
                If oDoc.IsOpen Then oDoc.Close()
                '… lo eliminamos de disco.
                File.Delete(NombreArchivo)
            End If
            Throw New Exception("Error al generar archivo PDF (" & ex.Message & ")")
        Finally
            pdfw = Nothing
            oDoc = Nothing
        End Try
salir:
    End Sub
End Class



domingo, 27 de mayo de 2012



iTextSharp y VB .Net: Texto con formato


pay per click En la primera entrega sobre la librería iTextSharp ya vimos como insertar t... thumbnail 1 summary



En la primera entrega sobre la librería iTextSharp ya vimos como insertar texto simple, pero claro que esa no es la única opción para el texto ya que también es posible darle formato.

Tomando el ejemplo itextsharp - texto.rar vamos a modificarlo para ver distintas opciones de formato.

1
Para darle color al texto modificamos el código para que quede de la siguiente forma:

 
Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO


Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ruta As Integer
        Save.Filter = "Archivos Adobe PDF (*.pdf)|*.pdf"
        'save.FileName = t2.Text
        ruta = Save.ShowDialog
        If ruta = 2 Then GoTo salir

        Try
            Kill(Save.FileName)
        Catch ex As Exception
        End Try

        Dim oDoc As New iTextSharp.text.Document(PageSize.LETTER, 40, 20, 0, 0)
        Dim pdfw As iTextSharp.text.pdf.PdfWriter
        Dim cb As PdfContentByte
        Dim linea As PdfContentByte
        Dim rectangulo As PdfContentByte
        Dim fuente As iTextSharp.text.pdf.BaseFont
        Dim NombreArchivo As String = Save.FileName
        Try
            pdfw = PdfWriter.GetInstance(oDoc, New FileStream(NombreArchivo, _
            FileMode.Create, FileAccess.Write, FileShare.None))

            'Apertura del documento.
            oDoc.Open()
            cb = pdfw.DirectContent
            linea = pdfw.DirectContent
            rectangulo = pdfw.DirectContent

            'Agregamos una pagina.
            oDoc.NewPage()

            'Iniciamos el flujo de bytes.
            cb.BeginText()

            'Instanciamos el objeto para la tipo de letra.
            fuente = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL).BaseFont
            cb.SetFontAndSize(fuente, 8)




            'Seteamos el color del texto a escribir.
            cb.SetColorFill(iTextSharp.text.BaseColor.BLACK)
            cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, "TEXTO de prueba (centro)", 315, 730, 0)

            'Seteamos el color del texto en azul.
            cb.SetColorFill(iTextSharp.text.BaseColor.BLUE)
            cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, "TEXTO de prueba (izquierda)", 315, 700, 0)

            'Seteamos el color del texto con formato CMYK.
            cb.SetColorFill(New CMYKColor(0.631F, 0.439F, 0.0F, 0.161F))
            cb.ShowTextAligned(PdfContentByte.ALIGN_RIGHT, "TEXTO de prueba (derecha)", 315, 670, 0)




            'Fin del flujo de bytes.
            cb.EndText()
            'Forzamos vaciamiento del buffer.
            pdfw.Flush()
            'Cerramos el documento.
            oDoc.Close()
        Catch ex As Exception
            'Si hubo una excepcion y el archivo existe …
            If File.Exists(NombreArchivo) Then
                'Cerramos el documento si esta abierto.
                'Y asi desbloqueamos el archivo para su eliminacion.
                If oDoc.IsOpen Then oDoc.Close()
                '… lo eliminamos de disco.
                File.Delete(NombreArchivo)
            End If
            Throw New Exception("Error al generar archivo PDF (" & ex.Message & ")")
        Finally
            cb = Nothing
            pdfw = Nothing
            oDoc = Nothing
        End Try
salir:
    End Sub
End Class


Con esta modificación obtenemos lo siguiente:


Podemos poner el nombre del color:
 
cb.SetColorFill(iTextSharp.text.BaseColor.BLUE)

También podemos personalizar con formato de color CMYK
 
cb.SetColorFill(New CMYKColor(0.631F, 0.439F, 0.0F, 0.161F))

Descarga del ejemplo aquí: itextsharp - texto con formato 1.rar



2
Por supuesto que el color no es lo único que interesa en el formato del texto, también se tienen opciones como cursiva y negrita, esto con la siguiente modificación en el código de nuestro ejemplo:


 
Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO


Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ruta As Integer
        Save.Filter = "Archivos Adobe PDF (*.pdf)|*.pdf"
        'save.FileName = t2.Text
        ruta = Save.ShowDialog
        If ruta = 2 Then GoTo salir

        Try
            Kill(Save.FileName)
        Catch ex As Exception
        End Try

        Dim oDoc As New iTextSharp.text.Document(PageSize.LETTER, 40, 20, 0, 0)
        Dim pdfw As iTextSharp.text.pdf.PdfWriter
        Dim cb As PdfContentByte
        Dim linea As PdfContentByte
        Dim rectangulo As PdfContentByte
        Dim fuente1 As iTextSharp.text.pdf.BaseFont
        Dim fuente2 As iTextSharp.text.pdf.BaseFont
        Dim fuente3 As iTextSharp.text.pdf.BaseFont
        Dim NombreArchivo As String = Save.FileName
        Try
            pdfw = PdfWriter.GetInstance(oDoc, New FileStream(NombreArchivo, _
            FileMode.Create, FileAccess.Write, FileShare.None))

            'Apertura del documento.
            oDoc.Open()
            cb = pdfw.DirectContent
            linea = pdfw.DirectContent
            rectangulo = pdfw.DirectContent

            'Agregamos una pagina.
            oDoc.NewPage()

            'Iniciamos el flujo de bytes.
            cb.BeginText()




            fuente1 = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL).BaseFont 'fuente negrita
            cb.SetFontAndSize(fuente1, 8) 'llamada a la fuente y tamaño
            'Seteamos el color del texto a escribir.
            cb.SetColorFill(iTextSharp.text.BaseColor.BLACK)
            cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, "TEXTO de prueba (centro)", 315, 730, 0)

            fuente2 = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.BOLD).BaseFont 'fuente cursiva
            cb.SetFontAndSize(fuente2, 8) 'llamada a la fuente y tamaño
            'Seteamos el color del texto en azul.
            cb.SetColorFill(iTextSharp.text.BaseColor.BLUE)
            cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, "TEXTO de prueba (izquierda)", 315, 700, 0)

            fuente3 = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.ITALIC).BaseFont 'fuente subrayada
            cb.SetFontAndSize(fuente3, 8) 'llamada a la fuente y tamaño
            'Seteamos el color del texto con formato CMYK.
            cb.SetColorFill(New CMYKColor(0.631F, 0.439F, 0.0F, 0.161F))
            cb.ShowTextAligned(PdfContentByte.ALIGN_RIGHT, "TEXTO de prueba (derecha)", 315, 670, 0)




            'Fin del flujo de bytes.
            cb.EndText()
            'Forzamos vaciamiento del buffer.
            pdfw.Flush()
            'Cerramos el documento.
            oDoc.Close()
        Catch ex As Exception
            'Si hubo una excepcion y el archivo existe …
            If File.Exists(NombreArchivo) Then
                'Cerramos el documento si esta abierto.
                'Y asi desbloqueamos el archivo para su eliminacion.
                If oDoc.IsOpen Then oDoc.Close()
                '… lo eliminamos de disco.
                File.Delete(NombreArchivo)
            End If
            Throw New Exception("Error al generar archivo PDF (" & ex.Message & ")")
        Finally
            cb = Nothing
            pdfw = Nothing
            oDoc = Nothing
        End Try
salir:
    End Sub
End Class


Con esta modificación obtenemos lo siguiente:

Descarga del ejemplo aquí: itextsharp - texto con formato 2.rar



3
También hay una opción para hacer rotar el texto con la siguiente modificación del código:

 
Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO


Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ruta As Integer
        Save.Filter = "Archivos Adobe PDF (*.pdf)|*.pdf"
        'save.FileName = t2.Text
        ruta = Save.ShowDialog
        If ruta = 2 Then GoTo salir

        Try
            Kill(Save.FileName)
        Catch ex As Exception
        End Try

        Dim oDoc As New iTextSharp.text.Document(PageSize.LETTER, 40, 20, 0, 0)
        Dim pdfw As iTextSharp.text.pdf.PdfWriter
        Dim cb As PdfContentByte
        Dim linea As PdfContentByte
        Dim rectangulo As PdfContentByte
        Dim fuente1 As iTextSharp.text.pdf.BaseFont
        Dim fuente2 As iTextSharp.text.pdf.BaseFont
        Dim fuente3 As iTextSharp.text.pdf.BaseFont
        Dim NombreArchivo As String = Save.FileName
        Try
            pdfw = PdfWriter.GetInstance(oDoc, New FileStream(NombreArchivo, _
            FileMode.Create, FileAccess.Write, FileShare.None))

            'Apertura del documento.
            oDoc.Open()
            cb = pdfw.DirectContent
            linea = pdfw.DirectContent
            rectangulo = pdfw.DirectContent

            'Agregamos una pagina.
            oDoc.NewPage()

            'Iniciamos el flujo de bytes.
            cb.BeginText()




            fuente1 = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL).BaseFont 'fuente negrita
            cb.SetFontAndSize(fuente1, 8) 'llamada a la fuente y tamaño
            'Seteamos el color del texto a escribir.
            cb.SetColorFill(iTextSharp.text.BaseColor.BLACK)
            cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, "TEXTO de prueba (izquierda)", 315, 670, 90) 'giro de 90 grados

            fuente2 = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.BOLD).BaseFont 'fuente cursiva
            cb.SetFontAndSize(fuente2, 8) 'llamada a la fuente y tamaño
            'Seteamos el color del texto en azul.
            cb.SetColorFill(iTextSharp.text.BaseColor.BLUE)
            cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, "TEXTO de prueba (izquierda)", 315, 640, 60) 'giro de 60 grados

            fuente3 = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.ITALIC).BaseFont 'fuente subrayada
            cb.SetFontAndSize(fuente3, 8) 'llamada a la fuente y tamaño
            'Seteamos el color del texto con formato CMYK.
            cb.SetColorFill(New CMYKColor(0.631F, 0.439F, 0.0F, 0.161F))
            cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, "TEXTO de prueba (izquierda)", 315, 610, 30) 'giro de 30 grados




            'Fin del flujo de bytes.
            cb.EndText()
            'Forzamos vaciamiento del buffer.
            pdfw.Flush()
            'Cerramos el documento.
            oDoc.Close()
        Catch ex As Exception
            'Si hubo una excepcion y el archivo existe …
            If File.Exists(NombreArchivo) Then
                'Cerramos el documento si esta abierto.
                'Y asi desbloqueamos el archivo para su eliminacion.
                If oDoc.IsOpen Then oDoc.Close()
                '… lo eliminamos de disco.
                File.Delete(NombreArchivo)
            End If
            Throw New Exception("Error al generar archivo PDF (" & ex.Message & ")")
        Finally
            cb = Nothing
            pdfw = Nothing
            oDoc = Nothing
        End Try
salir:
    End Sub
End Class


Con esta modificación obtenemos lo siguiente:

Descarga del ejemplo aquí: itextsharp - texto con formato 3.rar


Existen otras opciones de formato que pueden explorar.





iTextSharp y VB .Net: Texto simple


The iText library is free software; you can redistribute it and/or modify it under the terms of the... thumbnail 1 summary
The iText library is free software; you can redistribute it and/or modify it under the terms of the GNU Affero General Public License version 3. Please read the terms of use before downloading iText.

Descarga iTextSharp: http://itextpdf.com/download.php

Esta es una excelente librería muy útil para la creación de documentos pdf desde Microsoft Visual Basic 2010 Express, lo que permite que nuestras aplicaciones puedan generar reportes directamente en formato pdf.

En esta sección vamos a explorar la inserción de Texto de una forma muy básica.

1
Crear un proyecto nuevo. Agregar la referencia a la librería. Isertar un Button para agregar el código que creara nuestro pdf. Agregar un SaveFileDialog que nos permitirá elegir donde guardar nuestro pdf.





Enlaces utiles: Iconos y Notificador de correo Gmail


pay per click Comparto para quienes no las conocen estas web muy buenas. La primera con ... thumbnail 1 summary



Comparto para quienes no las conocen estas web muy buenas. La primera con una muy extensa librería de iconos para sus aplicaciones, desde paquetes gratis hasta algunos de pago. La segunda es una donde encuentran un muy original notificador de nuevos correos funcional para Gmail.







sábado, 26 de mayo de 2012



Algo de lo que se puede hacer con PowerPoint 2010 y otras herramientas


El siguiente vídeo es una pequeña probada de lo que se puede lograr con Microsoft PowerPoint 2010 al combinarlo con otras herramientas. Todo... thumbnail 1 summary
El siguiente vídeo es una pequeña probada de lo que se puede lograr con Microsoft PowerPoint 2010 al combinarlo con otras herramientas. Todo depende de tu creatividad y el esfuerzo que pongas.


Si desean explorar la presentación la encuentran aquí




viernes, 25 de mayo de 2012



Abrir archivos Office 2007 y 2010 en versiones anteriores


pay per click Si en tu trabajo, centro de estudio u hogar ya te han pasado archivos con ... thumbnail 1 summary



Si en tu trabajo, centro de estudio u hogar ya te han pasado archivos con extensiones de Office 2007 u Office 2010 y tu aun tienes por ejemplo Office 2000 (tal y como es mi caso en mi trabajo). No te desesperes más porque Microsoft te da una buena solución.

Solo digita en Google: FileFormatConverters






Y en el centro de descargas obtienes esta herramienta:



Por su puesto que las características no compatibles con versiones anteriores no serán visualizadas, sin embargo estoy seguro que a muchos les será muy útil.


Programar un contador en celda de una hoja de calculo


Esta entrada es en respuesta a una consulta de la sección Ayuda VBA Excel Acontinuación se exp... thumbnail 1 summary


Esta entrada es en respuesta a una consulta de la sección Ayuda VBA Excel

Acontinuación se explica una forma sencilla de programar un contador cuyo avance se observa en una celda de la hoja de calculo:

1
Crear un nuevo libro. Insertar un botón:



jueves, 24 de mayo de 2012



Minimizar y maximizar formularios VBA en Excel


El siguiente es un código muy útil que encontré en una web para agregar los botones de minimizar y... thumbnail 1 summary


El siguiente es un código muy útil que encontré en una web para agregar los botones de minimizar y maximizar a los UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const GWL_STYLE As Long = (-16)

Private Sub UserForm_Initialize()
    Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
    If Application.Version < 9 Then
        lngMyHandle = FindWindow("THUNDERXFRAME", Me.Caption)
    Else
        lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
    End If
    lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
    lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
End Sub






Es bastante simple de usar. Solamente lo copian y pegan en el UserForm creado y en propiedades se le marca como "False" la que se llama "ShowModal":





El código lo encontré aquí



Ordenar (o desordenar) de forma aleatoria una lista de datos


Tal vez tengamos una lista de datos: 1 2 3 4 5 6 7 8 9 10 ... 20 y los queremos ordenar de forma a... thumbnail 1 summary
Tal vez tengamos una lista de datos:

1
2
3
4
5
6
7
8
9
10

...
20

y los queremos ordenar de forma aleatoria sin tener que estar decidiendo uno mismo cual poner primero y cual depués, cosa que se complica más aun si la lista de datos es muy extensa porque se debe estar pendiente también de cual ya se ordeno para no repetirlo. Aquí una forma de hacerlo fácil y rápido:



martes, 22 de mayo de 2012



Ejecutar código al presionar Enter en ComboBox en VBA Excel


Esta entrada es en respuesta a una consulta de la sección Ayuda VBA Excel ¿Algunas vez han dese... thumbnail 1 summary


Esta entrada es en respuesta a una consulta de la sección Ayuda VBA Excel

¿Algunas vez han deseado ejecutar código al introducir texto en un ComboBox o al seleccionar una de las entradas que ya están en él? Esto es posible al usar el evento Change del ComboBox. Sin embargo con ese evento la ejecución del código es automático y no puede decidir uno mismo cuando ejecutar el código.

La solución puede ser programar de modo que el el código se ejecute solo al presionar una tecla determinada. Normalmente se desearía que esa tecla sea Enter, pero el evento KeyPress del ComboBox no reconoce la tecla ENTER por lo tanto el siguiente código no sirve de nada:
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
        MsgBox "se presiono ENTER"
    End If
End Sub

domingo, 20 de mayo de 2012



Crear funciones propias en Microsoft Excel 2010


El editor VBA en Microsoft Excel puede ser utilizado para crear funciones propias. Por ejemplo ver... thumbnail 1 summary


El editor VBA en Microsoft Excel puede ser utilizado para crear funciones propias. Por ejemplo veremos como crear una función para convertir pulgadas a milímetros:

1
Abrir Excel (si la Cinta de Programador ya esta activada saltar al paso 3). Clic en "Archivo" y clic en "Opciones":



martes, 15 de mayo de 2012



Visual Basic 2010: Mostrar datos de Microsoft Access en un DataGridView


En Microsot Visual Basic 2010 Express existe una forma muy sencilla para poder visualizar los dat... thumbnail 1 summary


En Microsot Visual Basic 2010 Express existe una forma muy sencilla para poder visualizar los datos de un archivo mdb en un Control DataGridView sin necesidad de digitar tanto código. Se hace como se explica a continuación:

1
Crear un proyecto nuevo en Microsot Visual Basic 2010 Express:


jueves, 10 de mayo de 2012



Publicar documentos de Drive en Blog con iframe


Si has notado en este y en otros blog o web que se pueden visualizar documentos de Docs en recuadros... thumbnail 1 summary
Si has notado en este y en otros blog o web que se pueden visualizar documentos de Docs en recuadros y te ha parecido muy útil y vistoso a continuación explico la forma de hacerlo:

1
Registrar una cuenta en Gmail para poder crear los documentos y decidir como compartirlos.

2
Iniciar sesión en tu cuenta. Clic en pestaña Docs y crear un documento.



martes, 8 de mayo de 2012



Alternativa a gráfico de barras laterales en Docs Spreadsheet


pay per click Muchos habrán probado ya que el gráfico de barras laterales de Google Spreadsheet no tiene muchas opciones de confi... thumbnail 1 summary



Muchos habrán probado ya que el gráfico de barras laterales de Google Spreadsheet no tiene muchas opciones de configuración como desearíamos y cuando se tiene una lista grande de entradas para el gráfico la estética de éste es imposible de controlar. Por ejemplo el siguiente gráfico:

Con 50 entradas para graficar el área del gráfico debe extenderse horizontalmente para dar cabida a todas las entradas. Sin embargo un molesto espacio en blanco se genera en la parte superior e inferior del área del gráfico:

domingo, 6 de mayo de 2012



Frecuencia de datos con VBA - Macros en Excel


No se si hay función en   excel   para sacar la   frecuencia   con la que se repiten los datos en una columna pero por lo menos yo no la eh... thumbnail 1 summary
No se si hay función en excel para sacar la frecuencia con la que se repiten los datos en una columna pero por lo menos yo no la eh encontrado (que funcione como la quiero) y como lo necesitaba con urgencia lo hice combinando algunas funciones. Ahí les queda el archivo por si les sirve para algo, solamente tienen que pegar los datos a partir de la celda A2 hacia abajo y presionar el botón.

Descargar el archivo aquí: Frecuencia




sábado, 5 de mayo de 2012



Visual Basic 2010: Visualizar archivos en TreeView y WebBrowser


Este es un pequeño visualizador de archivos que muestra los nombres de los documentos en un Contr... thumbnail 1 summary


Este es un pequeño visualizador de archivos que muestra los nombres de los documentos en un Control TreeView a la izquierda y en el Control WebBrowser de la derecha muestra la visualización.

Probado en Windows 7 64 bits funciona correctamente con pdf, doc, htm y xls.

Una aplicación sencilla pero muy útil para mantener organizada información digital de consulta frecuente y olvidarse de una vez de el papel y las carpetas físicas. Además gratis al ser programado con Microsoft Visual Basic 2010 Express.

"La aplicación tiene parte del código encontrado en este link."