Gebruik Visual Basic for Applications ( VBA ) scripts om complexe taken en berekeningen in Microsoft Office uit te voeren . VBA wordt geleverd met 11 ingebouwde conversie functies, die u kunt gebruiken om nummers van de ene notatie naar de andere . Geen van deze functies kan echter kommagetallen converteren naar binair . Het decimale systeem gebruikt machten van 10 cijfers leiden , het binaire systeem , anderzijds , gebruikt machten van twee . Gebruik dit principe uw eigen decimaal - naar - binaire converter maken in VBA . Instructies
1 Start Microsoft Word of Microsoft Excel . Druk op " Ctrl " en " N " om een nieuw bestand te maken .
Druk " Alt " 2 en " F11 " om de Visual Basic Editor ( VBE ) te openen .
< Br > 3 klik met de rechtermuisknop op de naam van het VBA-project in de " project Explorer " paneel . Klik op " Invoegen" en selecteer " Module . " Dit voegt " Module1 " aan de lijst .
4 Dubbelklik op " Module1 . " Voer de volgende code in de " Code Window : " Sub Conv2Bin
( ) Dim Istr
als Koord
Dim i As Long
i = Application . InputBox ( _ Prompt
: = " Typ het getal dat u wilt converteren en klik op OK . ' , _ Titel | : = " Convert to Binary " , _
Type: " . " = 1 ) op Twitter Istr = CStr ( i ) op b = CBIN ( i ) MsgBox
" U heeft " & Istr & & Chr ( 13 ) & Chr ( 13 ) _
& " De binaire waarde is " & Chr ( 13 ) & b
End Sub
Rechts 5 - klik op de naam van het VBA-project in de " project Explorer " paneel weer . Klik op " Invoegen" en selecteer " Module . " Dit voegt " Module2 " aan de lijst .
6 Dubbelklik op " Module2 . " Voer de volgende code in de "Code Window . " Functie CBIN
( nummer As Long ) As String Dim Temp
als Variant Temp
= 1
Doe tot Temp > Aantal Temp = Temp * 2 Loop
Doe tot Temp < 1
Als nummer > = Temp dan CBIN = CBIN + " 1 " nummer
= Aantal
- Temp
Else CBIN = CBIN + " 0 "
end If Temp
= Temp /2
Loop
CBIN = CStr ( Val ( CBIN ) ) op end Function
7 Druk op " F5 . " Selecteer " Conv2Bin " uit de lijst met macro's en klik op " Uitvoeren . "
Type 8 het nummer dat u wilt converteren in het vak . Klik op " OK . " Dit opent een dialoogvenster dat de binaire waarde voor het nummer dat u hebt ingevoerd bevat .
|
