Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формат ячейки "Произвольный текст, потом условие" - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формат ячейки "Произвольный текст, потом условие" (Формулы/Formulas)
Формат ячейки "Произвольный текст, потом условие"
Udik Дата: Среда, 23.11.2016, 20:44 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1209
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Ага, ну вот дописал код, вместо формулы будет вставлять сразу коэффициент. Но табличка нужна, лень вручную внутрь макроса вносить.
[vba]
Код

Private Sub koeff(rng As Range)
Dim arrT

arrT = Split(rng.Value, " ")
With ActiveSheet
rng.Offset(0, 7).Value = Application.WorksheetFunction.Lookup(CInt(arrT(UBound(arrT) - 1)), .Range("S2:S21"), .Range("T2:T21"))
End With
End Sub

[/vba]
К сообщению приложен файл: 0t0.xlsm(25Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Четверг, 24.11.2016, 13:53
 
Ответить
СообщениеАга, ну вот дописал код, вместо формулы будет вставлять сразу коэффициент. Но табличка нужна, лень вручную внутрь макроса вносить.
[vba]
Код

Private Sub koeff(rng As Range)
Dim arrT

arrT = Split(rng.Value, " ")
With ActiveSheet
rng.Offset(0, 7).Value = Application.WorksheetFunction.Lookup(CInt(arrT(UBound(arrT) - 1)), .Range("S2:S21"), .Range("T2:T21"))
End With
End Sub

[/vba]

Автор - Udik
Дата добавления - 23.11.2016 в 20:44
DrMini Дата: Среда, 23.11.2016, 21:58 | Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013
Ага, ну вот дописал код, вместо формулы будет вставлять сразу коэффициент. Но табличка нужна, лень вручную внутрь макроса вносить.

Прошу прошения. Но я ничего не понял ни в приложенном файле (может ошибка вышла и файл не тот?), ни в исправленной формуле. Попытался в первый Ваш файл добавить Вашу формулу. Видимо делаю всё неправильно.
 
Ответить
Сообщение
Ага, ну вот дописал код, вместо формулы будет вставлять сразу коэффициент. Но табличка нужна, лень вручную внутрь макроса вносить.

Прошу прошения. Но я ничего не понял ни в приложенном файле (может ошибка вышла и файл не тот?), ни в исправленной формуле. Попытался в первый Ваш файл добавить Вашу формулу. Видимо делаю всё неправильно.

Автор - DrMini
Дата добавления - 23.11.2016 в 21:58
Udik Дата: Четверг, 24.11.2016, 13:54 | Сообщение № 23
Группа: Друзья
Ранг: Старожил
Сообщений: 1209
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
(может ошибка вышла и файл не тот?

Точно, не тот прицепился, перезалил.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
(может ошибка вышла и файл не тот?

Точно, не тот прицепился, перезалил.

Автор - Udik
Дата добавления - 24.11.2016 в 13:54
DrMini Дата: Четверг, 24.11.2016, 15:25 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013
Udik, Спасибо большое. Попробую этот макрос к своему файлу "прикрутить".Координаты таблицы вроде ясно где менять. Надеюсь всё остальное менять не придётся. Ещё раз спасибо.
Всё работает. Разобрался. СПАСИБО!


Сообщение отредактировал DrMini - Четверг, 24.11.2016, 17:12
 
Ответить
СообщениеUdik, Спасибо большое. Попробую этот макрос к своему файлу "прикрутить".Координаты таблицы вроде ясно где менять. Надеюсь всё остальное менять не придётся. Ещё раз спасибо.
Всё работает. Разобрался. СПАСИБО!

Автор - DrMini
Дата добавления - 24.11.2016 в 15:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формат ячейки "Произвольный текст, потом условие" (Формулы/Formulas)
Страница 2 из 2«12
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!