Bruk Visual Basic for Applications ( VBA ) skript for å utføre komplekse oppgaver og beregninger i Microsoft Office. VBA leveres med 11 innebygde typen konvertering funksjoner , som du kan bruke til å bytte tall fra en notasjon til en annen. Ingen av disse funksjonene , men kan konvertere desimaltall til binær . Desimalsystemet anvender krefter for å 10 utlede siffer , det binære tallsystem , på den annen side , anvender krefter på to. Bruk dette prinsippet til å lage din egen desimal -til -binære converter i VBA. Instruksjoner
en

Start Microsoft Word eller Microsoft Excel . Trykk "Ctrl " og " N " for å opprette en ny fil .
2

Trykk " Alt" og " F11 " for å åpne Visual Basic-redigering ( VBE ) .

3

Høyreklikk på navnet på VBA -prosjektet i "Project Explorer " panel . Klikk på " Sett inn" og velg " Module ". Dette legger " Module1 " til listen.
4

Dobbeltklikk på " Module1 . " Skriv inn følgende kode inn i " Kode Window : "

Sub Conv2Bin ( )

Dim Istr As String

Dim i As Long

i = Application . InputBox (_

Prompt : = " Skriv inn nummeret du vil konvertere, og klikk OK. ", _

Tittel : = " Konverter til Binary ", _

Type: " . " = 1 )

Istr = CStr ( i)

b = CBin ( i)

MsgBox "Du skrev " & Istr & & Chr ( 13 ) & Chr ( 13 ) _

& " Its binær verdi er " & Chr ( 13 ) & b

End Sub
5

Høyre - klikk på navnet på VBA -prosjektet i "Project Explorer "-panelet igjen . Klikk på " Sett inn" og velg " Module ". Dette legger " Module2 " til listen.
6

Dobbeltklikk på " Module2 . " Skriv inn følgende kode inn i " Kode Window. "

Function CBin (Antall As Long) As String

Dim Temp As Variant

Temp = 1
< p > Gjør inntil Temp > Number

Temp = Temp * 2

Loop

inntil Temp < 1
p Hvis Number> = Temp Deretter

CBin = CBin + " 1 "

Number = Number - Temp

Else

CBin = CBin + " 0 "

End If

Temp = Temp /2

Loop

CBin = CStr ( Val ( CBin ) )

End Function
7

Trykk "F5 ". Velg " Conv2Bin " fra listen over makroer og klikk på " Run . "
8

Skriv inn nummeret du ønsker å konvertere i boksen . Klikk på " OK ". Dette åpner en meldingsboks som inneholder binære verdien for nummeret du har angitt.