| |
 22 Кб. |
|
| | Попытка создать для пользователя возможность самостоясельно писать формулы в ячейках (полях). С последующим расчётом этих формул.
Может кому пригодиться  | |
| |
| |
| |
24 Кб. |
|
| | Вот этот вариант лучше. | |
| |
| |
| |
|
|
| | кульно. и работает ведь.
теперь надобно придумать куда это прибабахать 
пасибо. вещь на самом деле нужная. тока малость специфичная.  | |
| |
| |
| |
|
|
| | Клиент попросил ....
Говорит хочу сам формулы менять и чтоба считало... 
Вот пришлося варганить (пошел на поводу).  | |
| |
| |
| |
|
|
| | прикольная цацка :) симпатично :)
PrisvoenieA(BukvaA As String)...PrisvoenieG(BukvaG As String) - можно в одну функцию переделать... типа PrisvoenieBukvaZnachenie(BukvaName, BukvaValue)
и что-то с большими числами.. может RunEval переопределить на плавающий тип или длинное целое? ;) | |
| |
| |
| |
|
|
| | наверно надо объединить, а как Вы это себе представляете?
может и RunEval надо корректнуть. | |
| |
| |
| |
33 Кб. |
|
| | я бы постарался однотипные вызовы и отработки сделать единой функцией...
например вместо
Function PrisvoenieG(BukvaG As String) As String
PrisvoenieG = "Forms(0)(""G"")"
End Function
|
поставить
Function PrisvoenieLetter(sLetter As String)
PrisvoenieLetter = "Forms(0)(""" & sLetter & """)"
End Function
|
ну и в Prisvoenie сгруппировать похожие символы и действия...
еще сменил тип функции RunEval на Long... но наверняка ведь могут быть и дробные числа...
примерный вариант - см. в аттаче ;)
надо б ещё отловить деление на 0 надо б с предупреждением о некорректности ;)
и можно еще вместо списка жёстких вызовов по кнопке "пересчитать" сделать пробежку по элементам формы... например ;)
upd: ой да, еще в Prisvoenie в процессе группировки убрал ранние выходы из функции... так и читать легче и компу обрабатывать ;) одно присвоение значения перед стандартным завершением функции и естественным выходом из неё... | |
| |
| |
|
|
| |
|
|
| | пожалуйста :)
"5 Сомов" - понравилось :) | |
| |
| |
