Использование UDF в Excel для обновления листа

Question

Использование UDF в Excel для обновления листа

52

Не совсем вопрос, но размещайте это для комментариев, потому что я не помню, как раньше видел этот подход. Я ответил на комментарий к предыдущему ответу и попробовал что-то, чего я раньше не пытался: результат был интересным, поэтому я бы опубликовал его как отдельный вопрос, а также свой собственный ответ.

На SO (и на многих других форумах) было много вопросов по принципу "что не так с моей пользовательской функцией", где ответ был "вы не можете обновить листок из UDF" - это ограничение, описанное здесь:

Описание ограничений пользовательских функций в Excel

Существует несколько способов, которые были описаны для преодоления этого, например, см. здесь (https://sites.google.com/site/e90e50/excel-formula-to-change-the-value-of-another-cell), но я не думаю, что мой точный подход среди них.

Смотрите также: изменение комментариев ячейки из UDF

Tim Williams 02 май 2014, в 18:43

Источник

1

Очень интересно ....... когда я пытался перейти с красного на желтый, я получил Excel, чтобы рухнуть !!
Gary's Student 02 май 2014, в 18:03

Теги:

vba

excel-vba

excel

2 ответа

12

Недопустимый MSDN KB.

В нем говорится

Пользовательская функция, вызываемая формулой в ячейке рабочего листа, не может изменить среду Microsoft Excel. Это означает, что такая функция не может выполнять одно из следующих действий:

Вставить, удалить или форматировать ячейки в электронной таблице.
Изменить другое значение ячейки.
Перемещение, переименование, удаление или добавление листов в книгу.
Измените любые параметры среды, такие как режим расчета или виды экрана.
Добавить имена в книгу.
Установить свойства или выполнить большинство методов.

В приведенном ниже коде вы можете легко увидеть точки 1, 2,4 и 5.

Function SetIt(RefCell)
    RefCell.Parent.Evaluate "SetColor(" & RefCell.Address(False, False) & ")"
    RefCell.Parent.Evaluate "SetValue(" & RefCell.Address(False, False) & ")"
    RefCell.Parent.Evaluate "AddName(" & RefCell.Address(False, False) & ")"

    MsgBox Application.EnableEvents
    RefCell.Parent.Evaluate "ChangeEvents(" & RefCell.Address(False, False) & ")"
    MsgBox Application.EnableEvents

    SetIt = ""
End Function

'~~> Format cells on the spreadsheet.
Sub SetColor(RefCell As Range)
    RefCell.Interior.ColorIndex = 3 '<~~ Change color to red
End Sub

'~~> Change another cell value.
Sub SetValue(RefCell As Range)
   RefCell.Offset(, 1).Value = "Sid"
End Sub

'~~> Add names to a workbook.
Sub AddName(RefCell As Range)
   RefCell.Name = "Sid"
End Sub

'~~> Change events
Sub ChangeEvents(RefCell As Range)
    Application.EnableEvents = False
End Sub

Siddharth Rout 30 июль 2015, в 10:41

1

Просто ради спора - можно ли утверждать, что КБ верен, поскольку UDF оценивает / вызывает Sub, который на самом деле делает изменения ...?
Sam 30 июль 2015, в 09:52
1

Тогда для обсуждения: P KB должен сказать, что ясно. However the above/below can be achieved using Evalute/Calling a Sub вместо того, чтобы выдавать However the above/below can be achieved using Evalute/Calling a Sub утверждение, that such a function cannot do any of the following.... @ MacRoman
Siddharth Rout 30 июль 2015, в 10:08
5

Хорошее возвращение;) Очевидно, что люди в MS не были готовы к этому. Я также предлагаю новый тег vba-voodoo для таких вещей
Sam 30 июль 2015, в 10:15
3

@MacroMan: Obviously the people at MS weren't prepared for this. Хотя я могу понять и жить с этим. Моя настоящая претензия к этим людям заключается в том, что они не воспринимают всерьез отзывы MS Office. Я не знаю, сколько отзывов я оставил на MSDN KB за последние пару лет, но ни один из них не был обработан! Как будто они кровавые, все равно!
Siddharth Rout 30 июль 2015, в 10:23
1

Вероятно, они этого не делают. Что касается MS, Office - их «дойная корова», и (по моему мнению) на рынке нет реального конкурента, особенно в том, что касается предприятия, поэтому они могут позволить себе быть немного беспечными. в этом отношении. Я предполагаю, что они сосредотачивают свои усилия на создании более новой версии всего, чтобы попытаться не отставать от рынка * гм - Apple *, а не делать то, что они получили, еще лучше ...
Sam 30 июль 2015, в 10:43
0

Действительно полезно! Я создаю функцию, которая принимает различные биты информации, выполняет немного логики и вычислений и возвращает строку, содержащую информацию, в более удобочитаемом виде. Как часть этого я хотел бы иметь часть текста больше, чем другие биты. Код выше, похоже, будет работать для этого. (Хотелось бы использовать реальные базы данных и показывать вещи на веб-страницах, но это другое дело!)
user535673 21 июль 2017, в 13:55

Показать ещё 4 комментария

Ещё вопросы

Очень интересно ....... когда я пытался перейти с красного на желтый, я получил Excel, чтобы рухнуть !!
Просто ради спора - можно ли утверждать, что КБ верен, поскольку UDF оценивает / вызывает Sub, который на самом деле делает изменения ...?
Тогда для обсуждения: P KB должен сказать, что ясно. However the above/below can be achieved using Evalute/Calling a Sub вместо того, чтобы выдавать However the above/below can be achieved using Evalute/Calling a Sub утверждение, that such a function cannot do any of the following.... @ MacRoman
Хорошее возвращение;) Очевидно, что люди в MS не были готовы к этому. Я также предлагаю новый тег vba-voodoo для таких вещей
@MacroMan: Obviously the people at MS weren't prepared for this. Хотя я могу понять и жить с этим. Моя настоящая претензия к этим людям заключается в том, что они не воспринимают всерьез отзывы MS Office. Я не знаю, сколько отзывов я оставил на MSDN KB за последние пару лет, но ни один из них не был обработан! Как будто они кровавые, все равно!
Вероятно, они этого не делают. Что касается MS, Office - их «дойная корова», и (по моему мнению) на рынке нет реального конкурента, особенно в том, что касается предприятия, поэтому они могут позволить себе быть немного беспечными. в этом отношении. Я предполагаю, что они сосредотачивают свои усилия на создании более новой версии всего, чтобы попытаться не отставать от рынка * гм - Apple *, а не делать то, что они получили, еще лучше ...
Действительно полезно! Я создаю функцию, которая принимает различные биты информации, выполняет немного логики и вычислений и возвращает строку, содержащую информацию, в более удобочитаемом виде. Как часть этого я хотел бы иметь часть текста больше, чем другие биты. Код выше, похоже, будет работать для этого. (Хотелось бы использовать реальные базы данных и показывать вещи на веб-страницах, но это другое дело!)

Tim Williams · Accepted Answer · 2014-05-02T23-04-00.000Z

Отправка ответа, чтобы я мог отметить свой "вопрос" как ответ.

Я видел другие обходные пути, но это кажется более простым, и я удивлен, что он работает вообще.

Sub ChangeIt(c1 As Range, c2 As Range)
    c1.Value = c2.Value
    c1.Interior.Color = IIf(c1.Value > 10, vbRed, vbYellow)
End Sub


'########  run as a UDF, this actually changes the sheet ##############
' changing value in c2 updates c1...
Function SetIt(src, dest)

    dest.Parent.Evaluate "Changeit(" & dest.Address(False, False) & "," _
                        & src.Address(False, False) & ")"

    SetIt = "Changed sheet!" 'or whatever return value is useful...

End Function

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

Примечание: Неподтверждено в каком-либо реальном приложении для производства.

Кто-нибудь знает, почему это работает? Я имею в виду серьезно, это колдовство.
Я протестировал его на Win 7 HB, Excel 2003, значения изменились нормально, но цветное форматирование не работает .. Также есть еще один обходной путь - см. Часть 2 ответа http://stackoverflow.com/a / 23232311/2165759
Excel 2010 32-битный на Win7 64-битный - работал! .. один раз, затем сбой при пересчете.
Единственное предостережение, которое я могу себе представить, - это возможность создания бесконечного цикла вычислений, в котором этот метод используется для изменения или создания значения или формулы в ячейке. Это, возможно, может заново инициировать цикл расчета и так далее, и так далее. Это может быть не распознано (и не остановлено) системой как циклическая ссылка; отсюда и аварии отмечены. Подобно макросам событий (например, Worksheet_Change ), выполняющимся поверх них. Мораль истории: если вы пытаетесь переопределить «поведение по замыслу» , примите все ограничения, которые с ним связаны.
@Jeeped - согласился: это определенно вещь типа «используй на свой страх и риск».
Вы не можете добавить разрывы в коде из-за Evaluate в обход вызываемой функции. Может создавать проблемы при отладке.
@Jeeped круговая ссылка решена в моем (самостоятельно) ответе на вопрос здесь: stackoverflow.com/questions/38863510/…