Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выполнение замены в указанном диапазоне Excel (VB) / 4 сообщений из 4, страница 1 из 1
13.07.2006, 15:00:37
    #33851269
resen
resen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение замены в указанном диапазоне Excel (VB)
Добрый день...
помогите плиз с советом.....
такая ситуация..
есть ячейка с датой 10_07_06, при нажатии кнопки необходимо в заданном диапазоне заменить формулы ...

что я неправильно делаю ... ?

Sub Module1()
Dim myData As String
Set myData = Worksheets("Лист1").Cells("C2")
Range("A5:AN118").Replace What:="", Replacement:=myData
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 15:09:51
    #33851305
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение замены в указанном диапазоне Excel (VB)
Код: plaintext
1.
2.
3.
4.
5.
Sub Module1()
Dim myData As String
myData = Worksheets("Лист1").Range("C2").Value
Worksheets("Лист1").Range("A5:AN118").Replace What:="", Replacement:=myData
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 16:35:27
    #33851725
resen
resen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение замены в указанном диапазоне Excel (VB)
vkodor
Код: plaintext
1.
2.
3.
4.
5.
Sub Module1()
Dim myData As String
myData = Worksheets("Лист1").Range("C2").Value
Worksheets("Лист1").Range("A5:AN118").Replace What:="", Replacement:=myData
End Sub


vkodor спасибо....

всё ок ... но в данном листинге происходит замена пустых ячеек, прописывая туда "myData", :( а необходимые формулы не изменяет....
т.е. вставляет "myData" только в пустые ячейки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 17:04:42
    #33851853
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение замены в указанном диапазоне Excel (VB)
если я правильно понял, то вот
заменяет любую формулу(в том числе и ссылку) на значение ячейки С2
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Module1()
    Dim myData As String
    Dim rng As Range
    myData = Worksheets("Лист1").Range("C2").Value
    For Each rng In Worksheets("Лист1").Range("A5:AN118")
        If rng.HasFormula Then rng.Value = myData
    Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выполнение замены в указанном диапазоне Excel (VB) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 387ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184627]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 256ms
total:  387ms
x
x
Закрыть


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