Veja como o RESTO da divisão pode ser útil (operador MOD do VBA) #vbaexcel #excel

Perguntaram como separar dígitos pares dos ímpares e nós fizemos isso usando o operador MOD do VBA que retorna o RESTO da divisão. Confira!

👉 QUEM SOMOS:
Nosso canal tem como objetivo ensinar Excel e VBA a internautas com pouco ou nenhum conhecimento sobre o assunto. VBA, ou Visual Basic for Application, é uma linguagem de programação que automatiza qualquer tarefa em suas planilhas. Confira!

🔵 CÓDIGO DESTE VÍDEO:
'OPERADORES MATEMÁTICOS:
'São sinais utilizados para fazer operações matemáticas.
'Em 6 + 3, + é um operador.

'Tipos de operadores:
' +
' -
' *
' /
' Mod -- Divide dois números e retorna o resto.
' ^ ---- elevar número para potência de um expoente

Sub Teste_Mod01()
Dim X As Integer, Y As Integer, Resp As Integer

X = 15: Y = 2
Resp = X Mod Y

MsgBox "Resto: " & Resp
End Sub

'-----------------------------------------------------------
Sub Teste_Mod02()
Dim X As Integer, Resp As Integer

X = 11
Resp = X Mod 2

If Resp = 0 Then MsgBox "A variável X é par."
If Resp = 1 Then MsgBox "A variável X é impar."
End Sub

'-----------------------------------------------------------
Sub Teste_Mod03()
Dim Numero As Variant
Dim Digito%, Giro%, Barra%

Numero = Range("C3").Value
Giro = 1: Barra = 1
[F1] = 1: [B8] = "": [D8] = ""

Do While Giro MENOR Len(Numero) + 1
Application.Wait Now + TimeValue("00:00:01")
Digito = Mid(Numero, Giro, 1)

If Digito Mod 2 = 0 Then
Range("B8") = Range("B8") & Digito
Else
Range("D8") = Range("D8") & Digito
End If

Range("F1") = Barra
Giro = Giro + 1: Barra = Barra + 1
Loop

MsgBox "Fim do código."
Range("F1") = ""
End Sub

📌 DOWNLOAD ARQUIVOS GRÁTIS:

📌 PLAYLIST PERGUNTAS DOS INTERNAUTAS:

📌 PLAYLIST DICAS RÁPIDAS:

📌 PLAYLIST PROCEDIMENTOS:

📌 PLAYLIST FORMULÁRIOS: