Incorpora una Barra de Procesos con código VBA

0

 

Código:

Sub Barra_de_Procesos()
    Dim Num As Integer, x As Integer
    Dim Ctr As Long
    Dim Rng As Range, ContarRng As Range
    
    Set ContarRng = Sheet1.Range("A1")
    Set Rng = Sheet1.Range("A2")
    
    Num = Application.InputBox("Entre duración en Segundos:")
    Rng.Value = Num
    
    For x = 0 To Num
        ContarRng = Num - x & " Segundos Restantes. . ."
        Rng = x / Num
        Ctr = Timer + 1
            Do While Timer < Ctr
                DoEvents
            Loop
    Next
    
    ContarRng = "Se acabó!!!"
End Sub





⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.




Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel