Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » iLiliya
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
10.05.2025 14:31:41
Цитата
написал:
Ну я бы писал что то вроде такой UDF -ки...Код ? 123456789101112131415Public Function pos4itat(txt As String) As VariantDim rez As String:  rez = ""Dim i As LongOn Error GoTo ErrHandlFor i = 1 To Len(txt)    simv = Mid(txt, i, 1)    If simv Like "[0-9,x,х,.,*,chr(44)]" Then        If simv = "х" Or simv = "x" Then simv = "*"        If simv = "," Then simv = "."        rez = rez & simv    End IfNext ipos4itat = Evaluate(rez): Exit FunctionErrHandl: pos4itat = "Ошибка исходных данных."End Function
Ого! Спасибо.
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
10.05.2025 14:31:12
Цитата
написал:
почти тоже самое:=ПРОИЗВЕД(ФИЛЬТР.XML("  "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;".";ПСТР(8%;2;1));"д";"  ");"х";"  ");"//i"))...и вместо A1 ,если надо, подставить во всех решениях выше ПОДСТАВИТЬ(A1;"x";"х")  (а по примеру буковки то разные)можно просто:формула=ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК(" ";A1&" "));".";ПСТР(8%;2;1))*ПОДСТАВИТЬ(ПСТР(ЛЕВБ(A1&" 1 ";ПОИСК("#";ПОДСТАВИТЬ(A1&" 1 ";" ";"#";3)));ПОИСК(" ";A1)+2;99);".";ПСТР(8%;2;1))*ПОДСТАВИТЬ(ПСТР(ЛЕВБ(A1&" 1 х 1 ";ПОИСК("#";ПОДСТАВИТЬ(A1&" 1 х 1 ";" ";"#";5)));ПОИСК("#";ПОДСТАВИТЬ(A1&" 1 ";" ";"#";3))+2;99);".";ПСТР(8%;2;1)) или=ПРОИЗВЕД(--ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;".";ПСТР(8%;2;1))&" 1 х 1";" ";ПОВТОР(" ";99));{1:199:397};99))
Спасибо!
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
10.05.2025 14:30:54
Цитата
написал:
ВариантКод ? 1=ПРОИЗВЕД(--ФИЛЬТР.XML("  "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"д";"");"х";"  ");".";",")&"  ";"//i"))
Спасибо!
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
09.05.2025 23:48:44
Всем огромное спасибо.  
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
09.05.2025 20:51:18
Цитата
написал:
С праздником!Можно UDF написать. Ну можно и макрофункцию ВЫЧИСЛИТЬ() привлечь, но для этого нужно в файле включать поддержку макросов.
Взаимно.
Спасибо. Буду что-то придумывать.
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
09.05.2025 20:50:17
Цитата
написал:
let    f=(x)=>List.Product(List.Transform(g(x){0},h)),    g=(x)=>List.Zip(List.Split(x,2)),h=(y)=>Number.From(y,"en"),    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    to = Table.ToList(from,(x)=>f(Text.Split(x{0}," ")))in    to
Спасибо. Буду пробовать
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
09.05.2025 20:49:43
Цитата
написал:
приложить пример, в котором понятно что на входе и что на выходе2. что такое "д"? - действительно вопрос.
Таблица должна выглядеть следующим образом:
столбец 1           столбец 2
1 x 2 x 3 д           6                
4 д                      4
5 х 6 х 7 д           210
8 х 9 д                 72
10.1 х 11 х 12.2 д    1355,42
13 х 14.3 д           185,9

Цифры в ячейке должны быть перемножены. Литера "д" - в данном конкретном случае смысла не несет.  
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
09.05.2025 20:37:19
Цитата
написал:
что такое "д"?
"д" - это рандомная литера, в данном конкретном случае предполагается "дни"
 
Перейти    
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
#
09.05.2025 15:31:41
Здравствуйте.
Подскажите, пожалуйста, как лучше поступить?
Есть таблица, в которой один из столбцов выглядит следующим образом:
1 x 2 x 3 д
4 д
5 х 6 х 7 д
8 х 9 д
10.1 х 11 х 12.2 д
13 х 14.3 д
Можно ли сделать что-то, чтобы не считать каждую ячейку вручную?
 
Перейти    
Если(И(, В формуле пропущены скобки
 
#
23.12.2023 16:57:01
Цитата
написал:
=ЕСЛИ((A1+B1) 3;(A1+B1)<5);A1*2;A1*3))
Спасибо, большое

Блин, нагромадила столько, что сама запуталась))
 
Перейти    
Если(И(, В формуле пропущены скобки
 
#
23.12.2023 16:32:40
Здравствуйте. Извините, если такая тема уже была - нашла несколько похожих вопросов, но, к сожалению, так и не разобралась, что же я делаю не так(
Условие:
если сумма А+В меньше 3, то А*1 -                        IF((А+В)<=3;А*1;
если сумма А+В больше 3, но меньше 5, то А*2 - (IF(AND((А+В)>3)*((А+В)<5));А*2);
если сумма А+В больше 5, то А*3 -                        (IF(А+В)>=5;А*3))

Собираю в формулу: IF((А+В)<=3;А*1;(IF(AND((А+В)>3)*((А+В)<5));А*2);(IF(А+В)>=5;А*3))

и получаю в ответ: в формуле пропущена она или несколько открывающих скобок, или превышено количество аргументов.
Никак не могу сообразить, где ошибаюсь((
 
Перейти    
Страницы: 1
Наверх