Сводная ведомость - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сводная ведомость

Сводная ведомость

AlexM

Дата: Суббота, 05.01.2013, 20:04 | Сообщение № 21

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4512

Репутация: 1128 ±

Замечаний: 0% ±

Excel 2003

Цитата (dmisviridov)

ВЫДЕЛИЛ, потом CTRL+C перешёл в свой файл и нажал CTRL+V

Вместо и, которое между словами файл и нажал надо вставить , создал модуль "Module1" и

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

dmisviridov

Дата: Суббота, 05.01.2013, 20:16 | Сообщение № 22

Группа: Пользователи

Ранг: Участник

Сообщений: 59

Репутация: 0 ±

Замечаний: 20% ±

Цитата (Serge_007)

Тогда в чём проблема?

Сергей, проблема решена. Я, кажется, понял в чём проблема. Только в оригинале таблица, которую я вам показал, заканчивается на семнадцатой строке, а потом под ней другая таблица. Скажите как ограничить макрос, чтобы он просматривал не весь столбец В, а только до семнадцатой строки. Вот как выглядит оригинал моей таблицы

К сообщению приложен файл: 2718253.xls (26.0 Kb)

Сообщение отредактировал dmisviridov - Суббота, 05.01.2013, 20:16

Ответить

AlexM

Дата: Суббота, 05.01.2013, 20:45 | Сообщение № 23

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4512

Репутация: 1128 ±

Замечаний: 0% ±

Excel 2003

Можно заменить строку
[vba]

Код

For j = 7 To Sheets(i).Cells(Rows.Count, 2).End(xlUp).Row

[/vba]
на строку
[vba]

Код

For j = 7 To IIf(Sheets(i).Cells(Rows.Count, 2).End(xlUp).Row > 17, 17, Sheets(i).Cells(Rows.Count, 2).End(xlUp).Row)

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Hugo

Дата: Суббота, 05.01.2013, 21:41 | Сообщение № 24

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Чтоб скопировать код из одного файла в другой - обычно достаточно перетянуть мышью весь модуль целиком из проекта одного файла в проект другого.

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

dmisviridov

Дата: Понедельник, 07.01.2013, 03:44 | Сообщение № 25

Группа: Пользователи

Ранг: Участник

Сообщений: 59

Репутация: 0 ±

Замечаний: 20% ±

Цитата (Serge_007)

Тогда они будут трехэтажными

Я сейчас попытался это описать формулами Excel и оказалось, что для описания только одного лист необходимо 2,5 строки, а таких листов 31. Таким образом получается необходимо 77,5 строк biggrin

Сообщение отредактировал dmisviridov - Понедельник, 07.01.2013, 03:44

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сводная ведомость

Страница 2 из 2
«
1
2