ник: Gыwи
я бы постарался однотипные вызовы и отработки сделать единой функцией...
например вместо
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 в процессе группировки убрал ранние выходы из функции... так и читать легче и компу обрабатывать ;) одно присвоение значения перед стандартным завершением функции и естественным выходом из неё...