Nutzungsbedingungen Visual Basic for Applications (VBA )-Skripte , um komplexe Aufgaben und Berechnungen in Microsoft Office ausführen . VBA kommt mit 11 eingebauten Typkonvertierungsfunktionen , die Sie verwenden, um Zahlen von einer Schreibweise zu einem anderen wechseln können . Keine dieser Funktionen kann jedoch Dezimalzahlen in binäre konvertieren. Dezimalsystem verwendet Vielfaches von 10 abzuleiten Ziffern , die Binärsystem , auf der anderen Seite verwendet Zweierpotenzen . Verwenden Sie dieses Prinzip auf eigene Dezimal- Binär-Wandler in VBA erstellen. Anleitung
1
Starten Sie Microsoft Word oder Microsoft Excel. Drücken Sie "Strg" und "N ", um eine neue Datei zu erstellen .
2
Presse "Alt " und " F11 ", um den Visual Basic-Editor (VBE ) zu öffnen.
3
der rechten Maustaste auf den Namen des VBA-Projekts in der " Projekt-Explorer "-Panel . Klicken Sie auf "Einfügen" und wählen Sie " Module". Dies fügt " Module1 " auf der Liste.
4
Doppelklicken Sie auf " Module1 . " Geben Sie den folgenden Code in das "Code -Fenster: "
Sub Conv2Bin () Dim
istr As String Dim i
As Long
i = Anwendung . InputBox ( _
Prompt: = " Geben Sie die Nummer, die Sie konvertieren möchten , und klicken Sie auf OK. ", _
Title: = " zu Binary konvertieren ", _
Typ: " . " = 1) german
istr = CStr ( i)
b = CBIN ( i)
MsgBox " Sie haben " & istr & & Chr (13) & Chr (13) _
& " Die binäre Wert ist" & Chr (13) & b
End Sub
5
Rechts auf den Namen des VBA-Projekts in der " Projekt-Explorer "-Panel wieder auf . Klicken Sie auf "Einfügen" und wählen Sie " Module". Dies fügt " Module2 " auf der Liste.
6
Doppelklicken Sie auf " Module2 . " Geben Sie den folgenden Code in das "Code -Fenster".
Funktion CBIN (Anzahl As Long ) As String Dim
Temp As Variant
Temp = 1
< p > Do Until Temp> Anzahl
Temp = Temp * 2
Schleife
Do Until Temp <1
Wenn Anzahl > = Temp Dann
CBIN = CBIN + "1"
Number = Number - Temp
Else
CBIN = CBIN + "0"
End If
Temp = Temp /2
Schleife
CBIN = CStr ( Val ( CBIN ) )
End Function
7
Presse "F5 ". Wählen Sie " Conv2Bin " aus der Liste der Makros , und klicken Sie auf "Ausführen ".
8
Bitte die Nummer , die Sie in der Box konvertieren möchten. Klicken Sie auf "OK". Es öffnet sich ein Dialogfenster , das die binären Wert für die Zahl, die Sie eingegeben haben, enthält .
