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

Вход

Регистрация

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

 

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

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

Excel 2016 х 64
Ага, ну вот дописал код, вместо формулы будет вставлять сразу коэффициент. Но табличка нужна, лень вручную внутрь макроса вносить.
[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 (24.6 Kb)

вот вам барабан
яд 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
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Udik, 23.11.2016 в 20:44, в сообщении № 21
Ага, ну вот дописал код, вместо формулы будет вставлять сразу коэффициент. Но табличка нужна, лень вручную внутрь макроса вносить.

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

Прошу прошения. Но я ничего не понял ни в приложенном файле (может ошибка вышла и файл не тот?), ни в исправленной формуле. Попытался в первый Ваш файл добавить Вашу формулу. Видимо делаю всё неправильно.
Автор - DrMini
Дата добавления - 23.11.2016 в 21:58
Udik Дата: Четверг, 24.11.2016, 13:54 | Сообщение № 23
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Цитата DrMini, 23.11.2016 в 21:58, в сообщении № 22
(может ошибка вышла и файл не тот?

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

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
Цитата DrMini, 23.11.2016 в 21:58, в сообщении № 22
(может ошибка вышла и файл не тот?

Точно, не тот прицепился, перезалил.
Автор - Udik
Дата добавления - 24.11.2016 в 13:54
DrMini Дата: Четверг, 24.11.2016, 15:25 | Сообщение № 24
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

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


Сообщение отредактировал DrMini - Четверг, 24.11.2016, 17:12
 
Ответить
СообщениеUdik, Спасибо большое. Попробую этот макрос к своему файлу "прикрутить".Координаты таблицы вроде ясно где менять. Надеюсь всё остальное менять не придётся. Ещё раз спасибо.
Всё работает. Разобрался. СПАСИБО!
Автор - DrMini
Дата добавления - 24.11.2016 в 15:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формат ячейки "Произвольный текст, потом условие" (Формулы/Formulas)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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