|
L'utilisation de Visual Basic pour Applications ( VBA) des scripts pour effectuer des tâches et des calculs complexes dans Microsoft Office . VBA est fourni avec 11 fonctions de conversion de type intégrés, que vous pouvez utiliser pour passer des nombres d'une notation à l'autre. Aucune de ces fonctions , cependant, peut convertir des nombres décimaux en binaire . Le système décimal utilise des puissances de 10 à dériver chiffres , le système de numération binaire , d'autre part , utilise des puissances de deux . Utiliser ce principe pour créer votre propre convertisseur décimal à binaire en VBA. Instructions
1 démarrer Microsoft Word ou Microsoft Excel . Appuyez sur " Ctrl" et "N " pour créer un nouveau fichier.
2 Appuyez sur " Alt" et " F11 " pour ouvrir l'éditeur Visual Basic ( VBE ) .
< Br > 3 clic-droit sur le nom du projet VBA dans le panneau " Explorateur de projet " . Cliquez sur "Insérer" et sélectionner "Module ". Cela ajoute " Module1 " à la liste.
4 Double- cliquez sur " Module1 ". Entrez le code suivant dans la " fenêtre de code : "
Sous Conv2Bin ()
istr Dim As String
Dim i As Long
i = Demande . 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)
de MsgBox " Vous avez saisi " & istr & & Chr (13) & Chr (13) _
et " sa valeur binaire est" & Chr (13 ) & B à End Sub
5 droit -cliquez sur le nom du projet VBA dans le panneau " Project Explorer" à nouveau. Cliquez sur "Insérer" et sélectionner "Module ". Cela ajoute " Module2 " à la liste.
6 Double- cliquez sur " Module2 ". Entrez le code suivant dans la fenêtre " Code. "
Fonction Cbin ( Nombre As Long ) As String
Temp As Variant
Temp = 1
Do Until Temp > Nombre
Temp = Temp * 2
boucle
Do Until Temp < 1
Nombre > = Temp Puis Photos Cbin = Cbin + "1"
Nombre de = Number - Temp
Else
Cbin = Cbin + "0"
End If
Temp = Temp /2
boucle
Cbin = CStr ( Val ( Cbin ) )
End Function
7 Appuyez sur " F5 ". Sélectionnez " Conv2Bin " dans la liste des macros et cliquez sur " Exécuter".
8 Type de le numéro que vous voulez convertir dans la boîte. Cliquez sur "OK". Ceci ouvre une boîte de message qui contient la valeur binaire pour le numéro que vous avez entré.
|
