XL2000: Cómo llamar a una macro repetidamente en un intervalo de tiempo fijos

Seleccione idioma Seleccione idioma
Id. de artículo: 213288 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

En Microsoft Excel, puede llamar a una macro repetidamente en un intervalo de tiempo conjunto mediante el método OnTime y la instrucción Call .

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo, pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

Microsoft certificado Partners - https://partner.microsoft.com/global/30000104

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara llamar a una macro, un número de veces en un intervalo fijo, utilice los pasos en el ejemplo siguiente:

Nota : en el ejemplo el siguiente se llama a una macro cuatro veces en un intervalo 5 segundos.
  1. Inicie Excel.
  2. Presione ALT+F11 para iniciar el Editor de Visual Basic.
  3. En el menú Insertar , haga clic en módulo .
  4. Escriba el siguiente código en una nueva hoja de módulo:
    ' Module level declaration of icount, inumberofcalls. This line
    ' must be at the top of the module sheet
    Dim icount as Integer, inumberofcalls As Integer
    
    Sub StartOnTime()
        ' Initialize icount to 1.
        icount = 1
        ' Initialize inumberofcalls to 4.
        inumberofcalls = 4
        ' Select the range of cells for formatting.
        Range("A2:A" & inumberofcalls + 1).Select
        ' Format the selected cells as time.
        Selection.NumberFormat = "h:mm:ss AM/PM"
        ' Start in cell A1.
        Range("A1").Select
        ' Put the word "Time" in cell A1.
        ActiveCell.Value = "Time"
        ' Start the OnTimeMacro.
        Call OnTimeMacro
    End Sub
    
    Sub OnTimeMacro()
      ' Run the RunEvery5seconds macro inumberofcalls times.
        If icount <= inumberofcalls Then
            ' Run the RunEvery5seconds macro in 5 seconds.
            Application.OnTime Now + TimeValue("00:00:05"), _
                "RunEvery5seconds"
            ' Increment icount by 1.
            icount = icount + 1
        Else
            ' Icount is greater than inumberofcalls, so exit the macro.
            Exit Sub
        End If
    End Sub
    
    Sub RunEvery5seconds()
        ' Places the current time in a cell.
        ActiveCell.Offset(icount - 1, 0).Value = Format(Now(), _
            "hh:mm:ss")
        ' Runs the OnTimeMacro again.
        Call OnTimeMacro
    End Sub
    						
  5. Presione ALT+F11 para volver a Excel.
  6. En el menú Herramientas , elija macro y, a continuación, haga clic en macros .
  7. Haga clic en StartOnTime y, a continuación, haga clic en Ejecutar .

    La macro introduce el título "Hora" en la celda A1 y, a continuación, escribe cada vez se ejecuta en las celdas A2, A3, A4 y A5 de Sheet1 del libro activo.

Referencias

Para obtener más información sobre el método de OnTime, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba método ontime en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Propiedades

Id. de artículo: 213288 - Última revisión: domingo, 02 de febrero de 2014 - Versión: 3.5
La información de este artículo se refiere a:
  • Microsoft Excel 2000 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB213288 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 213288

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com