Как использовать функцию excel внутри редактора vba

Question

Я хочу написать функцию Excel, подобную этой. Это расширение функции Dec2Bin

Public Function Dec2BinEx(x As Long) 
    Dec2BinEx = dec2bin(x) + 10 
End Function 

Но я получаю сообщение об ошибке при попытке использовать его. Как я могу назвать функцию excel внутри визуального базового редактора

Answer 1

В общем, вы вызываете функции Excel с помощью Application.WorksheetFunction.SomeFunctionName. Тем не менее, Dec2Bin является особенным, поскольку он является надстройкой, а не чистой функцией Excel. Следовательно, Application.WorksheetFunction здесь не работает. Вместо этого вы должны сделать функции надстройки доступными для вашего кода. Чтобы сделать это, выполните следующие действия

• В Excel, меню Инструменты/Add-Ins, сделать уверен, что надстройка Analysis ToolPak - VBA импортируется.

• Затем установите ссылку на эту надстройку в коде: в редакторе VBA, меню Tools/References, добавьте ссылку на atpvbaen.xls.

Тогда ваш исходный код, опубликованный в вашем quesiton, должен работать нормально.

Answer 2

Прежде всего вам необходимо создать модуль, например, из меню select Вставить-> Модуль. Затем внутри этого модуля создайте функцию с именем main. Эта функция запускается по умолчанию при запуске кода. Теперь внутри этой функции называют свою собственную функцию, как это:

Sub main() 
    Call Dec2BinEx(your_value_here) 
End Sub 

Public Function Dec2BinEx(x As Long) 
    Dec2BinEx = dec2bin(x) + 10 
End Function 

Сделав это, убедитесь, что у вас есть ссылка на DEC2BIN функции или если вы создаете, что тоже. Спасибо