Bamboo
Дата: Среда, 30.03.2016, 11:24 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Может ли пользовательская функция присвоить значения другим ячейкам. Если да, то как это можно сделать? Запускать из пользовательской функции макрос, который будет записывать?
Может ли пользовательская функция присвоить значения другим ячейкам. Если да, то как это можно сделать? Запускать из пользовательской функции макрос, который будет записывать? Bamboo
Ответить
Сообщение Может ли пользовательская функция присвоить значения другим ячейкам. Если да, то как это можно сделать? Запускать из пользовательской функции макрос, который будет записывать? Автор - Bamboo Дата добавления - 30.03.2016 в 11:24
Bamboo
Дата: Среда, 30.03.2016, 14:04 |
Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Попробовал сделать вот так: [vba]Код
Function HighLevACC(ACC, DistMap, Counter) Х=5 Call CellRecord(X, 1, Counter) End Function Public Sub CellRecord(X, RecValue, Counter) Debug.Print X, RecValue, Counter(X, 1); Result Counter.Cells(X, 1).Value = RecValue End Sub
[/vba] В результате не работает последняя срока подпрограммы: Counter.Cells(X, 1).Value = RecValue В чем может быть ошибка?
Попробовал сделать вот так: [vba]Код
Function HighLevACC(ACC, DistMap, Counter) Х=5 Call CellRecord(X, 1, Counter) End Function Public Sub CellRecord(X, RecValue, Counter) Debug.Print X, RecValue, Counter(X, 1); Result Counter.Cells(X, 1).Value = RecValue End Sub
[/vba] В результате не работает последняя срока подпрограммы: Counter.Cells(X, 1).Value = RecValue В чем может быть ошибка? Bamboo
Сообщение отредактировал Bamboo - Среда, 30.03.2016, 14:50
Ответить
Сообщение Попробовал сделать вот так: [vba]Код
Function HighLevACC(ACC, DistMap, Counter) Х=5 Call CellRecord(X, 1, Counter) End Function Public Sub CellRecord(X, RecValue, Counter) Debug.Print X, RecValue, Counter(X, 1); Result Counter.Cells(X, 1).Value = RecValue End Sub
[/vba] В результате не работает последняя срока подпрограммы: Counter.Cells(X, 1).Value = RecValue В чем может быть ошибка? Автор - Bamboo Дата добавления - 30.03.2016 в 14:04