Вычислить "математический" текст

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вычислить "математический" текст (Макросы/Sub)

Nic70y

Дата: Пятница, 01.11.2019, 21:32 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Драсте!
Подскажите пжл. тупорылому.
есть выражение в виде текста, типа:
(1+2)*18+(3/4) и т.д.
его нужно вычислить не используя функцию ВЫЧИСЛИТЬ (ни какую)
кроме как ПОИСК и ЦИКЛ в голову ничё не лезет (завал на работе + гуглопоиск барахлит и еще куча отмазок)
за_ранее спс.

ЮMoney 41001841029809

Ответить

bmv98rus

Дата: Пятница, 01.11.2019, 22:11 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата Nic70y, 01.11.2019 в 21:32, в сообщении № 1 ()

его нужно вычислить не используя функцию ВЫЧИСЛИТЬ

в чем глубокий смысл? Анализатор не так прост получится. Может не поиск а Split но все равно не просто.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Nic70y

Дата: Пятница, 01.11.2019, 22:14 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата bmv98rus, 01.11.2019 в 22:11, в сообщении № 2 ()

в чем глубокий смысл?

студенческий вопрос...

ЮMoney 41001841029809

Ответить

Pelena

Дата: Пятница, 01.11.2019, 22:29 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Nic70y, 01.11.2019 в 22:14, в сообщении № 3 ()

студенческий вопрос...

знак равно впереди поставить и Enter нажать не вариант?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Nic70y

Дата: Пятница, 01.11.2019, 22:35 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Только шел с обкурки и хотел дописать апдЭйт, что

Цитата Pelena, 01.11.2019 в 22:29, в сообщении № 4 ()

знак равно впереди

тоже не канает, тока внутри кода

ЮMoney 41001841029809

Ответить

Pelena

Дата: Пятница, 01.11.2019, 22:57 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Ну, знак равно и внутри кода можно поставить
[vba]

Код

a = "(1+2)*18+(3/4)"
Range("A1").Formula = "=" & a
b=Range("A1").Value
Range("A1").Clear

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

doober

Дата: Пятница, 01.11.2019, 23:21 | Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 971

Репутация: 333 ±

Замечаний: 0% ±

Excel 2010

Ищите в гугле
Интерпретатор математических формул на VB

Ответить

RAN

Дата: Суббота, 02.11.2019, 10:13 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ни единого намека на вычислить, и никаких "=" вне кода.
Правда, ведмедь обозвал этот код "извращенцем" :'(

[vba]

Код

Sub Create_NewModule()
    Dim objVBComp As Object, objCodeMod As Object
    Dim sCodeLines As String
    Dim lLineNum As Long
    Set objVBComp = ActiveWorkbook.VBProject.VBComponents.Add(1)
    Set objCodeMod = objVBComp.CodeModule
    lLineNum = objCodeMod.CountOfLines + 1
    sCodeLines = "MsgBox(" & [A1] & ")"
'    sCodeLines = "MsgBox((1 + 2) * 18 + (3 / 4))"
    sCodeLines = "Sub Test()" & vbCrLf & _
                 sCodeLines & vbCrLf & _
                 "End Sub"
    objCodeMod.InsertLines lLineNum, sCodeLines
    Application.Run "Test"
    objVBComp.Collection.Remove objVBComp
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Nic70y

Дата: Суббота, 02.11.2019, 10:29 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Андрей, спс.
и всем тоже.

ЮMoney 41001841029809

Ответить

bmv98rus

Дата: Суббота, 02.11.2019, 10:31 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата RAN, 02.11.2019 в 10:13, в сообщении № 8 ()

Правда, ведмедь обозвал этот код "извращенцем"

нее, это сКОТский вариант.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Nic70y

Дата: Вторник, 31.12.2019, 16:41 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Прошу прошения за долгое молчание и "маленький обман"
код в ВБА не нужен был ни кому,
был нужен только алгоритм, для сочинения кода на Питон
и даже мой "правильный" вариант не понадобился
(он по какой-то причине не вставился в сообщение, прикладываю файл)
сессия была сдана на 5.