Se puede acceder a la mayoría de las funciones de la hoja de cálculo de Excel en VBA utilizando el objeto WorksheetFunction. Sin embargo, es posible que algunas funciones no parezcan estar disponibles. Una de esas funciones es BIN2DEC, que convierte un valor binario en un valor decimal. La razón por la que no está disponible es que BIN2DEC no es realmente una función de hoja de cálculo de Excel, es parte del complemento Analysis ToolPak.

Siendo ese el caso, tiene dos opciones: puede cargar el equivalente de VBA de Analysis ToolPak, o puede crear su propia función BIN2DEC en VBA. Para hacer lo primero, asegúrese de instalar en Excel el complemento Analysis ToolPak – VBA. Si no aparece en los complementos disponibles, utilice Windows para buscar el archivo ATPVBAEN.XLA. (Si está utilizando una versión de Excel en otro idioma que no sea inglés, entonces la parte «EN»

del archivo será diferente.) Este es el complemento real que desea habilitar.

Una vez que haya habilitado el complemento, muestre el Editor de VBA y elija Herramientas | Referencias para mostrar el cuadro de diálogo Referencias. Asegúrese de que la referencia atpvbaen.xla esté seleccionada. Cierre el cuadro de diálogo y podrá usar BIN2DEC como lo haría con cualquier otra función de la hoja de trabajo.

La otra opción es crear su propia función BIN2DEC. El siguiente es un ejemplo de una función que acepta una cadena que contiene los dígitos binarios y devuelve un valor numérico que representa el valor decimal de esa cadena.

Function Bin2Dec(sMyBin As String) As Long     Dim x As Integer     Dim iLen As Integer

iLen = Len(sMyBin) - 1     For x = 0 To iLen         Bin2Dec = Bin2Dec + _           Mid(sMyBin, iLen - x + 1, 1) * 2 ^ x     Next End Function

Esta función en realidad no tiene las mismas limitaciones que la función de la hoja de trabajo BIN2DEC; funcionará con números binarios que contengan más de 10 dígitos.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3063) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.