Cómo convertir a binario en VBA

Uso de Visual Basic para Aplicaciones ( VBA) scripts para realizar tareas y cálculos complejos en Microsoft Office. VBA viene con 11 incorporado en las funciones de conversión de tipos , que se puede utilizar para cambiar los números de una notación a otro. Ninguna de estas funciones , sin embargo , puede convertir números decimales en binarios. El sistema decimal utiliza potencias de 10 para derivar dígitos ; el sistema de números binarios , por otra parte , utiliza potencias de dos . Utilice este principio para crear su propio convertidor de decimal a binario en VBA. Instrucciones
1

Inicie Microsoft Word o Microsoft Excel . Pulse la tecla "Ctrl " y "N " para crear un nuevo archivo .
2

Pulse " Alt" y " F11 " para abrir el Editor de Visual Basic (VBE ) .

Haga clic con 3

en el nombre del proyecto de VBA en el " Explorador de proyectos " del panel. Haga clic en " Insertar" y seleccione " Módulo ". Esto agrega "Module 1 " a la lista .

4 Haga doble clic en "Module 1 ". Escriba el siguiente código en la "Ventana de Código: "

Sub Conv2Bin ()

ISTR dévil como secuencia

Dim i As Long

i = Aplicación . InputBox (_

Prompt : = " Introduzca el número al que desea convertir y haga clic en Aceptar. ", _

Title: = "Convertir a binario ", _

Tipo: " . " = 1) spanish

ISTR = CStr ( i )

b = CBIN ( i )

MsgBox "Ha escrito " & ISTR y & Chr ( 13 ) & Chr ( 13 ) _

y " Su valor binario es " & Chr ( 13 ) & b

End Sub
5

Derecho clic en el nombre del proyecto de VBA en el " Explorador de proyectos " panel de nuevo . Haga clic en " Insertar" y seleccione " Módulo ". Esto agrega " Módulo 2 " a la lista .
6

Haga doble clic en " Módulo 2 ". Escriba el siguiente código en la "Ventana de Código. "

Función CBIN ( Número As Long ) As String

temperatura As Variant

Temp = 1
< p > hacer hasta temperatura > Número

temp = Temperatura * 2

Loop

¿ Hasta que temperatura < 1

Si Numero > = Temperatura Entonces

CBIN = CBIN +
Número

" 1 " = número - temp

demás

CBIN CBIN + = " 0 "

End If

temp = Temperatura /2

Loop

CBIN = CStr ( Val ( CBIN ))

End Function
7

Press "F5 ". Seleccione " Conv2Bin " de la lista de macros y haga clic en "Ejecutar ".
8

el número que usted desea convertir en la casilla. Haga clic en " Aceptar". Se abrirá un cuadro de mensaje que contiene el valor binario para el número que ha introducido .