[YRat]

Доброго времени суток
Предлагаю скрипт функции. Функция записывает формулу указанной ячейки в числах с подстановкой (в другой ячейке разумеется).
Для чего? Иногда надо чтобы "ход расчёта" был виден. С этим в экселе при распечатке плохо - не проверить как и откуда получилось то или иное значение.

Код:

Код:

[Выделить все]

Public Function zFrml(i As Range) As String
Application.Volatile True
Dim str As String
str = i.Formula
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = ",\d+\)|[ROUNDPWN]{4,10}\("
End With
str = RegEx.Replace(str, "")
With RegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = "([A-Z]{1,2}\d{1,5})"
End With
str = RegEx.Replace(str, """&$1&""")
Set RegEx = Nothing
str = Replace(str, "*", Chr(183))
str = Replace(str, "=", "=""")
If (InStr(str, "&") = 2) Then str = Replace(str, "=&", "=")
If (InStr(str, """&") = 2) Then str = Replace(str, "=""&", "=")
If (InStrRev(str, "&") < Len(str)) Then str = str + "="""
If (InStrRev(str, "&") = Len(str)) Then str = str + """="""
str = Evaluate(str)
str = Replace(str, ".", ",")
zFrml = str
End Function

Public Function zFrml3(i As Range, units As String) As String
Application.Volatile True
Dim str As String
str = i.Formula
Dim va As String
va = i.Value
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = ",\d+\)|[ROUNDPWN]{4,10}\("
End With
str = RegEx.Replace(str, "")
With RegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = "(([A-Z]{1,2}\d{1,5})|(zZif\([A-Z]{1,2}\d{1,5}\)))"
End With
str = RegEx.Replace(str, """&$1&""")
Set RegEx = Nothing
str = Replace(str, "*", Chr(183))
str = Replace(str, "=", "=""")
If (InStr(str, "&") = 2) Then str = Replace(str, "=&", "=")
If (InStr(str, """&") = 2) Then str = Replace(str, "=""&", "=")
If (InStrRev(str, "&") < Len(str)) Then str = str + " = """
If (InStrRev(str, "&") = Len(str)) Then str = str + """ = """
str = str + "&" + i.Address
If (Len(units) > 0) Then str = str + "&"" [" + units + "]"""
str = Evaluate(str)
str = Replace(str, ".", ",")
zFrml3 = str
End Function

Public Function zZif(i As Range)
Application.Volatile True
Dim str As String
str = i.Formula
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = "=zFrml3\(([A-Z]{1,2}\d{1,5})+,[\d\D""]{2,5}"
        
End With
str = RegEx.Replace(str, "$1")
Set RegEx = Nothing
str = Range(str).Value
zZif = str
End Function

На картинке видно название функции и её применение.
Надеюсь пригодиться ещё кому-нить.

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

[SLADE]

Отличный скрипт, конечно пригодится.
Я раньше это все делал вручную
Не во всех столбцах у меня работает (А,С,I,N,O,S,T, AA и далее = не работает ), вместо чисел пишет ссылку, на ячейку

[YRat]

Ага, доделаю, выложу
Кстати, любую степень типа корня, записывать не как формула корна, а как ^0.5

[YRat]

Поправил, вроде как работает)

п.с. поправил в первом посте!

[SLADE]

ООО сейчас отлично

[YRat]

Ну гут, давно мечтал соорудить

[SLADE]

еще бы хотелось конечно что бы при ссылке на ячейку где присудствует в формуле функции, типа МАкс, мин впр, гпр и подобные ищущие значения писала найденое значение .
=A4-A3*A2*SIN(A1)+ВПР(B6;A1:E4;2;0)
4-34•2•SIN(1)+VLOOKUP(34,1:4,2=
В противном итоге придется поиск значений выполнять в соседних ячейках.

[YRat]

Если Вы мне дадите эксель файлик со всеми (или наиболее частыми) функциями такими я подумаю над ним, ато у меня на русском нет ёкселя =)
ОТправить можно на почту, только с пометкой ([email protected])

[SLADE]

Пока конкретного нету примера, как только так сразу. ПОКа ВСЕ СУпер

раньше приходилось делать так в ячейке
="в этой формуле h* = [h·(Pγ+3·Pq)] / [3·(Pγ+2·Pq)] = ["&C5&"·("&I73&"+3·"&I76&")] / [3·("&I73&"+2·"&I76&")] = "&J108&" м"
для получения результата:
в этой формуле h* = [h·(Pγ+3·Pq)] / [3·(Pγ+2·Pq)] = [2.4·(13.48+3·3.996)] / [3·(13.48+2·3.996)] = 0.949 м

теперь достаточно написать
"в этой формуле h* = [h·(Pγ+3·Pq)] / [3·(Pγ+2·Pq)] = "&zFrml(J108)&" "&J108&" м"
результат:
в этой формуле h* = [h·(Pγ+3·Pq)] / [3·(Pγ+2·Pq)] = (2,4•(13,48+3•3,996)) / (3•(13,48+2•3,996))= 0.949 м

как ументшить точку "•" - сделать "·"?

[YRat]

А, Вы имеете ввиду чтобы при обращении из другой ячейки тут было число, не, я так не могу, он возьмёт именно то, что показывает в листе
Но я подумаю.. придётся, наверное, еще одну функцию вводить =)

[YRat]

Чтобы точка было смените строку
str = Replace(str, "*", Chr(149))
на
str = Replace(str, "*", Chr(183))

[YRat]

Возможно дурацкий вопрос, но в примере в ячейке J108 все равно остается результат.. или предполагается выносить эти ячейки куда-нить за пределы печатного листа?

Там снова изменился скрипт - кое-что забыл..

[SLADE]

то что я писал в посте 9 , это не вопрос , а просто на сколько сокращается оформление расчетов.
лично мне кажется, в плане офотмления, ячейка со всеми вычислениями "J108", её можно по желанию потом скрыть, защитить.
Я думаю, впринципе, если &zFrml(J108)&" "&J108, [2.4·(13.48+3·3.996)] / [3·(13.48+2·3.996)] = 0.949, лучше объединить в вместе , чтобы она писала сразу после выражения " = результат"
Это конечно будет полезно кто оформляет формулу с привязкой текста в ячейке "по левому краю", т.е. в длинну строку нечто не ограничивает

[YRat]

Итак, скрипт изменил, добавил еще 2 функции

zFrml3(ячейка;"единицы измерения или пусто")
Пишет формулу и результат с единицей измерения

Пример:
формула
=zFrml3(I38;"kN")

В ячейке I38
=ОКРУГЛ(B37*(B38*B39*B49+B50*B51*B52*B53);2)

результат
= 1·(1·1431,57748275·0,785+3,14·0,6·48·6) = 1666,38 [kN]


Чтобы из такой ячейки куда-нибудь вставить ТОЛЬКО значение, нужно использовать следующую функцию

zZif(ячейка с функцией zFrml3)
Функция просто вставляет результат от ячейки с предыдущей функцией

[ВладимирН]

простите, пожалуйста, а как это все установить?????

[YRat]

ВладимирН

1. Открываете новый или старый excel документ
2. F11
3. Слева выделите VBAProjekt(Книга 1)
4. Меню вверху: Вставить - Модуль
5. Скопировать туда текст скриптов и сохранить
6. Безопасность в макросах должна либо разрешать макросы либо спрашивать каждый раз "включить макросы али нет"
Ну и использовать функции как простые в ячейках

Да..функции будут работать только в тех документах, где будет этот модуль.
Как сделать чтобы везде пока не думал, наверняка можно и все давно придумано - надо искать

[ВладимирН]

бальшоеспасибки

[SLADE]

Последнее изменение просто прелесть.
Лучшего и представить не мог.

[YRat]

[Vik-ing]

Хорошая штука, спасибо.
А чтобы функции были видны во всех книгах, надо сделать надстройку: пустую книгу, содержащую модуль с функциями сохранить как *.xla (надстройка). После этого загрузить сохраненный файл:
Сервис->Надстройки. Удачи!