Excel VBA – Calculate Factorial
Excel VBA Code - Calculate Factorial
Well-structured VBA code for calculating the factorial of a number.
Open Microsoft Excel, create a new blank book, after go to TAB Programmer or click Alt+F11 and access to VBA Project.
Copy/paste code and try…
Sub CalculateFactorial()
Dim num As Integer
Dim result As Double
‘ Input
num = InputBox(“Enter a number:”)
‘ Calculate factorial
result = Factorial(num)
‘ Output
MsgBox “The factorial of ” & num & ” is ” & result
End Sub
Function Factorial(n As Integer) As Double
If n = 0 Then
Factorial = 1
Else
Factorial = n * Factorial(n – 1)
End If
End Function
Avaliação de Desempenho em Excel
Avaliação de desempenho é uma ferramenta de RH que vai além da análise da performance individual e coletiva das pessoas colaboradoras e seus comportamentos.
Mapa Assiduidade com Controlo de Horas
Mapa de Assiduidade com controlo de Horas.
Calculo Semanal e Mensal de horas trabalhadas por cada colaborador.
Para mais informações: clico@clico.pt
Geocodificação com Microsoft Excel e Bing Maps
Numa pesquisa sobre geocodificação usando Excel e Google Maps, encontrei um modelo de excel com todo o código já feito, bastante interessante. Para que funcione basta somente ativar as Macros no Microsoft Excel e criar uma chave API do Bing Maps.
Faça download em:
VBA- Identificar ultima linha e coluna da folha de calculo
Uma rotina que sempre precisamos recorrer nos nossos códigos e macros é aquela onde podemos recuperar a última linha e coluna que estão escritas na nossa folha de cálculo.Em diversas situações torna-se necessário utilizar esta informação, como por exemplo, quando precisamos percorrer todas as linhas da nossa folha de cálculo que possuam dados, seja uma lista de nomes, de produtos, de telefones ou qualquer outro tipo de lista.
Neste artigo vou explicar como obter esta informação em qualquer folha de cálculo, automaticamente.
O código aqui apresentado, serve para utilizar em qualquer folha de cálculo.
Já utilizei este código várias vezes, inclusive em exemplos já disponibilizados aqui no site. Um exemplo deste uso pode ser encontrado no artigo onde ensino a macro para enviar emails para sua lista ou neste outro no qual mostro como exibir uma barra de progresso para controlar o andamento do processamento da macro.
Este código é um exemplo e deverá ser contextualizado a cada projecto.
Para aceder ao editor de Macros VBA, carregue nas seguintes teclas: (ALT+F11), de seguida insira um Módulo e digite/copie o código abaixo.
Sub UltimaLinhaColuna()
Dim iUltimaLinha As Long
Dim iUltimaColuna As Long
Dim sh As Worksheet
Dim rng As Range
Set sh = ActiveSheet ‘Referência a folha que pretendemos encontrar a ultima linha e coluna
Set rng = sh.Range(“A1”).SpecialCells(xlCellTypeLastCell)
iUltimaLinha = rng.Row ‘Encontra a última linha
iUltimaColuna = rng.Column ‘Encontra a última coluna
MsgBox “A última linha com dados é: ” & iUltimaLinha & vbCrLf & “A última coluna com dados é: ” & iUltimaColuna, vbInformation
End Sub
Voltando a folha de cálculo, para ver a lista de Macros criadas, carregue nas teclas:(Alt+F8) e de seguida execute a macro criada (neste caso UltimaLinhaColuna)
Resultado final:
Microsoft Excel 2016
Criado pela Microsoft em 1987 para computadores que usam o sistema operativo da empresa antes já rodava no Mac (1985).O Excel é a melhor plataforma eletrónica para criação de folhas de cálculo, os seus recursos incluem uma interface intuitiva e capacitadas ferramentas de cálculo e de construção de gráficos que, juntamente com marketing agressivo, tornaram o Excel num dos mais populares aplicativos de computador até hoje.
Se pretender, pode adquirir este ebook aqui:
Gerar QrCode em Excel
Gerar QRCode em Excel, com recurso a VBA e API Google Charts.
Faça download aqui: QRCodeGenerator
Faça download aqui: QRCodeGenerator
Excel Formulas e Funções – Manual Básico
As fórmulas de cálculo são necessárias à realização de operações aritméticas e actualização dos dados após
modificação. Estes cálculos podem ser simples operações aritméticas ou complexas equações matemáticas.
