Лента Excel VBA - установка значения EditBox при запуске на основе значения на листе

#excel #vba #ribbon #editbox

#excel #vba #лента #editbox

Вопрос:

У меня есть EditBox в файле Excel, где я хочу отобразить дату, которая хранится в именованной ячейке на определенном листе. Я хочу, чтобы это значение отображалось при открытии файла Excel.

Вот строка XML ленты:

<editBox id="editBoxSDate" label = "S Date" onChange = "onChange_SDate" getText = "getText_SDate"/>

Вот функция getText_SDate:

 Public Function getText_SDate(ByRef control As Office.IRibbonControl) As String
    getText_SDate = CStr(wksSettings.Range("SettingsSDate"))
End Function

Когда я открываю файл и нажимаю на вкладку «Моя пользовательская лента», я получаю следующее сообщение об ошибке:
Неправильное количество аргументов или недопустимое присвоение свойства

Что я упускаю или делаю неправильно?

Ответ №1:

Либо измените имя Function или getText команду, чтобы они соответствовали, на самом деле они не совпадают, т.Е.: getText_Date против getText_SDate