Brug Visual Basic for Applications ( VBA ) scripts til at udføre komplekse opgaver og beregninger i Microsoft Office. VBA leveres med 11 indbyggede typen konvertering funktioner , som du kan bruge til at skifte numre fra en notation til en anden. Ingen af disse funktioner kan imidlertid konvertere decimaltal til binær . Det decimal system bruger beføjelser 10 til at udlede cifre det binære talsystem , og på den anden side, bruger beføjelser to. Brug dette princip at oprette din egen decimal -til- binær konverter i VBA. Instruktioner
1
Start Microsoft Word eller Microsoft Excel . Tryk på " Ctrl" og "N " for at oprette en ny fil.
2
Tryk på " Alt" og " F11 " for at åbne Visual Basic Editor ( VBE ) .
< Br > 3
Højreklik på navnet på den VBA-projektet i " Project Explorer " panel . Klik på "Indsæt " og vælg " Modul ". Dette tilføjer " Module1 " til listen.
4
Dobbeltklik på " Module1 ". Indtast følgende kode i "Code Window: "
Sub Conv2Bin ()
Dim ISTR As String
Dim i As Long
i = Application . InputBox (_
Prompt : = " Indtast nummer, du vil konvertere, og klik OK. " _
Titel: = "Konverter til Binary " , _
Type: " . " = 1)
ISTR = CStr ( i)
b = CBin ( i)
MsgBox " Du har indtastet " & ISTR & & Chr (13) & Chr (13) _
& " Dens binære værdi er " & Chr (13) & b
End Sub
5
Right -klik på navnet på den VBA-projektet i " Project Explorer " panel igen. Klik på "Indsæt " og vælg " Modul ". Dette tilføjer " Module2 " til listen.
6
Dobbeltklik på " Module2 ". Indtast følgende kode i "Code vinduet. "
Function CBin (Antal As Long ) As String
Dim Temp Som Variant
Temp = 1
< p > Gør Indtil Temp > Antal
Temp = Temp * 2
Loop
Gør Indtil Temp < 1
p Hvis Number > = Temp Så
CBin = CBin + "1 "
Number = Number - Temp
Else
CBin = CBin + " 0 "
End If
Temp = Temp /2
Loop
CBin = CStr ( Val ( CBin ) )
End Function
7
Tryk på " F5 ". Vælg " Conv2Bin " fra listen over makroer , og klik på " Run ".
8
Skriv det nummer, du ønsker at konvertere i kassen. Klik på " OK". Dette åbner en besked boks , der indeholder den binære værdi for det nummer, du har indtastet.