Изменение формата ячейки в зависимости от условия

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Изменение формата ячейки в зависимости от условия (Формулы/Formulas)

vitia88

Дата: Пятница, 26.04.2019, 18:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте, столкнулся с мелкой проблемой, но один не могу понять как ее решить.
Имеется таблица на лист2. На листе 1 в ячейки А1 выпадающий список соответствующий первому столбцу таблице на листе 2. В А2 лист1 отображается значение 2 столбца таблицы лист 2, в зависимости от значения в А1.
Так-вот как отобразить в ячейки А2 то процентное значение, то числовое. Данные в 2 столбце таблицы будут меняться постоянно. (либо проценты, либо число)
За ранее спасибо за ответы и помощь!

К сообщению приложен файл: 1111.xlsm (10.2 Kb)

Ответить

Nic70y

Дата: Пятница, 26.04.2019, 22:11 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9133

Репутация: 2416 ±

Замечаний: 0% ±

Excel 2010

наскоряк
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        u = Application.Match(Target, Sheets(2).Range("a:a"), 0)
        Sheets(2).Range("b" & u).Copy Sheets(1).Range("a2")
    End If
End Sub

[/vba]

К сообщению приложен файл: 2123328.xlsm (15.9 Kb)

ЮMoney 41001841029809

Ответить

vitia88

Дата: Пятница, 26.04.2019, 23:28 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо за ответ! а как тогда быть если несколько выпадающих списков?

К сообщению приложен файл: 5332452.xlsm (17.0 Kb)

Сообщение отредактировал vitia88 - Суббота, 27.04.2019, 23:00

Ответить

Pelena

Дата: Пятница, 26.04.2019, 23:38 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19520

Репутация: 4633 ±

Замечаний: ±

Excel 365 & Mac Excel

vitia88, не надо цитировать пост целиком. Это нарушение Правил форума. Исправьте

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

vitia88

Дата: Вторник, 30.04.2019, 15:35 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Pelena, Исправил, но вопрос остался открытым=)

Ответить

Pelena

Дата: Вторник, 30.04.2019, 20:50 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19520

Репутация: 4633 ±

Замечаний: ±

Excel 365 & Mac Excel

Так?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
        u = Application.Match(Target, Sheets(2).Range("a:a"), 0)
        Sheets(2).Range("b" & u).Resize(, 3).Copy
        Sheets(1).Cells(2, Target.Column).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    End If
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

vitia88

Дата: Вторник, 30.04.2019, 23:53 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Pelena, Что-то не соображу как приспособить данный код к листу. Ниже файл для которого я пытаюсь применить ваш код (Все лишнее удалил).
На странице "Стимуляторы", зеленом выделены выпадающие списки, под ними появляются данные таблицы: "Таблица расчетов стимуляторов" со страницы "Таблицы стимуляторов". Так как данные будут в этой таблице меняться как числовые значения, так и сам вид значение (то проценты, то число).
Не могу понять как отобразить то процент, то число в листе "стимуляторы D10:M14"