Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Пересчёт линейных размеров Длина*Ширина, находящихся внутри текста, в метры квадратные.
 
#1
15.04.2021 22:11:25
Приходит разрозненная информация, которая к тому же меняет в ячейках свой адрес, ввиду чего не сделать формулы на постоянной основе. Нужно каким то методом, (при обновлении информации), в автоматическом режиме линейные размеры длина*ширина пересчитывать в метрах квадратных.
Skvora
 
 
 
#2
15.04.2021 22:28:35
Код
Sub iArea()
Dim i As Long
With CreateObject("vbscript.regexp")
 .Global = True
 .Pattern = "(\d{4})\*(\d{4})"
  For i = 5 To 7
    If .test(Cells(i, 2)) Then
      Cells(i, 5) = .Execute(Cells(i, 2))(0).SubMatches(0) * .Execute(Cells(i, 2))(0).SubMatches(1) / 1000000
    End If
  Next
End With
End Sub
 
 
 
#3
15.04.2021 22:30:33
Kuzmich, спасибо, но до макросов у меня ещё нос не дорос... Нет ли стандартных методов, арифметики так сказать?
Изменено: Игорь Скворцов - 15.04.2021 22:32:11
Skvora
 
 
 
#4
15.04.2021 22:30:35
Код
Function Square#(s$)
  Dim re
  Set re = CreateObject("VBScript.RegExp")
  re.Pattern = "\*(\d+\*\d+)"
  If re.test(s) Then Square = Evaluate(re.Execute(s)(0).submatches(0)) / 1000000
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
15.04.2021 22:36:50
Тёзка, фантастика! Но ни чего не понятно)))

Вставлю пока в свою таблицу, потом буду брать уроки у Вас:)
Всем кому не спится, спасибо огромное!
Изменено: Игорь Скворцов - 15.04.2021 22:38:33
Skvora
 
 
 
#6
15.04.2021 22:36:59
=IFERROR(ROUND(PRODUCT(--MID(SUBSTITUTE(MID(B5;SEARCH("~**~*";B5)+1;10);"*";REPT(" ";15));{1;15};15))/10^6;2);"")
Цитата
БМВ написал:
Всем кому не спитЬся
а мне еще и не скуриться  :D
Изменено: БМВ - 15.04.2021 23:27:04
По вопросам из тем форума, личку не читаю.
 
 
 
#7
15.04.2021 22:39:58
БМВ, спасибо! Это я в состоянии понять:)))
Skvora
 
 
 
#8
15.04.2021 22:41:33
Цитата
Игорь Скворцов написал:
до макросов у меня ещё нос не дорос...
ну это зря конечно...
Код
=ПРОИЗВЕД(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(B5;" ";"</i><i>")&"</i></j>";"//i[contains(.,'*')]");"*";"</i><i>")&"</i></j>";"//i[position()>1]"))%%%

365-beta only
Изменено: buchlotnik - 15.04.2021 22:57:34
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#9
15.04.2021 23:07:50
buchlotnik, сейчас стоит задача из прайсов, которые представляют разрозненную информацию с разными системами измерения (м.п., м.кв., м.куб., штуки, кг.) сделать таблицу позволяющую быстро и безошибочно рассчитывать заказную кухонную мебель. Побочный продукт этого расчёта - деталировки на производство и информация в снабжение. Сегодня, в том числе и благодаря Вам, узнал две новые мульки в Экселе, которые позволят упростить задачу. На этом с арифметикой пожалуй всё. Но есть одна задача нерешённая - это "Получение внешних данных"- "Из интернета". Стандартные методы практически не работают, многие нужные сайты на этот запрос выдают фигню, а если обновление данных поручить персоналу, ручкам золотым... Ну Вы сами понимаете... Нужно писать какие то обменники, или как они называются... Если есть возможность помочь, не за спасибо конечно, с радостью приму помощь.
Изменено: Игорь Скворцов - 15.04.2021 23:09:00
Skvora
 
 
 
#10
15.04.2021 23:26:21
Еще вариант.
Код
=PRODUCT(TRIM(MID(B5;SEARCH("~*";B5)+1;4));TRIM(MID(B5;SEARCH("~*";B5)+6;4)))%%%
 
 
 
#11
15.04.2021 23:28:55
memo, ну уж так зло не нужно, размер меньше метра и гудбай.
По вопросам из тем форума, личку не читаю.
 
 
 
#12
15.04.2021 23:44:17
Цитата
Игорь Скворцов написал:
Нужно писать какие то обменники, или как они называются...
парсеры они называются - с этим лучше обратиться в раздел работа; либо создать новую тему - возможно обойдемся PQ
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#13
15.04.2021 23:56:25
БМВ, ЛДСП меньше метра не встречал, но действительно, формула перестаёт быть универсальной, вдруг для чего то ещё пригодится.

buchlotnik, интересовался темой "Получение внешних данных" - "Из интернета", толком ни чего вразумительного не нашёл, было на форуме одно мнение, что раньше сайты были лучше структурированы, делались на основе таблиц, а сейчас лепят кто во что горазд. Во всяком случае у меня получилось только с сайтом ЦБ РФ, и то информация хоть и обновляется каждый день, но скачет из ячейки в ячейку.
Skvora
 
 
 
#14
16.04.2021 00:12:45
Цитата
БМВ написал:
размер меньше метра и гудбай
Черт, а ведь верно. Соорудил такой костыль, вроде работает.
=PRODUCT(TRIM(SUBSTITUTE(MID(B5;SEARCH("~*";B5)+1;4);"*";""));TRIM(SUBSTITUTE(MID(B5;SEARCH("~*";B5)+LEN(TRIM(MID(B5;SEARCH("~*";B5)+6;4)))+2;4);"*";"")))%%%
Кстати, у вас тоже надо бы подправить: MID(B5;SEARCH("~**~*";B5)+1;9)
У buchlotnik, изначально универсальный вариант.
Изменено: memo - 16.04.2021 02:06:59
 
 
 
#15
16.04.2021 04:32:22
Цитата
Игорь Скворцов написал:  из прайсов, которые представляют разрозненную информацию с разными системами измерения ... сделать таблицу позволяющую быстро и безошибочно рассчитывать...
скорее всего, здесь будет связка VBA + PQ + PP: PQ - сбор и адаптация файлов; PP - аналитика; VBA - обновить выборочно, пути к папкам, создать файлы, отправить на почту и пр.
 
 
 
#16
16.04.2021 06:57:21
Цитата
memo написал:
+1;9)
не совсем тогда очень большие не обработает. И лучше так
=IFERROR(ROUND(PRODUCT(--MID(SUBSTITUTE(TRIM(SUBSTITUTE(MID(B5;SEARCH("~**~*";B5)+1;33);"*";" "));" ";REPT(" ";15));{1;15};15))/10^6;2);"")
По вопросам из тем форума, личку не читаю.
 
 
 
#17
16.04.2021 08:11:20
Цитата
memo написал:
изначально универсальный вариант
но за универсальность придется заплатить скоростью - считает на 30% медленнее чем у тезки
а вообще писал не универсальный, а ленивый - где думать поменьше  ;)
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#18
16.04.2021 08:19:41
buchlotnik,  ну скорость не смотрел, а так и длинна и массивность. Я округление впихнул и %%% не стал. А то совсем коротко будет.

P.S. думать ваще опасно. С вольнодумцами всегда борятся  :D
Изменено: БМВ - 16.04.2021 08:24:19
По вопросам из тем форума, личку не читаю.
 
 
 
#19
16.04.2021 08:30:02
Цитата
БМВ написал:
длинна и массивность
ну длина лямбдой убирается  ;)  
а массивность в других ситуациях вполне нужна - опять же плата за универсальность...
то ли дело регулярки - но это в гугле...
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#20
16.04.2021 08:48:58
Цитата
БМВ написал:
тогда очень большие не обработает
22800м и обрабатывать не нужно, можно сразу класть дорожку для боулинга  :)
 
 
 
Страницы: 1
Наверх