|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.01.2010, 13:08 | #1 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
вырезать - вставить с условием отбора
В таблице может быть от 2 до 32 двух строк.
Если 2 строки, то вырезаем таблицу и вствавляем в пустую таблицу на лист 2, если 3 - на лист 3, если 4 - на лист 4, если 5 - на лист 5, если от 6 до 8 - на лист 6, если от 9 до 16 - на лист 7, если от 17 до 32 - на лист 8. Да, еще - таблица на первом листе будет начинаться с ячейки C5 Помогите спортсмену ! |
31.01.2010, 13:50 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
А таблицу мы должны нарисовать самостоятельно?
Или Вы всё же прикрепите к сообщению пример файла? |
31.01.2010, 14:12 | #3 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Прошу извинить
Прошу извинить чайника.
Прилагаю примерный файл... |
31.01.2010, 14:21 | #4 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Поспешил - конечно же "УЧАСТНИК"
|
31.01.2010, 15:25 | #5 |
Пользователь
Регистрация: 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 ???????????????????? Но не врубаюсь, что прописывать вместо ?????? |
31.01.2010, 17:12 | #6 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Здравствуйте kapitel_bc@ukr.net.
нельзя ли узнать назначение подобной конструкции, или это учебное задание? Евгений. P.S. форум не "машина ответов", его участники люди, и выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись. |
31.01.2010, 17:42 | #7 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Уважаемый Teslenko_EA
Огромное спасибо за решение моей проблемы. Ваша разработка будет включена в турнирную таблицу соревнований по дзюдо. Я даже переиминую CommandButton1_Click в Teslenko_EAButton P.S. Я по глупости при регистрации вместо ника прописал E:mail. Если это возможно - сбросьте мне свое мыло - при реализации проекта могут возникнуть вопросы (я табличку для примера сбацал впопыхах, а к "товарному" виду еще не подошел - занимался в access первой частью). Обещаю не докучать!!! Еще раз спасибо! |
02.02.2010, 00:50 | #8 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Евгений, ошибка возникает при 5 и 6 учасниках, макрос их отправляет на лист для двух, о чем и сообщает.
Уважаемый Евгений, ночью придумал очень простой алгоритм решения всей своей задачи – без промежуточных копирований-вставок. Если Вы согласитесь прописать макрос, очень много тренеров дзюдо будут Вам благодарны. Протоколы взвешивания это Excel-книга с одним листом (у меня так и получилось), к каждому из них нужно прикрепить копию бланка Протокола хода соревнований, так же книга-лист, но так, что бы оригинал Протокола остался неизмененным. Файлы Протоколов хода сор-ий: 2 uch, 3 uch, 4 uch, 5 uch, 8 uch, 16 uch, 32 uch. (прикрепляю - 8 uch) Последний раз редактировалось kapitel_bc@ukr.net; 02.02.2010 в 10:34. Причина: Новая придумка |
02.02.2010, 01:08 | #9 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Жду Вашей помощи!
Последний раз редактировалось kapitel_bc@ukr.net; 02.02.2010 в 10:37. |
03.02.2010, 09:20 | #10 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Здравствуйте, Евгений. Оказывается в макросе опечатка, а я даже не просматривая кода, сразу начал жаловаться на баг. Исправил, все работает. Но нужно немного переделать...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запрос с условием отбора [Введите фамилию] | 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 |