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

Вход

Регистрация

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

 

= Мир MS Excel/Изменить значения ячеек, по определенным правилам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить значения ячеек, по определенным правилам (Иное/Other)
Изменить значения ячеек, по определенным правилам
biomirror Дата: Понедельник, 02.05.2016, 08:43 | Сообщение № 1
Группа: Проверенные
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте!
Как сделать так, чтобы заданные ячейки, в которых значения отличаются от нужного нам (в моем случае буква Х), становились бы пустыми, а затем ячейки, значения в которых совпадают с нужными нам значениями (буквой Х) заменялись бы на другие нужные нам значения (в моем случае нужно, чтобы на 1)?
К сообщению приложен файл: 6303695.xlsx (8.3 Kb)
 
Ответить
СообщениеЗдравствуйте!
Как сделать так, чтобы заданные ячейки, в которых значения отличаются от нужного нам (в моем случае буква Х), становились бы пустыми, а затем ячейки, значения в которых совпадают с нужными нам значениями (буквой Х) заменялись бы на другие нужные нам значения (в моем случае нужно, чтобы на 1)?

Автор - biomirror
Дата добавления - 02.05.2016 в 08:43
nilem Дата: Понедельник, 02.05.2016, 09:11 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
biomirror, привет
попробуйте
[vba]
Код
Sub ttt()
Dim r As Range
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    Set r = .Find("X")
    If r Is Nothing Then Exit Sub
    .ColumnDifferences(r).ClearContents
    .SpecialCells(2).Value = 1
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеbiomirror, привет
попробуйте
[vba]
Код
Sub ttt()
Dim r As Range
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    Set r = .Find("X")
    If r Is Nothing Then Exit Sub
    .ColumnDifferences(r).ClearContents
    .SpecialCells(2).Value = 1
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 02.05.2016 в 09:11
biomirror Дата: Понедельник, 02.05.2016, 15:19 | Сообщение № 3
Группа: Проверенные
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

nilem, да, спасибо, это то, что мне нужно. Только я VBA не знаю, не могли бы вы подсказать, что здесь к чему) а именно - как я могу самостоятельно задать нужный мне диапазон ячеек?
 
Ответить
Сообщениеnilem, да, спасибо, это то, что мне нужно. Только я VBA не знаю, не могли бы вы подсказать, что здесь к чему) а именно - как я могу самостоятельно задать нужный мне диапазон ячеек?

Автор - biomirror
Дата добавления - 02.05.2016 в 15:19
nilem Дата: Понедельник, 02.05.2016, 16:23 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
диапазон задается вот этой строкой:
[vba]
Код
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
[/vba]
т.е. от А1 до последней заполненной ячейки в столбце А
Для столбца D, например, будет так:
[vba]
Код
With Range("D1", Cells(Rows.Count, 4).End(xlUp))
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениедиапазон задается вот этой строкой:
[vba]
Код
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
[/vba]
т.е. от А1 до последней заполненной ячейки в столбце А
Для столбца D, например, будет так:
[vba]
Код
With Range("D1", Cells(Rows.Count, 4).End(xlUp))
[/vba]

Автор - nilem
Дата добавления - 02.05.2016 в 16:23
StoTisteg Дата: Понедельник, 02.05.2016, 17:10 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010

Я бы ещё явно прописал lookat:=xlPart, а то сделают раз поиск по всему и привет макросу.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Я бы ещё явно прописал lookat:=xlPart, а то сделают раз поиск по всему и привет макросу.

Автор - StoTisteg
Дата добавления - 02.05.2016 в 17:10
biomirror Дата: Понедельник, 02.05.2016, 21:02 | Сообщение № 6
Группа: Проверенные
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

nilem, Ох уж этот эксель, пока сформулируешь, то что хочешь, - голову сломаешь...
Как задать значения, скажем для диапазона A1:A5, Ячейки A8, Диапазона, A10:12?, строки 13, диапазона A15:C16 ?
 
Ответить
Сообщениеnilem, Ох уж этот эксель, пока сформулируешь, то что хочешь, - голову сломаешь...
Как задать значения, скажем для диапазона A1:A5, Ячейки A8, Диапазона, A10:12?, строки 13, диапазона A15:C16 ?

Автор - biomirror
Дата добавления - 02.05.2016 в 21:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить значения ячеек, по определенным правилам (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

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