Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
изменить примечание в ячейки по маске
 
Прошу помощи. Проблема макроса с работой по маске. Мне необходимо удалить текст в примечании, который находится до знака / . Просто в ячейке делаю без проблем, а вот именно в примечаниях символы маски * или ? не помогают ((
 
Цитата
sesahar написал:
Просто в ячейке делаю без проблем
ЗдОрово, вот бы и мне так научиться. Вот только автор на файл пример жадный  :(  
"Все гениальное просто, а все простое гениально!!!"
 
пример приложил.
В ячейки работает вот так:
Cells(1, i).Replace What:="*/", Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Изменено: sesahar - 14 Ноя 2017 21:25:42
 
Попробуйте так.
Код
Sub tttt()
Dim arr$(), i&
Dim lrow&
lrow = Range("a" & Rows.Count).End(xlUp).Row
For i = 1 To lrow Step 2
    With Range("a" & i)
        arr = Split(.Comment.Text, "/",2)
        .Comment.Delete
        .AddComment arr(1)
    End With
Next i
End Sub
Изменено: Nordheim - 14 Ноя 2017 22:24:36
"Все гениальное просто, а все простое гениально!!!"
 
Nordheim, огромное спасибо!
Страницы: 1
Читают тему (гостей: 1)