Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выделить часть значений из кода, Выделить часть значений из кода и созранить в другом столбце
 
#1
21.08.2018 15:46:50
Добрый день! Нужна помощь в написании макроса.


Существует код из середины кода необходимо выделить шесть значений. Всегда начинается с 12 позиции (точки считаются) Если начинается с любого значения (Цифры, буквы) то необходимо выделить шесть значений (точка учитывается), но если начитается с & (ампирсанта) то значение не пишется в ячейку.
Может сумбурно объяснила, но в примере все вроде понятно.
 
 
 
#2
21.08.2018 15:53:08
у Вас в номере задания после 0 и 8 точек нет, а после 9 есть. И макрос зачем? простой формулой можно..
 
 
 
#3
21.08.2018 16:05:32
У нас в таблице более 3 тысяч записей и в таблице формулы не нужны. Таблица должна формироваться в раз неделю в жатые сроки и передаваться дальше. Поэтому макрос удобней будет для работы.
На счет точек вы правы. Исправила
Просто мы еще в раздумьях возможно будет и без точек.
Тогда как их убрать
 
 
 
#4
21.08.2018 16:10:52
с точками
Код
Sub nz()
Dim cl As Range
For Each cl In Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row)
    If Mid(cl, 12, 1) <> "&" Then cl.Offset(0, -4) = Mid(cl, 12, 6)
Next
End Sub
а без точек - 12 позиция без учета точек? или результат без точек? если в результате есть точка, и ее убираем - остается 5 символов? или добавляем следующий?
 
 
 
#5
21.08.2018 16:12:51
В результате точку убираем и остается 5 символов.
 
 
 
#6
21.08.2018 16:14:26
без точек
Код
Sub nz()
Dim cl As Range
For Each cl In Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row)
    If Mid(cl, 12, 1) <> "&" Then cl.Offset(0, -4) = Replace(Mid(cl, 12, 6), ".", "")
Next
End Sub
 
 
 
#7
21.08.2018 16:21:31
Спасибо за помощь!
 
 
 
Страницы: 1
Наверх