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

Вход

Регистрация

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

 

= Мир MS Excel/Замена значения в ячейке исходя из данных в другом столбце - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Замена значения в ячейке исходя из данных в другом столбце
Sasha318 Дата: Понедельник, 08.04.2019, 10:55 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток уважаемые, помогите пожалуйста,сам не силён.
Если в Столбце AJ присутствует фраза Not Scratch, то в столбце Q необходимо поставить 0, на данной строке.
К сообщению приложен файл: Microsoft_Excel.xlsx (9.3 Kb)
 
Ответить
СообщениеДоброго времени суток уважаемые, помогите пожалуйста,сам не силён.
Если в Столбце AJ присутствует фраза Not Scratch, то в столбце Q необходимо поставить 0, на данной строке.

Автор - Sasha318
Дата добавления - 08.04.2019 в 10:55
skais Дата: Понедельник, 08.04.2019, 11:24 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
Sasha318 Непонятно когда это должно происходить - по нажатию кнопки или как?
 
Ответить
СообщениеSasha318 Непонятно когда это должно происходить - по нажатию кнопки или как?

Автор - skais
Дата добавления - 08.04.2019 в 11:24
and_evg Дата: Понедельник, 08.04.2019, 11:33 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 465
Репутация: 79 ±
Замечаний: 0% ±

Excel 2007
Доброе.
В условное форматирование формулу:
Код
=AJ2="Not Scratch"

и формат "0"
К сообщению приложен файл: 1737631.xlsx (9.1 Kb)
 
Ответить
СообщениеДоброе.
В условное форматирование формулу:
Код
=AJ2="Not Scratch"

и формат "0"

Автор - and_evg
Дата добавления - 08.04.2019 в 11:33
skais Дата: Понедельник, 08.04.2019, 11:36 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
Если нужен макрос, то
[vba]
Код
Sub Button1_Click()
    arr = Range("AJ2:AJ" & Cells(Rows.Count, "AJ").End(xlUp).Row).Value
    For i = 1 To UBound(arr)
        If arr(i, 1) = "Not Scratch" Then Cells(i + 1, "Q") = 0
    Next
End Sub
[/vba]
 
Ответить
СообщениеЕсли нужен макрос, то
[vba]
Код
Sub Button1_Click()
    arr = Range("AJ2:AJ" & Cells(Rows.Count, "AJ").End(xlUp).Row).Value
    For i = 1 To UBound(arr)
        If arr(i, 1) = "Not Scratch" Then Cells(i + 1, "Q") = 0
    Next
End Sub
[/vba]

Автор - skais
Дата добавления - 08.04.2019 в 11:36
  • Страница 1 из 1
  • 1
Поиск:

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