Visual Basic или макрос в Excel

[Tigrenakat]

Смотри...например, у меня 4 докум форм.А4 а потом 8 докум. форм.А2. Я могу выделить этот диапозон и указать, что в одном кадре по 4 докум. т.е. объединяю документы по большему формату. или , что часто бывает, все А4 пишу по 8 докум. в кадре, потом есть не стандартные форматы...На самом деле ...много ньюансов..но самое главное, чтобы я сама регулировала по сколько доументов класть в кадр.

Может легче создать несколько макросов, по одному принципу, только на разное число деления т.е. (1,2.4.8.16) ???
Это так...предположение....

А, можно сделать так, что после того, как он просчитает сумму ячеек выпадало такое же окно с запросом, как "с какого кадра начать", но только "на какое число делить"?
Было бы очень здорово....

[Alex Dark]

Сообщение от Tigrenakat

у меня 4 докум форм.А4 а потом 8 докум. форм.А2. Я могу выделить этот диапозон и указать, что в одном кадре по 4 докум. т.е. объединяю документы по большему формату. или , что часто бывает, все А4 пишу по 8 докум. в кадре, потом есть не стандартные форматы

Я добавил галочку оптимизация, но не проверил включается она или нет. Поэтому возможно что просто не работает.


Все просто. Если оптимизация есть, то карты раскладываются по размеру с максимальной загрузкой листа. Если нет, то раскладываются в порядке "поступления", т.е. как идут в таблице.
Пример1: с оптимизацией. Сначала выбираются самые большие карты (например А3), потом (на заполненном не до конца листе) заполняются следующим форматом (А4) в порядке понижения.
Пример2: без оптимизации. перебираем все по списку и раскладываем как получится. В результате большое количество "полу-пустых" листов.

В обработку попадает только то что выделено. Не обязательно выделять блоком. Достаточно выделить пару ячеек. При этом ячейки могут идти в "разнобой", т.е. выделяешь ячейки О11,М25,С3,А8. В обработку попадут соответственно строки 3,8,11,25

Если бы у тебя был признак "группы" то можно было бы проводить оптимизацию внутри группы. Но я так думаю, что это лишняя нахлобуча. Группировать можно и вручную.

[Alex Dark]

ну вот типа так.

[Tigrenakat]

Смотри в чем ошибка....Макрос считает А3 и А4 как по 16 в кадр. но это не верно. Я не могу положить так документы.На 1-ом листе я посчитала как должно быть, а потом как считает макрос. Посмотри....
Я скину ведомость, посмотри лист 3. Там я попыталась изобразить , как помещаются документы в поле кадра. Если начать выкладывать документы как предложил макрос, то не хватит места для них. Если макрос сравнивает по большему формату, значит он и должен делить на то значение. которое соотвесвует этому формату. Посмотри пожалуйста....ВЕДОМОСТЬ 4+.rar

[Alex Dark]

Я конечно посмотрю, но было бы лучше если бы ты сказала в какой строке (строках) ошибка.



PS Наличие ошибки не исключаю.

[Alex Dark]

Судя по всему это здесь

если исходные данные таковы:
1. 4(А4)
2. 4(А3)
3. 2(А4) и 4(А3)
при раскладке с оптимизацией получаем
1. 2/1 - 2/4
2. 1/1 - 1/4
3. 1/5 - 1/8; 2/5 - 2/6
А вот без оптимизации дает сбой
1. 1/1 - 1/4
2. 1/5 - 1/8
3. 1/9 - 1/10; 1/14

[Tigrenakat]

Ты прав...именно там сбой...
Ты знаешь...у меня все не выходит из головы мысль по поводу всплывающего окна с запросом...Надеюсь ты понимаешь, о чем я...(когда нужно вводить значение на которое делить)...Ведь хорошо когда форматы стандартные...А что делать если он не стандартные, как будет тогда макрос работать??
Например
А4 *1,5
А2 *2,5
А3 *4,5 и т.д.
Можешь что нибудь предложить...в такой ситуации???
Заранее тебе спасибо.... Огромное...

[Alex Dark]

Сообщение от Tigrenakat

А что делать если он не стандартные, как будет тогда макрос работать??

Как нибудь да посчитает. Результат непредсказуем.
Попробуй. Увидишь.

математика (кстати о птичках) там простая А0 - это 1;
А1 - 0,5 (1/2); А2 - 0,25 (1/2/2) и т.д.

PS. Проверь. Что то мне подсказывает, что есть ошибочка в алгоритме.

[Tigrenakat]

Спасибо тебе огромное!!!! Завтра выйду на работу, посмотрю повнимательнее.
Можешь ответить по поводу всплывающего окна для указания делителя,....Это вообще реально? А то я все пытаю тебя, а ты оставляешь мои вопросы без ответа.....
Просто, мне кажется, с таким вариантом макроса (с еще одним всплывающим окном) было бы реально просчитывать как раз не стандартные форматы.
Например А4*4 у нас может быть как А2 и как прибл. А1 и следовательно выделив диапозон и указав делитель , ошибок при расчете будет меньше.....
Прости за такую дотошность....Я понимаю, что ты итак провел огромню работу....
СПАСИБО!!!

[Alex Dark]

Сообщение от Tigrenakat

А то я все пытаю тебя, а ты оставляешь мои вопросы без ответа.....

Ну... не совсем так. Для начала все же надо довести алгоритм придуманый мною до нормального работоспособного состояния, а уж потом пытаться подогнать его под возможные "не стандартные" варианты решения.

Сообщение от Tigrenakat

Можешь ответить по поводу всплывающего окна для указания делителя,

Вот с делителем мне чесно говоря совсем не понятно.
Возьми конкретный пример, и распиши как ты его себе видишь. И не только словами, но и с рисункоми. И желательно от начала и до конца.
(Возможно что в указании делителя нет необходимости вообще, так часто бывает, потому что пользователь не всегда знает как работает алгоритм)

Сообщение от Tigrenakat

Например А4*4 у нас может быть как А2 и как прибл. А1 и следовательно выделив диапозон и указав делитель , ошибок при расчете будет меньше.....

А4*4 это А2. А что значит "и как прибл. А1"
можно конечно А4 раскидать так, что это будет А1 с пустотами и даже А0. Но это не оптимально. И зачем???

[Tigrenakat]

Я сегодня посмотрела 2-ой лист Ведомости5,там где таблички... Раскладка не правильная.... У меня машина, которая пишет микрофильмы, хоть и немецкая, но не такая умная как твой макрос... Если она делит на 2 части кадр, значит там может поместиться только 2 документа.
По умолчанию 1 кадр - Ао
Если мы делим на 2 части, значит может поместиться 2 документа максимального размера А1, но так же могут быть размеры меньше А1, но только два. Хоть 1 А4 и 1 А2,

Машина их сама оптимизирует на размер ячейки, но больше 2-х я положить не могу.
Тут как раз и ошибка в макросе....

[Alex Dark]

НУ вот теперь то кажется я понял в чем суть проблемы.
Завтра будет день. Завтра будем думать

[Alex Dark]

Tigrenakat, Если я правильно понял и память мне не изменяет, твоя машинка поступает следующим образом
Если ей дают 1 чертеж, она просто его заливает в кадр формата А0.
Если ей дают несколько чертежей, она берет количество чертежей кратное двум и закатывает его в кадр.
Вот тут возникает вопрос.
Если ей мы даем два А1 - все просто.
один А1 и один А2(3,4) - тоже все просто, один кадр два чертежа.

А если у тебя три чертежа А1,А2,А3
Она понимает, что А0 делим пополам, на первую половину пишем А1.
Вторую половину так же делим пополам и получаем один А2 и один А3?
(и соответственно далее в сторону понижения)

Если у тебя три чертежа: один А1, и два А2
Она понимает, что это все помещается на 1 кадр?
(или ей надо 2 кадра)

Как она воспримет один A1 и восемь А4 (четыре А3, два А2)

[Tigrenakat]

Вот по этому я просила второе всплывающее окно , где я бы сама принимала решение как их располагать... Я могу все 3 записать как А0, могу два как А1 и один как Ао...
Выделяла бы этот диапозон...макрос просчитывал сумму, всплывало окно....туда я бы вводила значение на которое необходимо разделить......ок....далее всплывало другое окно (или можно вс объединить, по возможности) где указывала с какого кадра начать.....он бы считал уже на основании моих значений...
Тут главное мне самой формировать фильм и расположение...ему главное потом просчитать ...

[Tigrenakat]

Prt Scr.rar
Первое изображение если я ничего не удаляю..
Второе ....после удаления строки...

[Alex Dark]

Я сталкивался с такой ерундой. Только очень давно, и не помню что делать надо. Решалось очень просто.

Посмотри в VB tools, references.
У тебя должны быть включены опции:
VB for applications
mExcel 11.0 object library
mOffice 11.0 object library
OLE Automation

Я не знаю как у тебя, но вообще-то они должны быть все в начале


Если это не поможет, самое тупое решение этой

Function Chr( par )
Chr=" "
End Function

но это решение не верное. Следом пойдут новые ошибки