 |
|
Модераторы: mihanik |
 
|
|
Запись на другом листе 
| Izuver |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 352 Регистрация: 13.6.2006 Где: Омск Репутация: 2 Всего: 2 |
Как сделать запись на другом листе используя "Cells". Так не выходит:
a = Worksheets("Лист2").Range(Cells(9, 27)) a = Sheets("Лист2").Range(VBA.Chr(96 +27) & "9") Выходит только так: Sheets("Лист2").Select a = Range(Cells(9, 6)) Sheets("Лист1").Select |
|||
|
||||
Загрузка ...
| Genyaa |
|
|||
|
Усердный Профиль Группа: Участник Сообщений: 154 Регистрация: 25.9.2006 Где: Москва Репутация: 2 Всего: 11 |
Если Лист2 существует, то:
a = WorkSheets("Лист2").Cells(9,27).Value - присвоит переменной a значение из ячейки в строке 9, колонки 27 (активной в данный момент книги) то же самое можно сделать так: a = WorkSheets("Лист2").Cells("AA9").Value , или a = WorkSheets("Лист2").Range("AA9").Value , если удобней обращаться по адресу, а не по индексу. Чтобы записать в ячейку значение переменной: WorkSheets("Лист2").Cells(9,27).Value = a --------------------
Всякое решение плодит новые проблемы. |
|||
|
||||
| mihanik |
|
||||
 -=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 9 Всего: 109 |
Попробуй так
А по поводу
Не понял, что ты этим хотел сказать? -------------------- Программистами не рождаются, - это родовая травма...   |
||||
|
|||||
| Izuver |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 352 Регистрация: 13.6.2006 Где: Омск Репутация: 2 Всего: 2 |
Не чего понять не могу, только что не работал, переписал то же самое - заработало?
|
|||
|
||||
| mihanik |
|
|||
|
-=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 9 Всего: 109 |
Izuver, очепятка? :-)
Бывает.... Помечу решённым. -------------------- Программистами не рождаются, - это родовая травма... |
|||
|
||||
| Izuver |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 352 Регистрация: 13.6.2006 Где: Омск Репутация: 2 Всего: 2 |
Дык вот, сея проблема лежит тут, энто WorkSheets("Лист2").Cells(9,27).Value = "f" можно сделать, но как выполнить на несколько взятых ячеек, т.е. при листе "Лист2" Range(Cells(9,27), Cells(9,33)).Value = "f"
|
|||
|
||||
| Genyaa |
|
||||||
|
Усердный Профиль Группа: Участник Сообщений: 154 Регистрация: 25.9.2006 Где: Москва Репутация: 2 Всего: 11 |
Два варианта:
или
--------------------
Всякое решение плодит новые проблемы. |
||||||
|
|||||||
| Izuver |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 352 Регистрация: 13.6.2006 Где: Омск Репутация: 2 Всего: 2 |
А ну так и говори, что каждому Cell'у прописать свой Worksheets
|
|||
|
||||
|
|
| Правила форума "Программирование, связанное с MS Office" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
[ Время генерации скрипта: 0.0483 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |