|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.11.2009, 23:30 | #1 |
Регистрация: 19.11.2009
Сообщений: 5
|
работа с диапазонами-столбцами
Помогите, пожалуйста, решить задачку:
В книге есть два диапазона, "DataR" и "NomerMes", являющиеся столбцами. Нужно во второй диапазон поместить номер месяца в году даты из первого диапазона. Как вообще работать с диапазонами, являющимися столбцами? подход "в лоб" просто перегружает машину Заранее благодарен |
27.11.2009, 00:18 | #2 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
А где находится этот номер месяца? Если фикс. ячейка, то это просто. А так можно сделать перебор ячеек, если неизвестно, где она. Работу с диапазонами можно сделать эффективнее, в зависимости от задачи.
|
27.11.2009, 01:30 | #3 |
Регистрация: 19.11.2009
Сообщений: 5
|
В первом диапазоне-столбце (за исключением первой ячейки) стоят даты
во втором - надо поставить номера месяцев (ну или вообще какую-нить функцию от соответствующих ячеек первого диапазона) |
27.11.2009, 01:38 | #4 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Если соотв-е ячейки находятся на одной строке, то можно сделать просто какую-нибудь формулу из Текстовых и т.п. А дальше протянуть вниз. В чем конкретно проблема? Может, пример файла дадите?
|
27.11.2009, 02:41 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
если в А2 у вас дата, то в В2 пишете: =МЕСЯЦ(A2), тянете формулу вниз по столбцу.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
27.11.2009, 03:18 | #6 |
Регистрация: 19.11.2009
Сообщений: 5
|
ОК, протягиваю формулу. До каких пор? я не знаю, сколько строк с датами в первом диапазоне будет.
Кроме того, пользователи любят удалять ненужные строчки, а при этом протянутая формула портится - неверная ссылка (см. пример) Вотя и хочу сделать макрос, который бы делал это. |
27.11.2009, 20:05 | #7 |
Регистрация: 19.11.2009
Сообщений: 5
|
разобрался сам кажись
Sub proba() Set r1 = Range("DataR") Set r2 = Range("NomerMes") r2.Clear For i = 2 To r1.Cells.End(xlDown) r2.Cells(i, 1).Value = Month(r1.Cells(i, 1).Value) Next i End Sub |
27.11.2009, 20:37 | #8 |
Регистрация: 19.11.2009
Сообщений: 5
|
Вернее, так:
Set r1 = Range("DataR") Set r2 = Range("NomerMes") K = r1.Cells.End(xlDown).Row r2.Clear For i = 2 To K r2.Cells(i, 1).Value = Month(r1.Cells(i, 1).Value) Next i |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача. Работа с псевдослучайными последовательностями (ПСП). Работа с цветом. | 0101 | Помощь студентам | 3 | 17.12.2009 23:57 |
Работа с webbrowser - Фреймы, работа с конкретным феймом в фрейме | NewDelphi | Фриланс | 2 | 08.10.2009 11:00 |
менять местами между столбцами и строками | Aqil_f | Microsoft Office Excel | 6 | 23.05.2009 10:22 |
Копирование текста столбцами | CoDeR | Общие вопросы Delphi | 5 | 31.07.2008 19:07 |