Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 696
от 28.01.2008, 16:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 267, Экспертов: 39
В номере:Вопросов: 1, Ответов: 2

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 119845: Здравствуйте, что бы легче было воспринимать информацию, предоставляю ее в .xls формате: http://ifolder.ru/5070916 Задание: обновить данные с одного листа данными другого, по определенному критерию. Внутри файла все описано....

Вопрос № 119.845
Здравствуйте, что бы легче было воспринимать информацию, предоставляю ее в .xls формате:
http://ifolder.ru/5070916

Задание: обновить данные с одного листа данными другого, по определенному критерию. Внутри файла все описано.
Отправлен: 23.01.2008, 15:50
Вопрос задал: Irkutskiy Konstantin (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Черников Игорь Владимирович
Здравствуйте, Irkutskiy Konstantin!
Вот Ваша программа. Всегда рад помочь!
Но меня грызут сомнения, что я правильно её написал, потому что на первом листе 12 строк данных, а на втором листе 15 строк. И ещё наверно нужно было добавить в программу выбор по названию в столбцах Тикер на обоих листах, т.к. они идут не по порядку, но в задании Вы этого не упоминули. В прочем если это будет необходимо, то пишите, переделаю.

For i = 6 To 17
If (Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 15).Font.ColorIndex = 3 Or _
Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 14).Font.ColorIndex = 3) And _
Workbooks("Обновление.xls").Worksheets("securities-PFTS").Cells(i - 3, 13).Value = "+" Then
Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 15).Value = _
Workbooks("Обновление.xls").Worksheets("securities-PFTS").Cells(i - 3, 15).Value
Workbooks("Обновление.xls").Worksheets("Shares").Cells(i, 14).Value = _
Workbooks("Обновление.xls").Worksheets("All").Cells(3, 7).Value
End If
Next i
---------
От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 23.01.2008, 20:00

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Irkutskiy Konstantin!
http://ifolder.ru/3765138 - надстройка Excel "Данные из другой таблицы"
Код доступен для изучения.
Евгений
Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 23.01.2008, 23:41


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное