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

Вход

Регистрация

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

 

= Мир MS Excel/замена текста в яч. в зависимости от знач в нескольк столбца - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » замена текста в яч. в зависимости от знач в нескольк столбца (Макросы/Sub)
замена текста в яч. в зависимости от знач в нескольк столбца
Gjlhzl Дата: Понедельник, 22.05.2023, 15:58 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

День добрый, задача:
макросом при изменении каких либо значений в строках, в столбце 11 строки отмечаются 1 (для последующего расчета макросом),
в столбце Примечания делаются различные пометки, включая для определенной группы строк (во всех объектах эта группа есть, там выводятся значения типа "прибыль" "выручка" и тд... которые соответственно зависят от всех других значений в строках по объекту) ставятся пометки "В РАБОТЕ" - если объект еще не закончен
и "ЗАВЕРШЕН" - если окончен соответственно.
те группы строк в которых в столбце Примечания - "В РАБОТЕ" макрос расчитывает по умолчанию, если "ЗАВЕРШЕН" то нет, но бывает вносятся изменения в строки объекта или добавляются новые данные ,значит
требуется пересчет - заменить значение "ЗАВЕРШЕН" на "В РАБОТЕ"
К сообщению приложен файл: kniga1.xlsb (9.3 Kb)
 
Ответить
СообщениеДень добрый, задача:
макросом при изменении каких либо значений в строках, в столбце 11 строки отмечаются 1 (для последующего расчета макросом),
в столбце Примечания делаются различные пометки, включая для определенной группы строк (во всех объектах эта группа есть, там выводятся значения типа "прибыль" "выручка" и тд... которые соответственно зависят от всех других значений в строках по объекту) ставятся пометки "В РАБОТЕ" - если объект еще не закончен
и "ЗАВЕРШЕН" - если окончен соответственно.
те группы строк в которых в столбце Примечания - "В РАБОТЕ" макрос расчитывает по умолчанию, если "ЗАВЕРШЕН" то нет, но бывает вносятся изменения в строки объекта или добавляются новые данные ,значит
требуется пересчет - заменить значение "ЗАВЕРШЕН" на "В РАБОТЕ"

Автор - Gjlhzl
Дата добавления - 22.05.2023 в 15:58
Serge_007 Дата: Понедельник, 22.05.2023, 16:19 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

Так надо?
[vba]
Код
Sub Gjlhzl()
Dim rR As Range
    For Each rR In Range("d2:d27")
        If rR.Offset(0, 7) = 1 Then rR = "В РАБОТЕ"
    Next rR
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

Так надо?
[vba]
Код
Sub Gjlhzl()
Dim rR As Range
    For Each rR In Range("d2:d27")
        If rR.Offset(0, 7) = 1 Then rR = "В РАБОТЕ"
    Next rR
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 22.05.2023 в 16:19
Gjlhzl Дата: Понедельник, 22.05.2023, 16:35 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, нет
Сергей требуется, что бы если хоть в одной из ячеек столбца 11 определенного объекта, есть 1 (то есть что то менялось в строке - 1 ставиться макросом при изменении чего либо в строке)
то в строке этого объекта где столбце Примечания записано - "ЗАВЕРШЕН" ЗАВЕРШЕН менялось на В РАБОТЕ
а все остальные записи столбца Примечания не менялись, и так с каждым объектом


Сообщение отредактировал Gjlhzl - Понедельник, 22.05.2023, 16:39
 
Ответить
СообщениеSerge_007, нет
Сергей требуется, что бы если хоть в одной из ячеек столбца 11 определенного объекта, есть 1 (то есть что то менялось в строке - 1 ставиться макросом при изменении чего либо в строке)
то в строке этого объекта где столбце Примечания записано - "ЗАВЕРШЕН" ЗАВЕРШЕН менялось на В РАБОТЕ
а все остальные записи столбца Примечания не менялись, и так с каждым объектом

Автор - Gjlhzl
Дата добавления - 22.05.2023 в 16:35
Serge_007 Дата: Понедельник, 22.05.2023, 16:46 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
ЗАВЕРШЕН менялось на В РАБОТЕ
Так?
[vba]
Код
Sub Gjlhzl_2()
Dim rR As Range
    For Each rR In Range("d2:d27")
        If rR = "ЗАВЕРШЕН" And rR.Offset(0, 7) Then rR = "В РАБОТЕ"
    Next rR
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
ЗАВЕРШЕН менялось на В РАБОТЕ
Так?
[vba]
Код
Sub Gjlhzl_2()
Dim rR As Range
    For Each rR In Range("d2:d27")
        If rR = "ЗАВЕРШЕН" And rR.Offset(0, 7) Then rR = "В РАБОТЕ"
    Next rR
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 22.05.2023 в 16:46
Gjlhzl Дата: Понедельник, 22.05.2023, 17:05 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, не совсем....ща меняется...но меняется только если в строке где в Примечании есть ЗАВЕРШЕН в столбце 11 - есть 1..........
а ее там нет по умолчанию если объект ЗАВЕРШЕН,
если в какой то из строк объекта допустим -" дом " внеслись изменения соответственно в столбце 11 яч К20- "1" то в D2, D3 должно стать - В РАБОТЕ
см. пример
К сообщению приложен файл: kniga1_1.xlsb (14.7 Kb)
 
Ответить
СообщениеSerge_007, не совсем....ща меняется...но меняется только если в строке где в Примечании есть ЗАВЕРШЕН в столбце 11 - есть 1..........
а ее там нет по умолчанию если объект ЗАВЕРШЕН,
если в какой то из строк объекта допустим -" дом " внеслись изменения соответственно в столбце 11 яч К20- "1" то в D2, D3 должно стать - В РАБОТЕ
см. пример

Автор - Gjlhzl
Дата добавления - 22.05.2023 в 17:05
Serge_007 Дата: Понедельник, 22.05.2023, 17:25 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Gjlhzl, Вас очень сложно понять, а файл ещё больше запутывает...


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеGjlhzl, Вас очень сложно понять, а файл ещё больше запутывает...

Автор - Serge_007
Дата добавления - 22.05.2023 в 17:25
Gjlhzl Дата: Понедельник, 22.05.2023, 17:47 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, возможно коряво формирую мысль......
пофильтруйте по объектам...допустим
в файле из сообщ 5 фильтраните по объет -дом
если в какой то либо строке в столбце11 есть 1 то в строках где в столбце Примечания есть ЗАВЕРШЕН, слово должно поменяться на В РАБОТЕ
если нет 1 в столбце 11 то ничего не происходит, если в столбце 11 есть 1 но в столбце примечания - В РАБОТЕ , то ничего не происходит


Сообщение отредактировал Gjlhzl - Понедельник, 22.05.2023, 17:49
 
Ответить
СообщениеSerge_007, возможно коряво формирую мысль......
пофильтруйте по объектам...допустим
в файле из сообщ 5 фильтраните по объет -дом
если в какой то либо строке в столбце11 есть 1 то в строках где в столбце Примечания есть ЗАВЕРШЕН, слово должно поменяться на В РАБОТЕ
если нет 1 в столбце 11 то ничего не происходит, если в столбце 11 есть 1 но в столбце примечания - В РАБОТЕ , то ничего не происходит

Автор - Gjlhzl
Дата добавления - 22.05.2023 в 17:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » замена текста в яч. в зависимости от знач в нескольк столбца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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