Подсчет замен, совершенных функцией Replace

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подсчет замен, совершенных функцией Replace (Макросы/Sub)

Raskat

Дата: Пятница, 21.12.2018, 12:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго дня!
Есть такой кусок кода, производящий замену символа в столбце:
[vba]

Код

Columns(c).Select
Selection.Replace What:="[", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:="]", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:="<", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:=">", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[/vba]

Нужно что бы количество произведенных замен сохранялось. А еще лучше - что бы была возможность со строками, в которых произведена замена совершить какую-то операцию - например, залить цветом.

Попробовал переписать в таком формате, но так не работает. Почему?

[vba]

Код

For i = r To 2 Step -1 'Перебираем строчки в столбце - от последней до второй, кроме верхней строки
If Cells(i, c) Like "*[]<>*" Then 'с - номер выделенного столбца
Cells(i, c).Value Replace(Cells(i, c).Value, "*[]<>~*", "")
dt2 = dt2 + 1 'Счетчик замен
End If
Next i

[/vba]

К сообщению приложен файл: 111.xlsx (8.0 Kb)

Ответить

sboy

Дата: Пятница, 21.12.2018, 12:56 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Цитата Raskat, 21.12.2018 в 12:26, в сообщении № 1 ()

но так не работает. Почему?

Like и Replace так не работают, читайте справку по функциям. То, как вы пытались сделать, решается с помощью регулярных выражений
[vba]

Код

Sub rep_()
c = 1
r = Cells(Rows.Count, c).End(xlUp).Row
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "[\[\]<>*]"
            For i = r To 2 Step -1 'Перебираем строчки в столбце - от последней до второй, кроме верхней строки
                If .test(Cells(i, c).Value) Then 'с - номер выделенного столбца
                    Cells(i, c).Value = .Replace(Cells(i, c).Value, "")
                    Cells(i, c).Interior.Color = vbYellow
                    dt2 = dt2 + 1 'Счетчик замен
                End If
            Next i
    End With
    MsgBox "замены сделаны в " & dt2 & " ячейках"
End Sub

[/vba]

К сообщению приложен файл: 111-5-.xlsm (13.2 Kb)

Яндекс: 410016850021169

Ответить

Raskat

Дата: Пятница, 21.12.2018, 13:56 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата sboy, 21.12.2018 в 12:56, в сообщении № 2 ()

Like и Replace так не работают, читайте справку по функциям. То, как вы пытались сделать, решается с помощью регулярных выражений

Где бы ее найти толковую? Везде какие то куски информации, нормального описания с полной раскладкой вариантов не нашел нигде. Может посоветуете толковые ресурсы?

А можно еще как-то включить в паттерн сочетания, например http:// ?

Ответить

StoTisteg

Дата: Пятница, 21.12.2018, 14:15 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Raskat, кнопка F1 при правильном использовании вполне себе толковый ресурс.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

sboy

Дата: Пятница, 21.12.2018, 15:13 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Цитата Raskat, 21.12.2018 в 13:56, в сообщении № 3 ()

Где бы ее найти толковую?

Напишите мне письмо (почта в профиле), дам ссылку на скачку того, что есть у меня

Яндекс: 410016850021169

Ответить

sboy

Дата: Пятница, 21.12.2018, 15:14 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Цитата Raskat, 21.12.2018 в 13:56, в сообщении № 3 ()

А можно еще как-то включить в паттерн сочетания, например http://

можно, но лучше приложите пример, что есть, что надо

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Пятница, 21.12.2018, 15:20 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

sboy,

Цитата sboy, 21.12.2018 в 15:13, в сообщении № 5 ()

Напишите мне письмо

А как бы вот это все так сделать, чтобы и волки были бы сыты, ~~и овцы целки~~ и Правила форума не нарушить?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995