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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.01.2008, 10:21   #1
ATTA
Пользователь
 
Регистрация: 27.01.2008
Сообщений: 18
По умолчанию «резиновые таблицы»

Вчера получил отличное решение по «автоматическая вставка результата поиска в прайсе в файл расчета» И еще набираюсь наглости – а можно ли сделать "резиновые таблицы" в файле "Шаблон для КП"?
Сейчас шаблон построен на максимальном количестве строк (по опыту предыдущих запросов). После заполнения лишние строки удаляются вручную оператором в трех листах. К сожалению, иногда случаются ошибки и удаляются не те строки.
Хочется следующую процедуру:
- изначально в листах "для КП", "КП" и "расчет цены" таблицы, в которые подставляются значения, состоят из одной строки. Первичное заполнение файла идет в листе "для КП":
запрос дилера в виде 2-х заполненных столбцов "Клиентский запрос" и "кол-во" (каждый раз в разном объеме) вставляется в таблицу, затем оператор заполняет по строчно остальные столбцы.
В это же время автоматически расширяются таблицы «КП» и «расчет цены (верхняя таблица)».
После заполнения последней строки в таблице «для КП» хотелось бы появления "запроса" на продолжение таблицы и если требуется, оператор вводит новую стоку.
ATTA вне форума
Старый 30.01.2008, 10:59   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Как совместить
Цитата:
изначально в листах "для КП", "КП" и "расчет цены" таблицы, в которые подставляются значения, состоят из одной строки
и
Цитата:
запрос дилера в виде 2-х заполненных столбцов "Клиентский запрос" и "кол-во" (каждый раз в разном объеме) вставляется в таблицу
А может лучше сделать так:
Пусть на листе "для КП" видна вся таблица (по-моему, так удобнее заполнять). Затем, после заполнения таблицы и запуска вышеупомянутого макроса, формируются таблицы "КП" и "расчет цены" со скрытыми неиспользованными строками. Таблица "для КП" видна вся (ведь Вы предполагаете ее дописывать или еще как-то изменять в дальнейшем).
Для этого потребуется дописать пару строк в существующий код.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 30.01.2008, 12:00   #3
ATTA
Пользователь
 
Регистрация: 27.01.2008
Сообщений: 18
По умолчанию

да, так можно,

только боюсь, что со временем может быть количество позиций в запросе превысит установленное сегодня количество и потом не смогу корректно расширить всю связку
ATTA вне форума
Старый 30.01.2008, 13:17   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

А Вы не бойтесь. Если количество строк таблицы увеличится - понадобится изменить всего два числа (смотри комментарии в коде проекта VBA).
Вложения
Тип файла: rar Atta_6.rar (61.9 Кб, 43 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 30.01.2008, 13:57   #5
ATTA
Пользователь
 
Регистрация: 27.01.2008
Сообщений: 18
По умолчанию

все хорошо,

но можно ли оставить нижнюю таблицу в листе "расчет цены", иначе приходится в ручную открывать строки 375-393

====
К сожалению, в исходных файлах у меня есть ошибки.
- неправильная ссылка в ячейках G...(должна быть =ЕСЛИ(F6=0;" ";(F6*(1+$F$389%)))
- неправильная формула в ячейках М...(должна быть =L6*(1-K6))

Как мне снять галку "для чтения", исправить формулу, а потом опять включить?
ATTA вне форума
Старый 30.01.2008, 14:14   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Не открывая файл, кликнуть на него правой кнопкой мыши и в появившемся окне снять (а после исправлений и сохранения поставить) галочку "Только чтение".
Сделайте Ваши исправления, затем войти в VBE и в коде макроса "Main" строку "Range(Rows(1), Rows(374)).EntireRow.Hidden = False" исправить на "Cells.EntireRow.Hidden = False". (это для того, чтобы не скрывалась "нижняя" таблица).
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 30.01.2008, 14:35   #7
ATTA
Пользователь
 
Регистрация: 27.01.2008
Сообщений: 18
Хорошо

очередное спасибо

все отлично!
ATTA вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
печать таблицы! frodo Общие вопросы Delphi 4 10.04.2008 19:52
Выборка из таблицы ivp88 БД в Delphi 5 12.01.2008 14:36
2 таблицы Tarnym БД в Delphi 6 02.12.2007 12:47