ReSQL.ru
     
powered by simpleCommunicator - 2.0.37     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск и замена значений ячеек Excel (vba)
13 сообщений из 13, страница 1 из 1
Поиск и замена значений ячеек Excel (vba)
    #39535507
lsor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsor
Гость
Доброго времени суток!
Суть вопроса: есть 2 таблицы (i.e. "1" и "2")
из таблицы 1 нужно найти все ячейки, у которых в имени имеется "$name" и заменить "$name" на значение ячеек из 2 столбца таблицы 2. Количество строк в обоих таблицах - значение не константное.
...
Рейтинг: 0 / 0
12.10.2017, 16:33
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535530
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lsorСуть вопроса:Вопрос не найден. Также не ясно, что вы вкладываете в понятие "таблица" и что такое имя ячейки.
...
Рейтинг: 0 / 0
12.10.2017, 16:58
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535540
lsor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsor
Гость
Shocker.Pro, извиняюсь за некорректность вопроса. Исправляюсь:
2 листа (1 и 2)
ищем в 1-ом листе ячейки у которых в значении имеется "$name"(+ бла-бла-бла) и меняем "$name" на значение ячейки из 2-го столбца 2 листа.
...
Рейтинг: 0 / 0
12.10.2017, 17:09
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535547
lsor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsor
Гость
Shocker.Pro,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
With Worksheets(2).range("A1:A13")
  Set c = .Find("$name*", LookIn:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.address
    Do
      c.Value = Worksheets(1).range("B2:B13")
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.address <> firstResult
  End If
End With



пока есть что-то такое, но не понимаю как диапазон не привязывать к конкретным значениям, да и не записывает ничего.
...
Рейтинг: 0 / 0
12.10.2017, 17:16
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535555
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lsorна значение ячейки из 2-го столбца 2 листа.а из какой строки?

Рекомендую выложить пример файла
...
Рейтинг: 0 / 0
12.10.2017, 17:22
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535557
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lsor
Код: vbnet
1.
Not c Is Nothing And c.address <> firstResult

Условие некорректное. Если с=Nothing все равно произойдет падение на c.address
...
Рейтинг: 0 / 0
12.10.2017, 17:23
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535558
lsor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsor
Гость
Shocker.Pro,

поочерёдно
1-я строка из 1 - 1-я строка из 2
2-я строка из 1 - 2-я строка из 2
и т.д. до конца
...
Рейтинг: 0 / 0
12.10.2017, 17:26
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535573
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А VBA принципиально? Почему не формулой?
...
Рейтинг: 0 / 0
12.10.2017, 17:40
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535577
lsor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsor
Гость
Shocker.Pro,

задание руководителя. Для него это почему-то принципиально
...
Рейтинг: 0 / 0
12.10.2017, 17:43
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535634
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
lsor,

такой вариант не подойдет? Массовая замена слов
...
Рейтинг: 0 / 0
12.10.2017, 19:27
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535793
lsor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsor
Гость
The_Prist,

к сожалению нет, но спасибо за ответ.
...
Рейтинг: 0 / 0
13.10.2017, 09:03
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39535926
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Каждый раз, когда находите нужное значение, нужно определить строку у найденной ячейки, затем обратиться к значению конкретной ячейки на втором листе и вырезать и склеить значения с помощью функции Mid$
Что именно вызывает проблему?

ЗЫ: Проще было бы сделать простым циклом по ячейкам, хотя на очень большом объеме Find будет работать побстрее
...
Рейтинг: 0 / 0
13.10.2017, 12:17
| Ответить | Цитировать | Написать  
Поиск и замена значений ячеек Excel (vba)
    #39536099
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
lsorк сожалению нетА чем именно? Судя по описанию из первого сообщения - очень даже подходит. Вы хоть попробовали? Или может я не понимаю что надо?
...
Рейтинг: 0 / 0
13.10.2017, 16:16
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск и замена значений ячеек Excel (vba)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2155199]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 281ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


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