Macros - Corelli's Page by brCDhJj

VIEWS: 2 PAGES: 7

									Macros
 Verifica erros no Macro
            Option Explicit

 Aponta para uma célula, como célula ativa.
    Deve estar dentro de uma worksheet
          Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
             Range("CelulaAtiva").Value = Target.Address

         End Sub
     Nomeie uma célula em branco, que deve estar desprotegida, como celulaativa.


 Aponta para uma coluna, ou linha, ou célula, e executa o Macro toda vez que ela é alterada
    Deve estar dentro de uma worksheet
          Private Sub Worksheet_Change(ByVal Target As Range)
             If Target.Column = 4 Then
    Nome da macro chamada
             atualizacampos

              End If

           End Sub

 Esconde e mostra linhas, ou colunas
     Nome do macro
          Sub atualizacampos()
     O comando desabilita a atualização da tela, e executa os comandos do macro em segundo plano. (este co
            Application.ScreenUpdating = False

     Declaração de variáveis
            Dim usadas As Integer
            Dim branco As Integer
            Dim cheia As Integer
            Dim vazia As Integer

     Ativa um arquivo aberto, útil quando temos mais de um arquivo aberto.
           Windows("grafico de gantt 3b.xls").Activate

     Desprotege o arquivo.
          ActiveSheet.Unprotect Password:="123"

     Seleciona uma sheet
           Sheets("gráfico de gantt").Select

     Atribui valores às variáveis
                 usadas = Range("usadas") + 1
                 branco = Range("branco") - 2
                 cheia = Range("colcheia")
                 vazia = Range("colvazia")
    Mostra linhas
               Range("a8", "a" & 8 + usadas).Select
               Selection.EntireRow.Hidden = False

    Esconder linhas
               Range("a" & 8 + usadas, "a" & 8 + usadas + branco).Select
               Selection.EntireColumn.Hidden = True

    Mostrar colunas
              Range(Cells(1, 20), Cells(1, 20 + cheia)).Select
              Selection.EntireColumn.Hidden = False

    Esconder Colunas
             Range(Cells(1, 20 + cheia), ("bt1")).Select
             Selection.EntireColumn.Hidden = True

    Vai para a célula imediatamente abaixo da última linha preenchida
              Range("f7").End(xlDown).Offset(1, 0).Select

    Reativa a atualização da tela.
              Application.ScreenUpdating = True

    Protege novamente a planilha
            ActiveSheet.Protect Password:="123"

          End Sub

Message Box
    Nome do macro
         Sub salario()

    Declaração das variáveis
           Dim Msg As String
           Dim Texto As String

    Atribuição de valores às variáveis que compõem o texto da mensagem
              Texto = "Informe o valor do salário pago ao" + vbCr
              Texto = Texto + "trabalhador e a sua respectiva forma," + vbCr
              Texto = Texto + "se por hora ou por mês." + vbCr
              Texto = Texto + "Informe também a carga horária mês," + vbCr
              Texto = Texto + "ou no caso de horistas, a meta ou " + vbCr
              Texto = Texto + "a média mensal." + vbCr
              Texto = Texto + "" + vbCr
              Texto = Texto + "Corelli" + vbCr
              Texto = Texto + "www.geraldcorelli.com"

    Titulo da caixa de mensagem
               Msg = MsgBox(Texto, vbInformation, Title:="C a m p o S a l á r i o")

    Seleciona as variávesis e as coloca no campo Msg (que aparecerá na caixa de mensagem)
            Select Case Msg

            End Select
End Sub
z que ela é alterada




os do macro em segundo plano. (este comando deixa o macro mais rápido, pois inibe a atualização da tela do computardor)
                 O comando "+vbCr" cria uma
                 nova linha no texto, evitando
                      que fique um texto
                    excessivamente longo.




na caixa de mensagem)
alização da tela do computardor)

								
To top