EXCELer Tudo sobre EXCEL em Português

Se quisermos executar um determinado procedimento ciclicamente (p.ex. ao fim de cada 5 minutos passados), podemos utilizar o seguinte: Sub Auto_Open() Call Teste End Sub Public Sub Teste() Dim msg msg = MsgBox("Isto é um Teste") Application.OnTime Now + TimeValue("00:05:00"), "Teste" End Sub

Se a célula A3 for igual a SIM, então A2 diminui 1 unidade: Private Sub CommandButton1_Click() Dim Val Val = Range("A2").Value If Range("A3") = "SIM" Then Val = Val – 1 Range("A2") = Val End If End Sub

Ao clicar-se no Botão de comando, aparece o resultado em C1, que é a soma de B1:B10: O Código em VBE, é: Private Sub CommandButton1_Click() Dim myRange As Range Dim Var1 As Long Set myRange = Worksheets("Sheet1").Range("B1:B10") Var1 = Application.WorksheetFunction.Sum(myRange) Range("C1") = Var1 End Sub

Utilização de um formulário para identificar as células que contêm valores negativos: Exemplo de Código: Sub test1() Dim arr() Dim zero zero = 0 Set rng = Sheets(1).Range("A1:A5") k = Application.CountIf(Range(rng(1), rng(5)), "<0") ReDim arr(1 To k) j = 1 For i = 1 To rng.Count If rng(i).Value < color="#00007f">Then arr(j) = rng(i).Address(False, False) & " " & rng(i).Value j …

Se limitarmos o comprimento da String de output, por exemplo para 11 dígitos, o nome sai truncado: Código do exemplo: Sub NameWidth() Dim Name As String * 11 ' O caracter "* NN" indica o número máximo de ' dígitos pretendido para a String Name = InputBox("Digite o seu Nome") Range("A1") = Name Name = InputBox("Digite o seu Nome") Range("A2") …

A Função dhRoman(123) ou, no exemplo, dhRoman(A1) retorna CXXIII: Código: Public Function dhRoman(ByVal intValue As Integer) As String ' Converte um numero decimal entre 1 and 3999 ' em numeração romana. ' A partir de "VBA Developer's Handbook, 2nd Edition" ' por Ken Getz and Mike Gilbert ' Copyright 2001; Sybex, Inc. All rights reserved. ' Exemplo: ' dhRoman(123) retorna …

A Função RptChar(), devolve o caracter digitado o número de vezes pretendido: Código: Public Function RptChar(ByVal strNum As String, _ ByVal intChar As String) As String Dim strOut As String strOut = String(strNum, intChar) RptChar = strOut End Function