Модераторы: mihanik

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Функция наподобие Т() 
:(
    Опции темы
motorway
  Дата 8.7.2009, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Реально ли сделать функцию наподобие Т() в Экселе, которой можно передавать несколько аргументов через точку с запятой (чтобы в них при вводе адреса ячеек воспринимались как адреса, а не просто текст), которая просто будет возвращать введенную строку?

=Ф(A1+3+b; B2=3+A; C3<4) -> выводит A1+3+b; B2=3+A; C3<4 в ячейку. 

Надо, чтобы аргументы были именно в таком стиле:  через точку с запятой и переменные типа b (не назв. ячеек) не вызывали ошибок. И чтобы была возможность автозаполнения, а названия ячеек в формуле менялись автоматом при изменении их адреса
PM MAIL   Вверх
Naghual
Дата 9.7.2009, 00:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Параметр функции делаешь один - текстовый.
В теле функции парсиш его и расчитываешь его как угодно.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 9.7.2009, 00:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



А как быть с проблемой автозаполнения и интерпретации названия ячеек? У функции Т тоже параметр текстовый может быть, но автозаполнение не происходит, и при изменении адресов ячеек не меняются адреса аргументов! Поможете расколоть орешек?  smile 
PM MAIL   Вверх
Naghual
Дата 9.7.2009, 01:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Давайте попробуем разобраться вместе. Для начала, уточните ЧТО именно вы понимаете под "автозаполнением".


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 9.7.2009, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



То, что индексы у названий ячеек в формулах меняются автоматически при перетаскивании ячейки на некоторый диапазон. Например, A1+B1 -> B1+C1; или A10+B10 -> A11+B11 и т.п.
Этого не происходит при исп. функции Т().
PM MAIL   Вверх
Naghual
Дата 9.7.2009, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Правильно.  Вы этого и не добьетесь.  smile



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 9.7.2009, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Никак? Почему?
PM MAIL   Вверх
RockClimber
Дата 10.7.2009, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Может, я чего не понял... А функция СЦЕПИТЬ() не спасет отца русской демократии? По описанию вроде похоже...


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
  Дата 10.7.2009, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Да, действительно, СЦЕПИТЬ хорошая функция. Пока не полностью проверил, но вроде может спасти  smile 

Не получается использование в составе функции СЦЕПИТЬ некоторых комбинаций, напр. =СЦЕПИТЬ(b=[20,30]) дает ошибку, =СЦЕПИТЬ(b={20,40}) превращается в =СЦЕПИТЬ(b={20,4}). Не получается использовать -> .
=СЦЕПИТЬ(=4; max(A1+B2,5)=3) тоже не хочет.
Есть ли способы обойти эти ограничения? 
  smile 

Это сообщение отредактировал(а) motorway - 10.7.2009, 18:43
PM MAIL   Вверх
motorway
Дата 10.7.2009, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Есть ли еще варианты решения задачи? Может, можно сделать функцию типа СЦЕПИТЬ, но чтобы можно было писать любые знаки без кавычек и назв. ячейки воспринимались?
PM MAIL   Вверх
RockClimber
Дата 11.7.2009, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Цитата(motorway @  10.7.2009,  21:32 Найти цитируемый пост)
Может, можно сделать функцию типа СЦЕПИТЬ, но чтобы можно было писать любые знаки без кавычек

 smile 
Не, так точно нельзя. Excel устроен так, что все, что в кавычках, воспринимается как строка, а все, что без кавычек - как адрес ячейки или число. По-другому в принципе нельзя, анархия получится.
Да и вообще, общий принцип, как сделать
Цитата(motorway @  8.7.2009,  18:21 Найти цитируемый пост)
=Ф(A1+3+b; B2=3+A; C3<4) -> выводит A1+3+b; B2=3+A; C3<4 в ячейку. 

я написал уже тут.
Если там не то, или ты не понимаешь, что там написано, или я не так понял - приложи файл экселевский со списком аргументов функции, значений, которые должны получиться и пр. В общем, на пальцах объясни...


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 11.7.2009, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



В общем, мне нужна любая функция, которой можно передавать строку с аргументами в виде таком же, как у СЦЕПИТЬ, но при этом без ограничений на доп. знаки в строке.
Пусть эта функция будет возвращать 0, или что угодно, главное, чтобы позволяла писать в аргументе через точку с запятой любой набор символов, в котором будут распознаваться адреса ячеек.

Пример:
=Ф(<=A1+B1; A3=B4+min(2,3*A1); a=[20,30]) - выводит в ячейку что угодно как результат, но давать вводить такие аргументы она должна  smile 

Самописная функция на VBA такого не может преодолеть? 
PM MAIL   Вверх
RockClimber
Дата 11.7.2009, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Кажется, дошло.
А может, расскажешь, зачем это нужно? А то я до сих пор не понимаю всей глубины замысла.
Такая строка, как <=A1+B1; A3=B4+min(2,3*A1); a=[20,30] будет однозначно воспринята как формула, и эксель будет пытаться ее вычислить. Не как формулу он воспримет только строку в кавычках.
Увы, по-другому нельзя.


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 11.7.2009, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Нужно для возможности ввода нескольких относящихся к ячейке формул. Далее они обрабатываются неким эвалюатором.
Но ведь Эксел в функции СЦЕПИТЬ все-таки что-то принимает в качестве аргументов. Даже возможно ему написать несколько выражений через ;
Нельзя ли как-то немного модифицировать эту функцию, и тогда он будет спокойно пережевывать такие выражения без ошибок?

Это сообщение отредактировал(а) motorway - 11.7.2009, 18:03
PM MAIL   Вверх
Naghual
Дата 11.7.2009, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Цитата(motorway @  11.7.2009,  18:00 Найти цитируемый пост)
Далее они обрабатываются неким эвалюатором.

Так может ты к решению задачи подошел не с того конца?
Может стоит пересмотреть замысел?


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 11.7.2009, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Нет, все должно быть именно так. Просто Эксел - это наиболее удобная система для ввода данных.
PM MAIL   Вверх
Naghual
Дата 11.7.2009, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Цитата(motorway @  11.7.2009,  19:10 Найти цитируемый пост)
Нет, все должно быть именно так

Ну это спорное заявление.  Возможно Вы просто не видите альтернативного решения.


Цитата(motorway @  11.7.2009,  19:10 Найти цитируемый пост)
Эксел - это наиболее удобная система для ввода данных. 

Это так-же индивидуальное мнение. Мне, например, Аксес нравится.
В любом случае, от Экселя я вам не предлагал уходить.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 11.7.2009, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Уже были испробованы другие таблицы, в том числе потрачено 800 баксов на одну программу. По-настоящему удобный ввод возможен только в Экселе. Это - стандарт. 
PM MAIL   Вверх
Naghual
Дата 11.7.2009, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Так я же и не предлагаю отказаться от Екселя!
 smile 


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
RockClimber
Дата 11.7.2009, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Цитата(motorway @  11.7.2009,  18:00 Найти цитируемый пост)
Нужно для возможности ввода нескольких относящихся к ячейке формул. Далее они обрабатываются неким эвалюатором.

Уже понятнее. А этот эвалюатор - он обрабатывает текст формулы или результат ее вычисления?


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 11.7.2009, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Текст. То есть, он сам считает. Ему нужны только формулы. А Эксел нужен, чтобы их удобно вводить

Это сообщение отредактировал(а) motorway - 11.7.2009, 20:34
PM MAIL   Вверх
RockClimber
Дата 11.7.2009, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Тогда ничего не понимаю  smile 
1. Эвалюатор этот - внешняя программа? Если да - COM поддерживает?
2. 
Цитата(motorway @  11.7.2009,  20:32 Найти цитируемый пост)
Текст. То есть, он сам считает. Ему нужны только формулы.

То есть формулы он распознавать умеет? Ему можно дать текстовую строку и он распознает там формулы и все вычислит? Тогда почему бы ему текстовую строку и не дать?



--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 11.7.2009, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Да, внешняя. Наверно, COM поддерживает, но я не знаю принципы работы с COM. 

Цитата

То есть формулы он распознавать умеет? Ему можно дать текстовую строку и он распознает там формулы и все вычислит? Тогда почему бы ему текстовую строку и не дать?


Ну да, только их и умеет. Я так и делаю, строку передаю из Эксела, но сначала она должна появиться после ввода данных! А писать формулы в виде строки не удобно, пользователи должны работать с ячейками для удобства. И вот проблема, что иногда нужно с одной ячейкой связать несколько формул.

Это сообщение отредактировал(а) motorway - 11.7.2009, 20:52
PM MAIL   Вверх
RockClimber
Дата 11.7.2009, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Кажется, в Excel была функция, которая получала на вход ссылку на ячейку и давала на выходе формулу из этой ячейки в виде текста. Но экселя у меня дома нет, а так я ее не помню... Может, можно использовать эту функцию совместно с СЦЕПИТЬ()? Тогда мы получим строку с несколькими формулами. Это максимум, что мне приходит в голову.


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 11.7.2009, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Пока не очень понял, но основная проблема в том, что не получается нормально писать эти несколько формул в одной ячейке - Эксел выдает ошибку. Либо надо некоторые символы брать в кавычки, тогда можно с исп. СЦЕПИТЬ или др. Но это не понравится пользователям.

В общем, катастрофа на личном фронте  smile 

Это сообщение отредактировал(а) motorway - 11.7.2009, 21:12
PM MAIL   Вверх
RockClimber
Дата 11.7.2009, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



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


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
Naghual
Дата 11.7.2009, 23:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Мда...  Интересное дело получается...
А Сколько формул на одну ячейку может быть максимально? От чего это зависит?
Если Эвалюатор - внешнее приложение, может есть смысл писать по одной формуле в ячейке а уж при передаче эвалюатору, производить необходимое объединение?


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 12.7.2009, 00:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



В принципе, могут писать и с кавычками, но тогда даже простая формула превратится в нагромождение доп. символов, что будет не очень приятно. Можно и так, но это приведет к злобе со стороны пользователей (наверно).
На одну ячейку - любое кол-во. Насчет "по одной формуле" - не знаю, все-таки при работе с данными пользователь должен видеть, что относится именно к этой ячейке.
А как Вам идея такая - пользователь вводит нужные формулы в ячейку, затем копирует написанное, делает Escape, и по нажатию нек-рой комбинации это заносится из буфера в примечание к ячейке, где и должно все храниться?
Вы бы стали пользоваться таким приложением, если бы по ср. с Экселем ввод был длиннее на пару-тройку кликов/нажатий?

PM MAIL   Вверх
RockClimber
Дата 12.7.2009, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Цитата(motorway @  12.7.2009,  00:46 Найти цитируемый пост)
В принципе, могут писать и с кавычками, но тогда даже простая формула превратится в нагромождение доп. символов, что будет не очень приятно.

Не уверен пока, но скорее всего, можно будет сделать без нагромождения доп. символов. Вместо =Ф(<=A1+B1; A3=B4+min(2,3*A1); a=[20,30]) будет =Ф("<=A1+B1; A3=B4+min(2,3*A1); a=[20,30]"), и всего делов. Так, скорее всего, можно.

Добавлено через 52 секунды
А, ну при вводе, конечно, будет много разных символов...  smile 


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 12.7.2009, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Цитата

=Ф("<=A1+B1; A3=B4+min(2,3*A1); a=[20,30]")


Да, это позволяет писать все, что нужно, но есть минус, то, что не работает автозаполнение при этом и при изменении адресов ячеек в формуле ничего не меняется  smile 
Если бы это работало, было бы все ОК. Может, это можно как-то сделать? Похоже, функции автозаполнения и изм. адресов ячеек придется делать самостоятельно
PM MAIL   Вверх
RockClimber
Дата 12.7.2009, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Завтра на работе попробую сделать пример, покажу... Не совсем это, но очень похоже...


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
motorway
Дата 12.7.2009, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Ну если там будет и автозаполнение, и изм. адресов ячеек - будет хорошо! То есть можно считать, что ввод нескольких формул у нас есть.
Но если их (автозап+изм.адресов) и не получится сделать, наверно, написать самому эти функции реально вполне?  smile 

Это сообщение отредактировал(а) motorway - 12.7.2009, 14:28
PM MAIL   Вверх
Naghual
Дата 12.7.2009, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



ТЮ на меня за несообразительность!  Наконец я понял ЧТО тебе нужно.   smile 

В Экселе, при написании функций есть возможность создавать Функции с неограниченным количеством Аргументов.
Эти аргументы будут отрабатываться по всем правилам работы с функциями в том числе и Автозаполнение.

Во декларация:
Код

Public Function Ф(ParamArray Formulas() As Variant) As Variant
    
End Function


Инструкция ParamArray указывает, что Аргументы - это массив.
В теле функции, все переданные аргументы можно получить из массива Formulas().


Дерзай.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
  Дата 12.7.2009, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



О, это вроде бы лучший из вариантов, который я пока видел!  smile Жму руку. Но есть и небольшие минусы, впрочем, хотя бы так пока (идеал недостижим?  smile ):
иногда мне нужно, чтобы формула начиналась со знаков > или <. Приходится их брать в кавычки, а далее &. Ну и квадратные скобки надо брать в кавычки. Это немного усложнит жизнь пользователям. 
Пока, наверно, возьму в качестве рабочего варианта.

PM MAIL   Вверх
Naghual
Дата 12.7.2009, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Да. Это единственный недостаток.
Но, как ты сам сказал, идеал недостижим стандартными средствами Экселя.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 12.7.2009, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Другим выходом могло быть использование СЦЕПИТЬ с кавычками, чтобы можно было писать все, что хочешь, но тогда нужно самому реализовать автозаполнение и реакцию на событие изм. адресов ячеек. Это просто займет время и силы. Все-таки писать функции, которые уже есть... Лучше, наверно, пойти на компромисс с доп. символами, иногда требующимися.
PM MAIL   Вверх
motorway
Дата 13.7.2009, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Naghual, а не подскажешь, как получить в виде строки все, что находится у Ф в скобках?
Т.е., если в ячейке =Ф(">="&1; -B4>=C6+D3*F4/H8-5; G13<=6; x="[30,200]"; a>5&"->"& x=3+SIN(3))
Чтобы она возвращала ">="&1; -B4>=C6+D3*F4/H8-5; G13<=6; x="[30,200]"; a>5&"->"& x=3+SIN(3)
PM MAIL   Вверх
Naghual
Дата 13.7.2009, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Пройтись по массиву аргументов циклом и сложить все в одну переменную.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 13.7.2009, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Да, я пробовал так:

Код

Public Function Ф(ParamArray Formulas() As Variant) As Variant
Ф = ""
For Each f In Formulas
Ф = Ф + f

Next f
End Function
,
но пишет #ЗНАЧ! - знач., исп. в формуле, имеет неправ. тип данных - пробовал разные варианты, напр. для Ф(1)

Как, кстати, проверить, не пуст ли какой-нибудь массив? Например, если массив ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) пуст, выдается "Не найдено ни одной ячейки, удовл. заданным условиям". Поэтому нужно сначала проверить, чтобы ошибки не было.

Это сообщение отредактировал(а) motorway - 13.7.2009, 21:55
PM MAIL   Вверх
motorway
Дата 13.7.2009, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Я попробовал получать для помещения в примечание переменную Cell.Formula, но почему-то разделители для аргументов функции Ф из точки с запятой превращаются в запятую. Из-за этого будет непонятно, где должно быть правильное окончание одной формулы и начало другой. Можно как-то получить именно то, что в аргументе формулы было? 

Это сообщение отредактировал(а) motorway - 13.7.2009, 22:56
PM MAIL   Вверх
Naghual
Дата 13.7.2009, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Цитата(Naghual @  13.7.2009,  20:38 Найти цитируемый пост)
Пройтись по массиву аргументов циклом и сложить все в одну переменную. 

Был неправ. Приношу свои извинения.

Нужно так:

Код

    strCellFormula = Application.Caller.Formula


А затем парсиш strCellFormula.  ;)


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 13.7.2009, 23:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Что-то у меня ерунда какая-то. Возвращает вместо точки с запятой запятую для разделителей. Может, еще как-то можно?!
PM MAIL   Вверх
Naghual
Дата 13.7.2009, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Ход конем: 
Код

Public Function AA(ParamArray Formulas() As Variant) As Variant
    Dim strCellFormula As String
    Dim strFormulas() As String
    
    strCellFormula = Application.Caller.FormulaLocal
    strCellFormula = Mid$(strCellFormula, 5, Len(strCellFormula) - 5)
    
    strFormulas = Split(strCellFormula, ";")
    
End Function



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 14.7.2009, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Не очень понял, зачем тут используется тогда Formulas и что возвращает функция. В принципе, из положения можно выйти, если заменять на точку с запятой запятые, находящиеся не в скобках () и [] - так как обычно все запятые находятся внутри скобок у какой-то функции. Только это надо понять как.
PM MAIL   Вверх
Naghual
Дата 14.7.2009, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Цитата(motorway @  14.7.2009,  00:11 Найти цитируемый пост)
Не очень понял, зачем тут используется тогда Formulas

Ну тогда попробуй без нее.


Цитата(motorway @  14.7.2009,  00:11 Найти цитируемый пост)
В принципе, из положения можно выйти, если заменять на точку с запятой запятые, находящиеся не в скобках () и [] - так как обычно все запятые находятся внутри скобок у какой-то функции. Только это надо понять как. 


Приведенный мною код лишен необходимости в этом.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
motorway
Дата 14.7.2009, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0



Просто он у меня не работает
PM MAIL   Вверх
Naghual
Дата 14.7.2009, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



А КАК он должен работать то?  Это код - ответ на твои вопросы.
Разберись с ним и приведи к конечному результату.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0856 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.