Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая замена части формулы в ячейке Excel - VBA / 6 сообщений из 6, страница 1 из 1
26.06.2017, 13:08
    #39477646
Lamptop
Lamptop
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая замена части формулы в ячейке Excel - VBA
Добрый день. Требуется заменить букву в формуле. Нашел пример макроса, изменил значения, но после запуска 0 изменений. Формула простая, вида =Лист1!С16
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
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

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2017, 13:17
    #39477658
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая замена части формулы в ячейке Excel - VBA
1) Нельзя использовать UsedRange без указания объекта (Worksheet). Замените, например, на ThisWorkbook.Sheets("Лист1").UsedRange.
2) Макрос должен быть размещён в common-модуле.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2017, 14:09
    #39477713
Lamptop
Lamptop
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая замена части формулы в ячейке Excel - VBA
Akina, out of range
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2017, 14:30
    #39477736
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая замена части формулы в ячейке Excel - VBA
Lamptop,

Возможно лист пуст?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2017, 14:32
    #39477740
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая замена части формулы в ячейке Excel - VBA
iMrTidyLamptop,

Возможно лист пуст?

Или, может быть, листа с таким именем не существует?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2017, 15:05
    #39477768
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая замена части формулы в ячейке Excel - VBA
iMrTidyлиста с таким именем не существуетПо скрину видно - что все-таки не существует в книге с кодом листа "Лист1".
Lamptop, может ThisWorkbook надо на ActiveWorkbook заменить? Где формулы-то ищете?
И еще вопрос: а стандартная замена(Ctrl+H) чем не подходит в данном случае?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая замена части формулы в ячейке Excel - VBA / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 173ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172644]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 13ms
total:  173ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]