Macro para incorporar una barra de procesos a tus rutinas

0

 


Código:


Sub PorcentajeProceso()

NumRutinas = 3

Application.StatusBar = "0% Ejecutado..."

For C = 1 To NumRutinas 

    Select Case C

        Case 1 'Call Rutina 1

            

        Case 2 'Call Rutina 2

                        

        Case 3 'Call Rutina 3

    End Select

    FraccionEjecutado = CDbl(C) / CDbl(NumRutinas)

    Application.StatusBar = Format(FraccionEjecutado, "0%") & " Ejecutado..."

Next C

Application.StatusBar = Empty

MsgBox "Todos los Procesos Ejecutados!!!", vbInformation, "Aprendiendo eXcel"

End Sub

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