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

Вход

Регистрация

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

 

= Мир MS Excel/Очистить все идентичные наименования... - Мир MS Excel

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

Excel 2016
Здравствуйте!
Ребята, пытаюсь очистить всю таблицу по столбцам от всех наименований идентичных наименованию комбобокса.

[vba]
Код
    Dim Cell As Range
    'Поиск наименований на основании наименования в комбобоксе
    Set Cell = ThisWorkbook.Worksheets("Лист").ListObjects("Таблица").ListColumns.Item.Range.Find(Form.ComboBox.Value, LookAt:=xlWhole)
    If Not Cell Is Nothing Then 'Если найдены наименования в таблице идентичные с наименованием комбобокса
        Cell.Value = ""         'Очистить все ячейки от данных наименований
    End If
[/vba]
Но параметру Item не работает без номера колонки. С номером колонки Item(1) очищаются только одно наименование и только обозначенной колонки.
Каким образом очистить все наименования таблицы идентичные с наименованием комбобокса?


Сообщение отредактировал Сергей13 - Воскресенье, 05.05.2019, 14:13
 
Ответить
СообщениеЗдравствуйте!
Ребята, пытаюсь очистить всю таблицу по столбцам от всех наименований идентичных наименованию комбобокса.

[vba]
Код
    Dim Cell As Range
    'Поиск наименований на основании наименования в комбобоксе
    Set Cell = ThisWorkbook.Worksheets("Лист").ListObjects("Таблица").ListColumns.Item.Range.Find(Form.ComboBox.Value, LookAt:=xlWhole)
    If Not Cell Is Nothing Then 'Если найдены наименования в таблице идентичные с наименованием комбобокса
        Cell.Value = ""         'Очистить все ячейки от данных наименований
    End If
[/vba]
Но параметру Item не работает без номера колонки. С номером колонки Item(1) очищаются только одно наименование и только обозначенной колонки.
Каким образом очистить все наименования таблицы идентичные с наименованием комбобокса?

Автор - Сергей13
Дата добавления - 05.05.2019 в 14:10
Pelena Дата: Воскресенье, 05.05.2019, 15:14 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
    Dim Cell As Range
    'Поиск наименований на основании наименования в комбобоксе
    For Each Cell In ThisWorkbook.Worksheets("Лист").ListObjects("Таблица").DatabodyRange
        If  Cell.Value = Form.ComboBox.Value Then 'Если найдены наименования в таблице идентичные с наименованием комбобокса
            Cell.ClearContents         'Очистить все ячейки от данных наименований
        End If
    Next Cell
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
    Dim Cell As Range
    'Поиск наименований на основании наименования в комбобоксе
    For Each Cell In ThisWorkbook.Worksheets("Лист").ListObjects("Таблица").DatabodyRange
        If  Cell.Value = Form.ComboBox.Value Then 'Если найдены наименования в таблице идентичные с наименованием комбобокса
            Cell.ClearContents         'Очистить все ячейки от данных наименований
        End If
    Next Cell
[/vba]

Автор - Pelena
Дата добавления - 05.05.2019 в 15:14
Сергей13 Дата: Воскресенье, 05.05.2019, 15:39 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, выдает ошибку на строку
[vba]
Код
For Each Cell In ThisWorkbook.Worksheets("name").ListObjects("tabl_name").DatabogyRange
[/vba]
Объект не поддерживает это свойство или метод.
К сообщению приложен файл: 2020.xlsm (25.6 Kb)
 
Ответить
СообщениеPelena, выдает ошибку на строку
[vba]
Код
For Each Cell In ThisWorkbook.Worksheets("name").ListObjects("tabl_name").DatabogyRange
[/vba]
Объект не поддерживает это свойство или метод.

Автор - Сергей13
Дата добавления - 05.05.2019 в 15:39
RAN Дата: Воскресенье, 05.05.2019, 16:51 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Сергей13, 05.05.2019 в 15:39, в сообщении № 3 ()
DatabogyRange

Нет тела - нет дела. ;) ;)


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Сергей13, 05.05.2019 в 15:39, в сообщении № 3 ()
DatabogyRange

Нет тела - нет дела. ;) ;)

Автор - RAN
Дата добавления - 05.05.2019 в 16:51
nilem Дата: Воскресенье, 05.05.2019, 16:52 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
попробуйте вместо
[vba]
Код
For Each Cell In ThisWorkbook.Worksheets("name").ListObjects("tabl_name").DatabogyRange
[/vba]

вот так
[vba]
Код
For Each Cell In ThisWorkbook.Worksheets("name").Range("tabl_name")
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениепопробуйте вместо
[vba]
Код
For Each Cell In ThisWorkbook.Worksheets("name").ListObjects("tabl_name").DatabogyRange
[/vba]

вот так
[vba]
Код
For Each Cell In ThisWorkbook.Worksheets("name").Range("tabl_name")
[/vba]

Автор - nilem
Дата добавления - 05.05.2019 в 16:52
Pelena Дата: Воскресенье, 05.05.2019, 17:25 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Сергей13, 05.05.2019 в 15:39, в сообщении № 3 ()
.DatabogyRange

[vba]
Код
.DatabodyRange
[/vba]
конечно :D
Исправила


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Сергей13, 05.05.2019 в 15:39, в сообщении № 3 ()
.DatabogyRange

[vba]
Код
.DatabodyRange
[/vba]
конечно :D
Исправила

Автор - Pelena
Дата добавления - 05.05.2019 в 17:25
Сергей13 Дата: Воскресенье, 05.05.2019, 17:49 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Благодарю!
 
Ответить
СообщениеPelena, Благодарю!

Автор - Сергей13
Дата добавления - 05.05.2019 в 17:49
Pelena Дата: Воскресенье, 05.05.2019, 18:03 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
И Вам спасибо :)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеИ Вам спасибо :)

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

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