Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.04.2008, 13:52   #1
pinksky
Новичок
Джуниор
 
Регистрация: 18.04.2008
Сообщений: 1
Вопрос Изменение размеров

Помогите, пожалуйста, чайнику.

В одном столбце имеем размер изделия в дюймах в формате
" Size: w15"xh13"xd4" " . В соседнем столбце нужно получить голые саниметры 38х33х10.

Скажите, возможно откинуть лишние "Size", "w" , "h", "d" и перевести дюймы в см? Или я многого хочу?..

Спасибо заранее!
pinksky вне форума
Старый 18.04.2008, 14:39   #2
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Лампочка Наслаждайтесь!

=2,54*ПСТР(A2;НАЙТИ("w";A2)+1;(НАЙТ И("""";A2;НАЙТИ("w";A2)+1))-(НАЙТИ("w";A2)+1)) & "x"
& 2,54*ПСТР(A2;НАЙТИ("h";A2)+1;(НАЙТИ ("""";A2;НАЙТИ("h";A2)+1))-(НАЙТИ("h";A2)+1)) & "x"
& 2,54*ПСТР(A2;НАЙТИ("d";A2)+1;(НАЙТИ ("""";A2;НАЙТИ("d";A2)+1))-(НАЙТИ("d";A2)+1))

Может быть, можно и короче - я лепил наскоро, формально.
дмидми вне форума
Старый 18.04.2008, 14:40   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

может это подойдет?
Код:
=ОКРУГЛ(ЗНАЧЕН(ПСТР(RC[-1];ПОИСК("w";RC[-1])+1;ПОИСК(СИМВОЛ(34);RC[-1];ПОИСК("w";RC[-1]))-ПОИСК("w";RC[-1])-1))*2,54;0) & "x" & ОКРУГЛ(ЗНАЧЕН(ПСТР(RC[-1];ПОИСК("h";RC[-1])+1;ПОИСК(СИМВОЛ(34);RC[-1];ПОИСК("h";RC[-1]))-ПОИСК("h";RC[-1])-1))*2,54;0) & "x" & ОКРУГЛ(ЗНАЧЕН(ПСТР(RC[-1];ПОИСК("d";RC[-1])+1;ПОИСК(СИМВОЛ(34);RC[-1];ПОИСК("d";RC[-1]))-ПОИСК("d";RC[-1])-1))*2,54;0)
стиль ссылок R1C1, формула написана, правее ячейки с данными "Size: w15"xh13"xd4""

размеры обьекта при этом не изменяются.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Последний раз редактировалось IgorGO; 18.04.2008 в 14:47.
IgorGO вне форума
Старый 18.04.2008, 15:52   #4
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Смех Эк мы синхронно-то!

А вот о том, что под "голые" pinksky подразумевает "округлённые до целого", я и не подумал Ну да заодно и подсократил, формально - за счёт быстродействия lol

Выбор между функциями НАЙТИ и ПОИСК зависит здесь от пожеланий заказчика: если не нужно различать регистр, то ПОИСК.

Код:
=ТЕКСТ(2,54*ПСТР(A3;НАЙТИ("w";A3)+1;НАЙТИ("""";A3;НАЙТИ("w";A3))-НАЙТИ("w";A3)-1);"0x")
&ТЕКСТ(2,54*ПСТР(A3;НАЙТИ("h";A3)+1;НАЙТИ("""";A3;НАЙТИ("h";A3))-НАЙТИ("h";A3)-1);"0x")
&ТЕКСТ(2,54*ПСТР(A3;НАЙТИ("d";A3)+1;НАЙТИ("""";A3;НАЙТИ("d";A3))-НАЙТИ("d";A3)-1);"0")
P.S. Чтобы сэкономить ещё три байта в записи формулы, нужно подобрать всю формулу в одну строку, как у IgorGO.

Последний раз редактировалось дмидми; 18.04.2008 в 16:00. Причина: Ишшо три байта отгрыз!
дмидми вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Соударение шариков разных размеров и объемов Стаханов_Андрей Помощь студентам 3 09.03.2008 17:17
Изменение размеров элементов romets Win Api 2 18.02.2008 23:28
Определение размеров картинки Kocapb Общие вопросы C/C++ 1 03.12.2007 20:49
Изменение .exe Kukkk Общие вопросы Delphi 3 19.09.2007 11:52
Изменение размеров столбцов в DBGrid Elena БД в Delphi 1 15.05.2007 11:41