powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите с созданием собственной функции
5 сообщений из 5, страница 1 из 1
Помогите с созданием собственной функции
    #33174923
Dimon_uk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня проблема как сделать так чтобы результаты функции записывались в столбец куда была она вставленна и в соседний так как у меня имется на входе одна переменная а на выходе две
...
Рейтинг: 0 / 0
Помогите с созданием собственной функции
    #33174945
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Самое простое, это добавить еще ячейку, в ней держать функцию, которая в возвращаемом значении через спец разделитель будет возвращать два значения, а в нужных двух ячейках выделять первую и вторую части из добавленной ячейки.
С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217
...
Рейтинг: 0 / 0
Помогите с созданием собственной функции
    #33183353
mihmih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sergeyvg, можно, но если эта функция что-то толго и трудно считет - то вызывать ее два раза - тяжело будет.
Предлагаю так:
Первая ячейка =СокрЛП(Лев(ТретьяЯчейка,10))
Вторая ячейка = СокрЛП(Прав(ТретьяЯчейка,10))
Третья ячейка = МояФункция()

где:
Function МояФункция()
...
...
МояФункция = Лев(Результат1+" ",10)+Лев(Результат2+" ",10)
End Function

Если результаты имеют тип, отличный от строкового, в ячейках использовать функции преобразования типов.
...
Рейтинг: 0 / 0
Помогите с созданием собственной функции
    #33183473
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно попробовать функцию массива
это которая заключается в фигурные скобки
...
Рейтинг: 0 / 0
Помогите с созданием собственной функции
    #33321323
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SRC vba]
Function Get2() As Variant

Dim Array2(1) As String

Array2(0) = "qqqq"
Array2(1) = "wwww"

Get2 = Array2

End Function
[/SRC]
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите с созданием собственной функции
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]