Come convertire da binario in VBA

utilizzare Visual Basic, Applications Edition (VBA ) di script per eseguire le attività e calcoli complessi in Microsoft Office . VBA è dotato di 11 built- in funzioni di conversione di tipo , che è possibile utilizzare per cambiare numeri da uno notazione all'altra . Nessuna di queste funzioni , tuttavia , in grado di convertire i numeri decimali in binario. Il sistema decimale utilizza potenze di 10 per ricavare cifre; il sistema binario , invece , utilizza potenze di due . Utilizzare questo principio per creare un convertitore da decimale a binario in VBA . Istruzioni
1

avviare Microsoft Word o Microsoft Excel . Premere "Ctrl" e "N" per creare un nuovo file .
2

Premere " Alt " e " F11 " per aprire l'editor di Visual Basic (VBE ) .

3

pulsante destro del mouse sul nome del progetto VBA nel pannello " Gestione progetti " . Fare clic su "Inserisci" e selezionare "Modulo ". Questo aggiunge " Modulo1 " alla lista .
4

Fare doppio clic su " Modulo1 ". Inserire il codice seguente nella " finestra del codice : "

Sub Conv2Bin ( ) per

Dim istr As String

Dim i As Long

i = Application . InputBox ( _

Prompt : = "Digitare il numero che si desidera convertire e fare clic su OK . " , _

Title : = " Converti in binario " , _

tipo: " . " = 1 ) per

istr = CStr (i ) per

b = CBIN (i ) per

MsgBox "Hai inserito " & ISTR & & Chr ( 13 ) & Chr ( 13) _

& " Il suo valore binario è " & Chr ( 13) & B