Exce planilha vba barra progressao varias macros exemplo excel vba

Saberexcel - site das macros

macros do aplicativo microsoft excel vba que chamam barras de menu desejadas
Macro - Barra Progressão
Congela controles_II
Minha Barra de Progressao
Cria uma barra de progressão colorida na planilha

VBA Excel

‘Esta macro chama as barras menu desejadas

Sub Congela_Controles()

Application.OnDoubleClick = "chama_macro"
CommandBars("worksheet Menu Bar").Controls("Extras"). _

Controls("controle…”").Enabled = False

CommandBars("Chart Menu Bar").Controls("Extras"). _

Controls("controle…").Enabled = False

CommandBars("Toolbar List").Enabled = False

End Sub

‘—‘

‘Macro para chamada

Sub chama_macro()

‘Insira o código

End Sub

‘—‘

‘Esta macro descongela os controles desejados

Sub Congela_Controles_II()

Application.OnDoubleClick = "chama_macro"

CommandBars(”Worksheet Menu Bar”).Controls("Extras"). _

Controls("controle…").Enabled = True

CommandBars("Chart Menu Bar").Controls("Extras"). _

Controls("controle…").Enabled = True

CommandBars("Toolbar List").Enabled = True

RestoreDoubleKlick

End Sub

‘—‘

‘Restaura o Duplo Clic

Sub RestoreDuploClick()

Application.OnDoubleClick = “”

End Sub

Site das macros Excel VBA
( 15.000 Macros, Funções, Fórmulas, Blog, Apostilas, Dicas, Boletins, 14.000 Planilhas Modelos

http://www.saberexcel.com/comprar.htm

Insere uma barra de progressao

‘Esta macro insere uma barra de progressão com o percentual na Statusbar

Sub Minha_Barra_Progressao()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 120#, 102#, 300, 10).Select

Selection.Name = “fond”

With Selection.ShapeRange.Fill

.ForeColor.SchemeColor = 10

.Visible = msoTrue

.Solid

End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 120, 102#, 6#, 10#).Select

Selection.Name = “prog”

With Selection.ShapeRange.Fill

.ForeColor.SchemeColor = 11

.Visible = msoTrue

.Solid

End With

Tot = 100

For i = 1 To Tot

For ii = 1 To 100

Range(”A1″).Select

Next ii

ActiveCell = i

Application.StatusBar = “Trabalho em progressão! : ” & i / Tot & “/1 Efetuados”

ActiveSheet.Shapes(”prog”).Select

Selection.ShapeRange.IncrementLeft 300 / Tot

DoEvents

Next i

MsgBox “Terminou !”, 64, ” © Saberexcel.com”

Application.StatusBar = “”

Selection.Delete

Range(”A1″).Clear

ActiveSheet.Shapes(”fond”).Select

n style="font-size: 11pt; font-family: Arial; mso-ansi-language: EN-US;" lang="EN-US"> Selection.Delete

End Sub

Insere uma barra de progressão
‘Esta macro insere uma barra de progressão

Option Explicit

Sub BarraDeProgreso()

Dim R As Integer

Dim MT As Double

For R = 1 To 180

MT = Timer

Loop While Timer - MT < 0.05

Application.StatusBar = “Progress: ” & R & ” de 180: ” & _

Format(R / 180, “Percent”) & ” — ” & “realizados”

DoEvents

Next R

Application.StatusBar = False

End Sub
‘———————————-’

E. Marcondes

Cria uma barra de progressão colorida na planilha
Esta macro cria uma barra de progressão colorida na planilha

Sub CreateBars()

Dim sh As Shape

Dim cell As Range

Dim count As Long

For count = 1 To 10

Set cell = Range(”A1″).Offset(count, 1)

With ActiveSheet.Shapes

Set sh = .AddShape(msoShapeRectangle, cell.Left, cell.Top, 0, cell.Height)

With sh.Fill

.ForeColor.SchemeColor = count + 2

.Visible = msoTrue

.Solid

End With

sh.Name = “PB” & count

End With

End Sub

’————’

Sub DemoProgressBars()

CreateBars

Dim sh As Shape

Dim cell As Range

Dim count As Long

Dim pc As Long

Dim ar(1 To 10) As Long

Dim done As Boolean

Dim timernow As Double

‘ reset bars to zero width

For count = 1 To 10

ActiveSheet.Shapes(”PB” & count).Width = 0

done =
True

For count = 1 To 10

pc = ar(count) + Int(Rnd() * 10)

If pc > 100 Then pc = 100

ar(count) = pc

If pc < 100 Then done = False

Set sh = ActiveSheet.Shapes(”PB” & count)

sh.Width = Cells(count + 1, “B”).Width * pc / 100

DoEvents

timernow = Timer

Do: Loop Until Timer - timernow > 0.25

Loop Until done

End Sub

( 15.000 macros, funções, fórmulas, Blog, Apostilas, Dicas, Boletins, 14.000 planilhas modelos)

http://www.saberexcel.com/comprar.html

Escrito por...: E. Marcondes

Barra de progressão com o percentual na Statusbar
Esta macro insere uma barra de progressão com o percentual na Statusbar

Sub Minha_Barra_Progressao()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 120#, 102#, 300, 10).Select

Selection.Name = “fond”

With Selection.ShapeRange.Fill

.ForeColor.SchemeColor = 10

.Visible = msoTrue

.Solid

End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 120, 102#, 6#, 10#).Select

Selection.Name = “prog”

With Selection.ShapeRange.Fill

.ForeColor.SchemeColor = 11

.Visible = msoTrue

.Solid

End With

Tot = 100

For i = 1 To Tot

For ii = 1 To 100

Range(”A1″).Select

Next ii

ActiveCell = i

Application.StatusBar = “Trabalho em progressão! : ” & i / Tot & “/1 Efetuados”

ActiveSheet.Shapes(”prog”).Select

Selection.ShapeRange.IncrementLeft 300 / Tot

DoEvents

Next i

Application.StatusBar = “”

Selection.Delete

Range(”A1″).Clear

ActiveSheet.Shapes(”fond”).Select

Selection.Delete

End Sub

postado por E. Marcondes

Barra de Progressão na statusbar

BARRA DE PROGRESSÃO
'Esta macro mostra um status da statusbar processando progresso barra de com caracteres na barra de status indicando o progresso da ação.

Sub StatusBar_Progresso()

Application.ScreenUpdating = False
SBText = "Processando….."

For r = 1 To 200

If r Mod 50 = 0 Then

SBText = SBText & Chr(1)

Application.StatusBar = SBText

End If

For c = 1 To 20

Cells(r, c) = Int(Rnd() * 100)

Next c

Next r

Application.StatusBar = False

Application.ScreenUpdating = True

End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Tags: