Démarrez Microsoft Word ou Microsoft Excel. Presse "Ctrl" et "N" pour créer un nouveau fichier.
Presse "Alt" et "F11" pour ouvrir l'éditeur Visual Basic (VBE).
droit; cliquez sur le nom du projet VBA dans le "Explorateur de projet" panneau. Cliquer sur "Insérer" et sélectionnez "Module." Cela ajoute "Module1" à la liste.
Double-cliquez sur "Module1." Entrez le code suivant dans le "Code de la fenêtre:"
Sous Conv2Bin ()
Dim ISTR As String
Dim i As Long
i = Application.InputBox (_
Prompt: ="Tapez le numéro que vous souhaitez convertir et cliquez sur OK.", _Titre: ="Convertir en binaire", _
Type: = 1)
istr = CStr (i)
b = Cbin (i)
MsgBox "Vous avez saisi " & istr & "." & Chr (13) & Chr (13) _
& "Sa valeur binaire est " & Chr (13) & b
End Sub
droit; cliquez sur le nom du projet VBA dans le "Explorateur de projet" panneau à nouveau. Cliquer sur "Insérer" et sélectionnez "Module." Cela ajoute "Module2" à la liste.
Double-cliquez sur "Module2." Entrez le code suivant dans le "Fenêtre Code."
Fonction Cbin (Nombre As Long) As String
Temp Dim As Variant
Temp = 1
Faire jusqu'à Temp gt; Nombre
Temp = Temp * 2
Boucle
Faire jusqu'à Temp lt; 1
Si Nombre gt; = Temp PuisCbin = Cbin + "1"
Nombre = Nombre - Temp
Autre
Cbin = Cbin + "0"
End If
Temp = Temp / 2
Boucle
Cbin = CStr (Val (RCIB))
End Function
Presse "F5." Sélectionner "Conv2Bin" de la liste des macros, puis cliquez sur "Exécutez."
Tapez le numéro que vous voulez convertir dans la boîte. Cliquer sur "D'ACCORD." Ceci ouvre une boîte de message qui contient la valeur binaire pour le numéro que vous avez entré.