Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2010, 13:08   #1
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию вырезать - вставить с условием отбора

В таблице может быть от 2 до 32 двух строк.
Если 2 строки, то вырезаем таблицу
и вствавляем в пустую таблицу на лист 2,
если 3 - на лист 3,
если 4 - на лист 4,
если 5 - на лист 5,
если от 6 до 8 - на лист 6,
если от 9 до 16 - на лист 7,
если от 17 до 32 - на лист 8.

Да, еще - таблица на первом листе будет начинаться с ячейки C5

Помогите спортсмену !
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 31.01.2010, 13:50   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

А таблицу мы должны нарисовать самостоятельно?
Или Вы всё же прикрепите к сообщению пример файла?
EducatedFool вне форума Ответить с цитированием
Старый 31.01.2010, 14:12   #3
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию Прошу извинить

Прошу извинить чайника.
Прилагаю примерный файл...
Вложения
Тип файла: rar Учасники.rar (2.5 Кб, 21 просмотров)
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 31.01.2010, 14:21   #4
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию

Поспешил - конечно же "УЧАСТНИК"
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 31.01.2010, 15:25   #5
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию

1. Я попробовал извлекать количество заполненных строк с помощью функции countif (см. прикрепленный файл), но не знаю как дальше использовать эту информацию

2. Еще чегото наваял -
iRow = ????????????????????

n = iRow - 4

If n = 2 Then ????????????????????
If n = 3 Then ????????????????????
If n = 4 Then ????????????????????
If n = 5 Then ????????????????????
If n > 5 And n <= 8 Then ????????????????????
If n > 8 And n <= 16 Then ????????????????????
If n > 16 And n <= 32 Then ????????????????????

Но не врубаюсь, что прописывать вместо ??????
Вложения
Тип файла: rar Участники2.rar (6.5 Кб, 16 просмотров)
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 31.01.2010, 17:12   #6
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте kapitel_bc@ukr.net.
нельзя ли узнать назначение подобной конструкции, или это учебное задание?
Евгений.

P.S. форум не "машина ответов", его участники люди, и выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.
Вложения
Тип файла: rar Учасники3.rar (11.7 Кб, 13 просмотров)
Teslenko_EA вне форума Ответить с цитированием
Старый 31.01.2010, 17:42   #7
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию

Уважаемый Teslenko_EA
Огромное спасибо за решение моей проблемы.
Ваша разработка будет включена в турнирную таблицу соревнований по дзюдо.
Я даже переиминую CommandButton1_Click в Teslenko_EAButton
P.S. Я по глупости при регистрации вместо ника прописал E:mail. Если это возможно - сбросьте мне свое мыло - при реализации проекта могут возникнуть вопросы (я табличку для примера сбацал впопыхах, а к "товарному" виду еще не подошел - занимался в access первой частью).
Обещаю не докучать!!!
Еще раз спасибо!
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 02.02.2010, 00:50   #8
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию

Евгений, ошибка возникает при 5 и 6 учасниках, макрос их отправляет на лист для двух, о чем и сообщает.

Уважаемый Евгений, ночью придумал очень простой алгоритм решения всей своей задачи – без промежуточных копирований-вставок. Если Вы согласитесь прописать макрос, очень много тренеров дзюдо будут Вам благодарны.
Протоколы взвешивания это Excel-книга с одним листом (у меня так и получилось), к каждому из них нужно прикрепить копию бланка Протокола хода соревнований, так же книга-лист, но так, что бы оригинал Протокола остался неизмененным.
Файлы Протоколов хода сор-ий:
2 uch, 3 uch, 4 uch, 5 uch, 8 uch, 16 uch, 32 uch. (прикрепляю - 8 uch)
Вложения
Тип файла: rar 8 uch.rar (4.2 Кб, 12 просмотров)
Тип файла: rar 1.rar (4.6 Кб, 12 просмотров)

Последний раз редактировалось kapitel_bc@ukr.net; 02.02.2010 в 10:34. Причина: Новая придумка
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 02.02.2010, 01:08   #9
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию

Жду Вашей помощи!

Последний раз редактировалось kapitel_bc@ukr.net; 02.02.2010 в 10:37.
kapitel_bc@ukr.net вне форума Ответить с цитированием
Старый 03.02.2010, 09:20   #10
kapitel_bc@ukr.net
Пользователь
 
Регистрация: 31.01.2010
Сообщений: 49
По умолчанию

Здравствуйте, Евгений. Оказывается в макросе опечатка, а я даже не просматривая кода, сразу начал жаловаться на баг. Исправил, все работает. Но нужно немного переделать...
kapitel_bc@ukr.net вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос с условием отбора [Введите фамилию] spets Microsoft Office Access 9 21.01.2014 02:02
Ссылка на переменную в условии отбора запроса bag Microsoft Office Access 1 06.09.2009 20:37
Условие отбора Vladya Microsoft Office Access 11 13.05.2009 16:09
Условия для отбора в запрос из данных в форме smoky Microsoft Office Access 2 22.09.2008 16:10