Use Visual Basic for Applications (VBA) de scripts para executar tarefas complexas e cálculos no Microsoft Office. VBA vem com 11 funções de conversão de tipo built-in , que você pode usar para mudar os números de uma notação para outra. Nenhuma dessas funções , no entanto, pode converter números decimais para binário. O sistema decimal usa potências de 10 para derivar dígitos, o sistema numérico binário , por outro lado, usa potências de dois . Utilize este princípio para criar seu próprio conversor decimal para binário em VBA. Instruções
1

Inicie o Microsoft Word ou Microsoft Excel. Pressione " Ctrl" e "N" para criar um novo arquivo .
2

Pressione " Alt " e " F11 " para abrir o Editor do Visual Basic (VBE) .
< Br > 3

clique com o botão direito do mouse sobre o nome do projeto do VBA no painel " Project Explorer " . Clique em " Inserir" e selecione " Module ". Isso adiciona " Module1 " para a lista.
4

Dê um duplo clique em " Module1 ". Digite o seguinte código para a " janela de código : "

Sub Conv2Bin ()

Dim istr As String

Dim i As Long

i = Aplicação . InputBox (_

Prompt : = " . Digite o número que você deseja converter e clique em OK ", _

Título: = "Converter para binário ", _

Tipo: = 1)

istr = CStr ( i)

b = CBIN ( i)

MsgBox " Você digitou" & istr & " . " & Chr (13) & Chr (13) _

& " Seu valor binário é" & Chr (13 ) & b

End Sub
5

Direito clique sobre o nome do projeto VBA no painel " Project Explorer " novamente. Clique em " Inserir" e selecione " Module ". Isso adiciona " Module2 " à lista.
6

Dê um duplo clique em " Module2 ". Digite o seguinte código para a " janela de código . "

Função CBIN (Número As Long ) As String

Dim Temp As Variant

Temp = 1

fazer até Temp> Número

Temp = Temp * 2

loop

Do Until Temp <1

Se Number> = Temp Então

CBIN = CBIN + "1"

Number = Number - Temp

Else

CBIN = CBIN + "0"

End If Função

Temp = Temp /2

loop

CBIN = CStr ( Val ( CBIN ) )

Fim
7

Pressione " F5 ". Selecione " Conv2Bin " na lista de macros e clique em " Executar".
8

Digite o número que você deseja converter na caixa. Clique em " OK". Isso abre uma caixa de mensagem que contém o valor binário para o número que você digitou.