ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая замена части формулы в ячейке Excel - VBA
6 сообщений из 6, страница 1 из 1
Автоматическая замена части формулы в ячейке Excel - VBA
    #39477646
Lamptop
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lamptop
Гость
Добрый день. Требуется заменить букву в формуле. Нашел пример макроса, изменил значения, но после запуска 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:08
| Ответить | Цитировать | Написать  
Автоматическая замена части формулы в ячейке Excel - VBA
    #39477658
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
1) Нельзя использовать UsedRange без указания объекта (Worksheet). Замените, например, на ThisWorkbook.Sheets("Лист1").UsedRange.
2) Макрос должен быть размещён в common-модуле.
...
Рейтинг: 0 / 0
26.06.2017, 13:17
| Ответить | Цитировать | Написать  
Автоматическая замена части формулы в ячейке Excel - VBA
    #39477713
Lamptop
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lamptop
Гость
Akina, out of range
...
Рейтинг: 0 / 0
26.06.2017, 14:09
| Ответить | Цитировать | Написать  
Автоматическая замена части формулы в ячейке Excel - VBA
    #39477736
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Lamptop,

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

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

Или, может быть, листа с таким именем не существует?
...
Рейтинг: 0 / 0
26.06.2017, 14:32
| Ответить | Цитировать | Написать  
Автоматическая замена части формулы в ячейке Excel - VBA
    #39477768
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
iMrTidyлиста с таким именем не существуетПо скрину видно - что все-таки не существует в книге с кодом листа "Лист1".
Lamptop, может ThisWorkbook надо на ActiveWorkbook заменить? Где формулы-то ищете?
И еще вопрос: а стандартная замена(Ctrl+H) чем не подходит в данном случае?
...
Рейтинг: 0 / 0
26.06.2017, 15:05
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая замена части формулы в ячейке Excel - VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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