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

Вход

Регистрация

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

 

= Мир MS Excel/Ячейка с 3 точками подряд - как найти и заменить - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ячейка с 3 точками подряд - как найти и заменить (Макросы/Sub)
Ячейка с 3 точками подряд - как найти и заменить
Rakhot Дата: Среда, 07.04.2021, 07:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спектрометр делает экспорт своих данных в эксель и в случае неопределения какого-либо элемента иногда выдает в соответствующую ячейку вместо нуля просто три точки подряд - "..."
Для обработки данных при записи их в массив пытался написать что-то вроде
[vba]
Код
If Cells(i + 2, k) = "..." Then data(j, t + 1) = 0 Else data(j, t + 1) = Cells(i + 2, k)
[/vba]
С удивлением обнаружил, что почему-то этот код не работает. В чем причина и как решить проблему замены трех точек на нуль?

Кстати попробовал непосредственно в книге сделать поиск и замену "..." на пустое место - не работает, также не работает замена двух точек "..".
В приложенном файле в коде это 41 строка.
К сообщению приложен файл: Atom4forum.xlsm(24.5 Kb)
 
Ответить
СообщениеСпектрометр делает экспорт своих данных в эксель и в случае неопределения какого-либо элемента иногда выдает в соответствующую ячейку вместо нуля просто три точки подряд - "..."
Для обработки данных при записи их в массив пытался написать что-то вроде
[vba]
Код
If Cells(i + 2, k) = "..." Then data(j, t + 1) = 0 Else data(j, t + 1) = Cells(i + 2, k)
[/vba]
С удивлением обнаружил, что почему-то этот код не работает. В чем причина и как решить проблему замены трех точек на нуль?

Кстати попробовал непосредственно в книге сделать поиск и замену "..." на пустое место - не работает, также не работает замена двух точек "..".
В приложенном файле в коде это 41 строка.

Автор - Rakhot
Дата добавления - 07.04.2021 в 07:27
bmv98rus Дата: Среда, 07.04.2021, 07:55 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3506
Репутация: 616 ±
Замечаний: 0% ±

Excel 2013/2016
так спектрометр вcтавляет не 3 точки, а символ https://unicode-table.com/en/search/?q=8230
[vba]
Код
If Cells(i + 2, k) = ChrW(8230)
[/vba]
да и
[vba]
Код
el_name(1) = "Ag": el_name(2) = "As": .....
[/vba]

проще заменить на [vba]
Код
el_name=array("Ag","As",...
[/vba]
разве что с нуля начнетс, но это просто поправить
проще заменить на[vba]
Код
el_name=array("","Ag","As",...
[/vba]


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Среда, 07.04.2021, 07:58
 
Ответить
Сообщениетак спектрометр вcтавляет не 3 точки, а символ https://unicode-table.com/en/search/?q=8230
[vba]
Код
If Cells(i + 2, k) = ChrW(8230)
[/vba]
да и
[vba]
Код
el_name(1) = "Ag": el_name(2) = "As": .....
[/vba]

проще заменить на [vba]
Код
el_name=array("Ag","As",...
[/vba]
разве что с нуля начнетс, но это просто поправить
проще заменить на[vba]
Код
el_name=array("","Ag","As",...
[/vba]

Автор - bmv98rus
Дата добавления - 07.04.2021 в 07:55
Rakhot Дата: Среда, 07.04.2021, 08:17 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
так спектрометр вcтавляет не 3 точки, а символ https://unicode-table.com/en/search/?q=8230
[vba]
Код
If Cells(i + 2, k) = ChrW(8230)
[/vba]


Спасибо огромное!


Сообщение отредактировал Serge_007 - Среда, 07.04.2021, 08:59
 
Ответить
Сообщение
так спектрометр вcтавляет не 3 точки, а символ https://unicode-table.com/en/search/?q=8230
[vba]
Код
If Cells(i + 2, k) = ChrW(8230)
[/vba]


Спасибо огромное!

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

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