Använd Visual Basic for Applications ( VBA ) skript för att utföra komplicerade uppgifter och beräkningar i Microsoft Office . VBA levereras med 11 inbyggda funktioner Typkonvertering , som du kan använda för att byta siffror från en notation till en annan . Ingen av dessa funktioner , kan dock konvertera decimala tal till binär . Decimalsystemet används befogenheter 10 att härleda siffror , det binära talsystemet , å andra sidan , använder potenser av två . Använd denna princip för att skapa din egen decimal - till - digital -omvandlare i VBA . Instruktioner
1
Starta Microsoft Word eller Microsoft Excel . Tryck på " Ctrl " och " N " för att skapa en ny fil .
2
Tryck " Alt " och " F11 " för att öppna Visual Basic Editor ( VBE ) .
3
Högerklicka på namnet på VBA-projektet i " Project Explorer " panel . Klicka på " Infoga " och välj " Modul . " Detta lägger " Module1 " till listan .
4
Dubbelklicka på " Module1 . " Skriv följande kod i " Code Window : "
Sub Conv2Bin ( ) katalog
Dim ISTR As String
Dim I As Long
i = Application . InputBox ( _
Prompt : = " Skriv numret du vill konvertera och klicka på OK . " , _
Titel : = " konvertera till binär" , _
typ : " . " = 1 ) katalog
ISTR = CStr (i ) katalog
b = CBin (i ) katalog
MsgBox " Du angav " & ISTR & & Chr ( 13 ) & Chr ( 13 ) _
& " Dess binära värdet är " & Chr ( 13 ) & b
End Sub
5
Höger - klicka på namnet på VBA-projektet i " Project Explorer " -panelen igen . Klicka på " Infoga " och välj " Modul . " Detta lägger " Avsnitt 2 " i listan .
6
Dubbelklicka på " Avsnitt 2 . " Skriv följande kod i " Code fönstret . "
Funktion CBin ( Antal As Long ) As String
Dim Temp As Variant
Temp = 1
Gör tills Temp > Number
Temp = Temp * 2 Review
Loop
göra tills Temp < 1
p Om Number > = Temp Sedan
CBin = CBin + " 1 "
Number = Number - Temp
Else
CBin = CBin + " 0 "
End If
Temp = Temp /2 Review
Loop
CBin = CStr ( Val ( CBin ) ) katalog
End Function
7
Tryck " F5 ". Välj " Conv2Bin " från listan med makron och klicka på " Kör . "
8
Skriv numret som du vill konvertera i rutan . Klicka på " OK . " Detta öppnar ett meddelande som innehåller det binära värdet för det antal som du angett .
