Автоматическая замена участка формулы

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

Автоматическая замена участка формулы (Формулы/Formulas)

Lopotop

Дата: Понедельник, 26.06.2017, 14:20 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2010

Есть макрос, требуется что бы, С поменялось на D. Не работает. Формула вида =Лист1!С5
[vba]

Код

Sub AVTOZAM_()
Dim c As Range
Dim s As String
For Each c In UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
s = c.Formula
If Mid(s, Len(s) - 2, 1) = "C" Then Mid(s, Len(s) - 2, 1) = "E": c.Formula = s
Next
End Sub

[/vba]

Сообщение отредактировал Lopotop - Понедельник, 26.06.2017, 14:34

Ответить

китин

Дата: Понедельник, 26.06.2017, 14:31 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

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

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

Excel 2007;2010;2016

Lopotop, оформите код тэгами
Как оформлять сообщения?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Понедельник, 26.06.2017, 14:33

Ответить

китин

Дата: Понедельник, 26.06.2017, 14:38 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

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

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

Excel 2007;2010;2016

а просто при помощи Найти !С заменить на !D не прокатит?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Понедельник, 26.06.2017, 14:39

Ответить

buchlotnik

Дата: Понедельник, 26.06.2017, 14:46 | Сообщение № 4

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

как-то так видимо: [vba]

Код

Sub AVTOZAM_()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
        c.Formula = Replace(c.Formula, "C", "D")
    Next
End Sub

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 26.06.2017, 15:00 | Сообщение № 5

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Почти также
[vba]

Код

Sub AVTOZAM_()
    Dim c As Range
    For Each c In UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
        c.Formula = Replace(c.Formula, "!C", "!E")
        c.Formula = Replace(c.Formula, "=C", "=E")
    Next
End Sub

[/vba]
Или так еще
[vba]

Код

Sub AVTOZAM1_()
UsedRange.Cells.SpecialCells(xlCellTypeFormulas).Replace What:="c", Replacement:="e"
End Sub

[/vba]
Не, наверно лучше все-таки предусмотреть название листа с латинским "С"
[vba]

Код

Sub AVTOZAM1_()
UsedRange.Cells.SpecialCells(xlCellTypeFormulas).Replace What:="!c", Replacement:="!e"
UsedRange.Cells.SpecialCells(xlCellTypeFormulas).Replace What:="=c", Replacement:="=e"
End Sub

[/vba]

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

Ответить

Автоматическая замена участка формулы (Формулы/Formulas)

Страница 1 из 1
1