VAGAS DA HORA - EMPREGOS, DIARISTAS, AGÊNCIAS DE EMPREGOS, CONCURSOS, SERVIÇOS INDIVIDUAIS

ESSE CÓDIGO TORNA MAIÚSCULA O TEXTO DIGITADO NA CÉLULA: Sub TrocaParaMaiusculas() If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then ActiveCell.Value = UCase(ActiveCell.Value) End If End Sub

Na postagem anterior indicamos o valor somado de intervalos para células que contém "0", que é diferente de vazio. Neste exemplo usaremos o vazio ou "Null". Então toda vez que você identificar um resultado de intervalo vazio no lugar de "0", usa-se "Null". In the previous post indicated the added value ranges for cells containing "0 " , which is non-empty . In this example we will use empty or " null " . So every time you identify a result of empty interval in place of " 0" , use " Null " . Range("D10").Value = Application.Sum(Range("d45:d49")) Range("E10").Value = Null Range("c11").Value = Application.Sum(Range("c45:c50"))

MAIS EXEMPLOS PARA SOMAR CELULAS ATRAVÉS DO OBJETO SUM: MORE EXAMPLES TO ADD SUM CELLS THROUGH THE OBJECT : Range("D10").Value = Application.Sum(Range("d45:d49")) Range("E10").Value = ("0,00") Range("c11").Value = Application.Sum(Range("c45:c50")) NOTE THE VALUE ( " 0.00 " ) HE INDICATES THAT FOLLOWING THE RANGE SUM , THE VALUE OF E10 is 0, BUT NOT EMPTY. OBSERVE O VALOR ("0,00") ELE INDICA QUE, NA SEQUÊNCIA DE SOMA DO INTERVALO, O VALOR DE E10 É 0, MAS NÃO VAZIO.

UMA DAS MAIORES DIFICULDADES PARA QUEM NÃO CONHECE A FUNDO O VB PARA EXCEL É NOME DAS FUNÇÕES BÁSICAS POR EXEMPLO SOMAR. ESCREVE-SE "SUM". ONE OF THE BIGGEST PROBLEMS FOR THOSE WHO DO NOT KNOW THE FUND FOR EXCEL VB is BASIC FUNCTION NAME FOR EXAMPLE ADD . WRITE - UP " SUM " . EXEMPLO: Range("E14").Value = Application.Sum(Range("E45:E53")) NESTE EXEMPLO O VALOR DA SOMA DE E45:E53 APARECERÁ NO CAMPO DA CÉLULA E14 COM O RESULTADO, É CLARO THIS EXAMPLE OF THE VALUE OF SUM E45 : E53 APPEAR IN THE FIELD OF CELL E14 WITH THE RESULT , OF COURSE

PARA QUEM QUER APRENDER A COPIAR UM CÉLULA OU INTERVALO DE UMA PLANILHA PARA OUTRA SEGUE AÍ O CÓDIGO: Sheets("Plan1").Select Range("A1").Select Selection.Copy Sheets("Plan2").Select Range("C1").Select ActiveSheet.Paste Os dados como Plan1 e Plan2, como também,A1 e C1 foram colocados como exemplo e podem ser substituídos pelos nomes que você colocar. WHO WANTS TO LEARN HOW TO COPY A CELL OR WITHDRAWAL OF A WORKSHEET TO ANOTHER THEN FOLLOW THE CODE : Sheets (" Sheet1") . Select Range (" A1"). Select Selection.Copy Sheets (" Sheet2"). Select Range (" C1"). Select ActiveSheet.Paste Data such as Sheet1 and Sheet2 , but also A1 and C1 were placed as an example and may be replaced by names that you put .

PARA APRESENTAÇÃO EM PÚBLICO ONDE A PLANILHA FICA POR INTEIRA NA TELA SEGUE INSTRUÇÃO; Sub Sair() Dim barras On Error Resume Next For Each barras In Application.CommandBars barras.Enabled = True Next Application.DisplayStatusBar = True Application.DisplayFormulaBar = True Application.DisplayFullScreen = False ActiveWindow.DisplayHeadings = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.DisplayWorkbookTabs = True End Sub Sub Entrar() Dim barras, nTela, Cont On Error Resume Next For Each barras In Application.CommandBars barras.Enabled = False Next Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False End Sub APROVEITEM FOR PUBLIC PRESENTATION WHERE THE BILL

PARA CRIAR UMA MENSAGEM DE BOA VINDAS EM UMA PLANILHA VIA CÓDIGO VB FAÇA O SEGUINTE: Public Sub Auto_Open() Call MostraMensagem End Sub _____________________________________________________________________________________ Public Sub MostraMensagem() MsgBox "SEJA BEM VINDO!!!" End Sub ENGLISH: TO CREATE A GOOD WELCOME MESSAGE IN A SPREADSHEET VIA VB CODE DO THE FOLLOWING : Public Sub Auto_Open () Call displayMessage end Sub _____________________________________________________________________________________ Public Sub displayMessage () MsgBox " WELCOME ! " end Sub