Cómo convertir a binario en VBA

Los valores binarios se escriben usando dos números, 0 y 1.

 

CONVERTIR BINARIO

Utilice Visual Basic para Aplicaciones (VBA guiones) para realizar tareas complejas y cálculos 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 binario sistema de numeración, por otra parte, utiliza potencias de dos. Utilice este principio para crear su propio convertidor de decimal a binario en VBA.

 

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

 

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

 

Haga clic 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.

 

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

 

Sub Conv2Bin ()

 

ISTR Dim As String

 

Dim i As Long

 

i = Application.InputBox (_

 

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

 

Title: = "Convertir a Binario", _

 

Tipo: = 1)

 

ISTR = CStr (i)

 

b = CBIN (i)

 

MsgBox "Usted entró" "Chr (13) _

 

ry valor es "b

 

End Sub

 

Haga 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.

 

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 Dim As Variant

 

Temp = 1

 

Do Until Número Temperatura

 

Temp = temperatura * 2

 

Bucle

 

Do Until Temp 1

 

Si Number = Temperatura Entonces

 

CBIN CBIN + = "1"

 

Number = Número - Temperatura

 

Más

 

CBIN CBIN + = "0"

 

End If

 

Temp = Temperatura / 2

 

Bucle

 

CBIN = CStr (Val (CBIN))

 

End Function

 

Pulse la tecla "F5". Seleccione "Conv2Bin" de la lista de macros y haga clic en "Ejecutar".

 

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