[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]

YRat привет есть пару идей по модернизации, например , было бы неплохо сочетание ^2 заменять символом ² (00B2) ; ^3 - ³ (00B2)
zFrml - что бы не писала "="
При защите листа макрос перестает работать, это навсегда?
Спасибо

[YRat]

про замену. Сложно, почему, потому как у тебя может стоять ^20 а поставит только квадрат, хотя степени 20 и 30 и более редкость, сделать попробую
Про равно - уберу
про защиту листа... проверю, что смогу

[YRat]

Про защиту листа и всей книги - у меня все продолжает работать.. я сказал какие ячейки можно изменять и все.. все работает

[Клякса]

Есть личная книга макросов в ехеле. Макрос, функция или любая саба из этой книги может быть доступна в ЛЮБОЙ новой или старой книге. Примерное расположение:
C:\Documents and Settings\Алексей\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS

[YRat]

Клякса, да, это так, но не в каждой книге мне нужны эти функции, проще сделать себе xlt-шаблон для расчетов

[YRat]

SLADE
Таг, про замену - невозможно, ибо эти символы находятся вне анси кодировки, НО
Сделай себе автозамену все решается)

Replace: With:
(micro) µ
(delta) ∆
(deg) °
(degree) °
(+/-) ±
(^2) ²
(^3) ³
(1/4) ¼
(1/2) ½
(3/4) ¾
(dot) ·
(part) ∂
(partial) ∂
(inf) ∞
(infinity) ∞

Где делать? Англ.путь таков Tools > Options > Spelling tab > Autocorrect Options button > Autocorrect tab
Так что в русском нечто типа сервис,опции, проверка орфографии, автозамена

Воот, сам проверил, у меня работает НО при введении формулы, т.е. старые формулы само не заменит!

Знак равно убрал, смотри первый пост, заодно там xla-надстройка для форматирования - оформления формул

[YRat]

По поводу автозамены ^2 на квадратик..
Я сделал автозамену не (^2), а ^2 на ² - думал я самый умный, оказалось нет, надоделать именно (^2), ибо (прикиньте, ИБО ©КВН) если писать ^2 просто в формуле, то эта зараза тоже заменяет на ² и ёксель не считает за формулу это и ругается, вот

[SLADE]

YRat для логических операторов подладить можно?
(иногда форлула с логич. операторами записывается, и тогда функцыя не видит формулу)

[YRat]

SLADE, листик с примерами прикрепляй, посмотрим
С нужными примерами имею ввиду

[SLADE]

проложил

[YRat]

SLADE, значит так:
Вариант 1
Представь себе, что там 3 раза вложен "если"..
[IMG]http://i024.***********/0804/9d/0ad781b414b2.png[/IMG]
сложновато, но подумаю

Вариант 2
В функции zzif по определению аргументом может быть ячейка, содержащая ТОЛЬКО фунцию zfrml3
Тоже подумаю

Есть еще один вариант.. правда посложнее..
выражение брать по варианту 2, а значение по 1

[SLADE]

хитец однако,
Просто ели применять вариант 2, то можно не пользоваться дополнительными вычислениями

[YRat]

SLADE,
кстати, не мог бы ты прикрепить сюда один из своих листов, или мне на мыло, хоть посмотреть как это там у тебя выглядит в полном варианте

[SLADE]

YRat а то что я выложил, не подошло , или просто пример применения скрипта ? (я непонял что выложить?)

[YRat]

SLADE, ты там чегой-то оформляешь же? Выложи какой-нить оформленный пример, чтобы подивиться.

[SLADE]

хорошо, выложу

[SLADE]

YRat привет, очистить формулу от $ можно?
=$M28/1000*$O28*0.001*F4*0.3
= $180/1000·$1,5·6·0,001·80·0,3 = 0,03888 [тс]
при жесткой привязке пишет
= $M$28/1000·$1,5·0,001·80·0,3 = 0,00648 [тс/м]

[YRat]

Угу, можно, там надо просто отфильтровать этот знак перед обработкой

[SLADE]

YRat доброго времени суток.
Подскажи пож.
При переходе с листа на лист значения в формулы в ячейках с командой zFrml3 или zFrml , имеют вид, например
= (+(/3)·(2-(/)))/1000 = [м]
а после ввода ссылки обнавляются
получаю требуемы вид
= (150+(250/3)·(2-(27,398/65,747)))/1000 = 0,282 [м]

Можно что-нибудь подшаманить, чтобы не приходилось каждый раз жать ввод???

[hwd]

Здесь можно посмотреть кучу кода по теме.