Título del mensaje: Macro para convertir numeros dedimales a binarios (dir IP)

Hola

El siguiete procedimiento sirve para convertir numeros decimales a binarios en forma de dir IP

este es el codigo utilizado

Código:

Dim i As Byte Dim ndecimal As Integer Dim respuesta As Long Dim binario As String Dim divid As Integer Private Sub CommandButton1_Click() For i = 1 To 4     ndecimal = Sheets("Hoja1").Cells(1, i)     decimalbinario Next i End Sub Sub decimalbinario() divid = 128 For j = 1 To 8     respuesta = ndecimal - divid     If respuesta < 0 Then             binario = binario & "0"         Else             binario = binario & "1"             ndecimal = respuesta     End If     divid = divid / 2 Next j Sheets("Hoja1").Cells(2, i) = binario binario = "" End Sub

se compone de 3 partes 1. variablas glopales utilizadas para el calculo 2. procedimiento vinculado al boton 3. procedimeinto llamadado para realozar calculo


abrir una hoja de calculo insertar un boton dar doble click en este y borrar todo su contenido y reemplazar por el anterior (no cambiar las propiedades del boton para no generar error)

PD solo debes escribir valores reales de 0 a 255 por cada celda y las celdas de la fila 2 de la columna A hasta la D se debe cambiar su formato a texto.

en la hoja de calculo llenar en la fila 1 y desde la columna A hasta la D los 4 decimales corespondientes a la dir IP q como tal coreesponde a numeros del 0 al 255, presionar el boton y su correspondiente a binario saldra en la correspondete celda inferior

Espero les sea util no duden en formular sus inquietudes

Título del mensaje: Re: Macro para convertir numeros dedimales a binarios (dir I

Buen aporte JoxeDuke12!!!