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

Вход

Регистрация

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

 

= Мир MS Excel/Восприятие ячеек заполненных пробелами - как пустые - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Восприятие ячеек заполненных пробелами - как пустые (Макросы/Sub)
Восприятие ячеек заполненных пробелами - как пустые
RagnarLodbrokovitch Дата: Среда, 14.11.2018, 17:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
Макрос извлекает из диапазона I7:J51 листа3 - текст, который берет из диапазона N4:N14 - на листе2.
Он помещает извлеченный текст в соответствующую ячейку столбца K

Но проблема в том, что он работает только если - ячейки диапазона I7:J51 - ниже последних заполненных ячеек - полностью ничем не заняты.
Если там стоят пробелы (как сейчас) - то макрос не будет реагировать на текст и не извлечет в ячейку K33 нужные текстовые данные.

Как заставить макрос - воспринимать ячейки диапазона I7:J51 листа3, заполненные пробелами - как пустые ?
(чтобы он извлек нужный текст - в ячейку K33)

Я так понял, что нужно где-то в коде разместить вот такую стоку:
[vba]
Код
If Len(Replace(Range("I7:J4000"), " ", "")) = 0 Then MsgBox " "
[/vba]
Но где именно - пока не могу понять.
К сообщению приложен файл: 8993291.xls(52.0 Kb)
 
Ответить
СообщениеДобрый день.
Макрос извлекает из диапазона I7:J51 листа3 - текст, который берет из диапазона N4:N14 - на листе2.
Он помещает извлеченный текст в соответствующую ячейку столбца K

Но проблема в том, что он работает только если - ячейки диапазона I7:J51 - ниже последних заполненных ячеек - полностью ничем не заняты.
Если там стоят пробелы (как сейчас) - то макрос не будет реагировать на текст и не извлечет в ячейку K33 нужные текстовые данные.

Как заставить макрос - воспринимать ячейки диапазона I7:J51 листа3, заполненные пробелами - как пустые ?
(чтобы он извлек нужный текст - в ячейку K33)

Я так понял, что нужно где-то в коде разместить вот такую стоку:
[vba]
Код
If Len(Replace(Range("I7:J4000"), " ", "")) = 0 Then MsgBox " "
[/vba]
Но где именно - пока не могу понять.

Автор - RagnarLodbrokovitch
Дата добавления - 14.11.2018 в 17:54
bmv98rus Дата: Среда, 14.11.2018, 20:20 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1417
Репутация: 238 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата
Восприятие ячеек
:-)
что ж вы мечетесь? Там нормальный вопрос и ответ, но не знаете как с этим работать, бежите сюда но формулировка темы не соответствует вопросу. размышляйте над этой конструкцией.
[vba]
Код
  For Each Cell In [E7:E4000]
  Cell.Value = Trim(Cell.Value)
  Next
[/vba]


Сообщение отредактировал bmv98rus - Среда, 14.11.2018, 20:24
 
Ответить
Сообщение
Цитата
Восприятие ячеек
:-)
что ж вы мечетесь? Там нормальный вопрос и ответ, но не знаете как с этим работать, бежите сюда но формулировка темы не соответствует вопросу. размышляйте над этой конструкцией.
[vba]
Код
  For Each Cell In [E7:E4000]
  Cell.Value = Trim(Cell.Value)
  Next
[/vba]

Автор - bmv98rus
Дата добавления - 14.11.2018 в 20:20
RagnarLodbrokovitch Дата: Среда, 14.11.2018, 21:01 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
bmv98rus, конструкция конечно красивая.
Код который вы привели - удаляет все пробелы в диапазоне.
Но мне не надо их удалять - пробелы должны оставаться на месте.

Просто макрос если видит в ячейке один пробел - то считает ячейку -пустой (хотя формально она непустая, а занята пробелом).
Вот это я имел ввиду.
 
Ответить
Сообщениеbmv98rus, конструкция конечно красивая.
Код который вы привели - удаляет все пробелы в диапазоне.
Но мне не надо их удалять - пробелы должны оставаться на месте.

Просто макрос если видит в ячейке один пробел - то считает ячейку -пустой (хотя формально она непустая, а занята пробелом).
Вот это я имел ввиду.

Автор - RagnarLodbrokovitch
Дата добавления - 14.11.2018 в 21:01
Pelena Дата: Среда, 14.11.2018, 22:07 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 13300
Репутация: 2927 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Не особо вдавалась в логику макроса.
Может, это нужно
К сообщению приложен файл: 4001549.xls(55.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНе особо вдавалась в логику макроса.
Может, это нужно

Автор - Pelena
Дата добавления - 14.11.2018 в 22:07
RagnarLodbrokovitch Дата: Среда, 14.11.2018, 22:36 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, теперь в целевой ячейке - появляется лишний знак "+"
К сообщению приложен файл: 4822406.xls(52.0 Kb)
 
Ответить
СообщениеPelena, теперь в целевой ячейке - появляется лишний знак "+"

Автор - RagnarLodbrokovitch
Дата добавления - 14.11.2018 в 22:36
Pelena Дата: Среда, 14.11.2018, 22:42 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 13300
Репутация: 2927 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Такой более универсальный вариант проверьте
К сообщению приложен файл: 8908370.xls(55.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТакой более универсальный вариант проверьте

Автор - Pelena
Дата добавления - 14.11.2018 в 22:42
RagnarLodbrokovitch Дата: Среда, 14.11.2018, 23:07 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, все - я разобрался.
Вы там использовали как раз такой цикл, который мне и был нужен.

Спасибо.
 
Ответить
СообщениеPelena, все - я разобрался.
Вы там использовали как раз такой цикл, который мне и был нужен.

Спасибо.

Автор - RagnarLodbrokovitch
Дата добавления - 14.11.2018 в 23:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Восприятие ячеек заполненных пробелами - как пустые (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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