Вопрос по той же теме (закрыта):  
<EM>http://www.planetaexcel.ru/forum.php?thread_id=42023</EM>  
Программировал прайс с обязательным заполнением полей.    
Положился на условное форматирование.  
В 2003 EXCEL  их три.  
Возможно ли запрограммировать передвижение по ячейкам, так чтобы были заполнены обязательно поля в шапке.  
Дорожка такая - C4-C5-E5-C7-E7-C8-E8-C9-E9-C10  
После чего снимается условное форматирование, с нижней области  
и курсор на С13.  
получилось запрограммировать только 3 шага C4-C5-E5  
если туда поставить по единичке, то откроется область  
А11-Е21  
P.S. не успел поблагодарить HUGO в первом посте.  
Большое спасибо за помощь.  
Все получилось как задумывалось.

Добрый день всем.  
Облегчил работу пожилым товароведам, скачав в интенете форму торг-29.  
Настроил авторасчет, все хорошо.  
 
Только они иногда залетают куда-то вниз на строки трехсотые. И поднимают панику, что все пропало. Как возможно ограничить движение по листу?  
 
Недавно нашел другую форму торг-29, там применена область печати и серая заливка.  
Подскажите, как это можно организовать?  
 
Форма двухсторонняя - можно ли написать макрос на печать страниц по отдельности,с сообщением о необходимости перевернуть лист.  
 
Прилагаю форму торг-29, Лист1 - это на этом образце реализован сейчас отчет, и лист Товарный отчет - с заливками и областями печати.

Добрый день, планетяне.  
Столкнулся с проблемой дизайна.  
Выводится через шаблон таблица. Столбец E с основанием платежа  
на экране вмещает 20 знаков и смотрится хорошо.  
Но при печати, не уместившиеся символы, проявляются точками над нижнем границей ячейки.  
Что то наподобие ряби.  
Как оставить только 20 знаков, в значимых ячейках столбца E?  
Понимаю, что макрос надо привязать на событие ПЕЧАТЬ.  
А как написать не хватает знаний.

Решил модернизировать пустографку торг 29, но в строке 94  
выводится формула, хотя в окне аргументы функции показывает значение 13

Имеется книга табелей и книга расчетных таблиц.    
Сейчас Макрос( молодчина Hugo помог - хвала его таланту) расположен на первом листе расчетной таблицы.  
Используя значение активного окна и ThisWorkbook – книги с макросом  мы не привязываемся к имени таблицы с табелем. Где пользователь откроет табель, над ним и пройдет работа и запишет в расчетную таблицу. Но если  их много, то возможно ли отказаться от размножения макроса на всех листах расчетной книги?  
Например Работать так    
Пользователь открывает книгу с макросом (или если он расположенной в personal.xls, эксель  сам его держит в памяти).  
Открывается 2 - книга с расчетными таблицами, открывается 3 книга с табелями. Запускается макрос и он из открытого табеля переносит в открытый расчет.  
Прилагаю книгу с 2 листами расч таблицы и 2 табелями.  
Из 2 –ой расч таблицы удалил управляющие элементы.  
 
Если это не возможно, то как макросом  заменить во всех листах период расчета занесенный в Textbox 2012.03 на нужное?

Добрый день всем.  
Проблема.  
Табельный номер занесен как цифра, и по этому  без идущих впереди нулей.  
Необходимо во всех листах книги, изменить формат столбца С на текстовый,  
Дополнить номера до 6 знаков впереди нулями.  
Т е. Если 1 то 000001, 11 – 000011 и до 55555 – 055555  
Макрорекодером написал макрос,  по изменению формата столбца.  
Columns("C:C").Select  
   Selection.NumberFormat = "@"  
А условие описать не могу.  
Возможно наличие таблиц расположенных ниже, поэтому диапазон изменений предлагаю до 1500 строк.  
помогите макросом на обработку

Здравствуйте.  
Попробовал создать файл на аванс из расчетной таблицы.  
Шапку описал, а заполнение строк не осилил.  
Прикрепил 3 файла  
uborka.xls - расчетная таблица с макросом.  
Хочется также после нажатия кнопки "Перенос аванс"  
транспарант с датой расчета Например 2012.03,  
который передаст в итоговый файл.  
avans_gotovo - как должно получится  
и avans - что пока получилось

Продолжаю обрабатывать выписку онлайн.  
Спасибо Hugo за помощь.  
Задача.  
Необходимо заменить повторяющиеся значения на пустоту или сокращения.  
На форуме нашел решение.  
 
Dim iStrokaZameny As String  
Dim r As Range, ilen As Long, iPos As Long  
iStrokaZameny = ""  
For Each r In [D1:D300]
ilen = Len® - Len(Replace(r, "ТК", ""))  
If ilen <> 0 Then  
r.Value = Replace(r, "ТК", iStrokaZameny)  
iPos = 1  
For i = 1 To ilen / Len("ТК")  
iPos = InStr(iPos, r.Value, iStrokaZameny) + Len(iStrokaZameny)  
Next i  
End If  
Next r  
 
Получается строка вида  
16/03/2012 ж 1 по нкл 93-2  " "  
 
Вопрос.    
1. Можно ли организовать замену на основе массива замен?  
Например ТК, ЗАО, КАЛИНКА, Калинка и т.д менять на пустоту.  
2. Можно ли неявно задавать параметр кол-во строк проверки.  
А то у меня [D1:D300], чтоб проверял только строки с данными.
3. Отладчик ругается на двойные кавычки. Пришлось их оставить.  
Как это побороть?

Добрый день всем.  
Разработал макрос на обработку выписки банка.  
Задача.  
Удалить шапку документа и итоги внизу.  
Затем убрать строки в желтой заливке.    
Убрать лишние столбцы и отформатировать текст.  
Все работает.  
 
Требуется оптимизация кода.  
1. Определил конец таблицы. Но не смог выделить диапазон на удаление итогов,  
Решил это перебором.  
' Спускаемся на эту строку, выделяем ее и удаляем 4 нижние строки  
Rows(iCell.Row + 1).Select  
    Selection.Delete Shift:=xlUp  
    Rows(iCell.Row + 1).Select  
    Selection.Delete Shift:=xlUp  
 
2. Определил нижнюю границу столбца F, но не смог выделить весь диапазон  
В разделе Копилка идей • 300 макросов для начинающих и не только  
http://www.planetaexcel.ru/forum.php?thread_id=8866    
Нашел пример выделение столбца, а мне нужно строк вверх.  
Поэтому организовал цикл.  
3. Макрорекордером  задал обрамление всей книги со всех сторон, он написал  
31 строку кода. Что не есть, наверное, гуд!  
 
Прошу подсказки по улучшению.  
 
Хотя можно решить и кардинально!  
Например, оставить строки только с данными столбца G – остальное удалить. (синяя заливка – но возможно ее может и не быть в других вариантах).  
 
Как оптимально задать обрамление ячеек и только таблицы с данными.  
 
Область печати, как ее задать в макросе. Чтобы умещались все итоговые столбцы.  
Попробовал записать макрорекодером. Но при отработке он остановился, пришлось закоментить.  
 
' ActiveWindow.SelectedSheets.PrintPreview  
'   ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1  
'   ActiveWindow.View = xlNormalView  
 
Образец выписки с макросом прилагается,  
А также идеальный лист с  областью печати.

Добрый день всем.  
Для выгрузки из учетной системы применяется выгрузка по шаблону MS EXCEL.  
Настроил шаблон (прилагается).    
Сложность в суммировании столбца D.  
Начинается с D4, а нижняя граница плавающая.  
Из программы он передает уже рассчитанное значение.  
В строке суммирования выражение =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;D4:D11)(Образец_реестра_было -прилагается)    
В шаблоне указал =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;D4:D4)  
Выводит из программы на основе моего шаблона =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;D11:D11)(Образец_реестра_стало -прилагается)  
То есть затирает, как и первый параметр, так и второй.  
Посоветуйте пожалуйста, как решить задачу.

Здравствуйте!  
Разрабатываю макрос разбора  txt-файла, преобразовал его в  xls. Следующий шаг – разбиение его на три части.  
Это достигается выделением с первой строки вниз до начала английского заголовка MlabelGrup;MlabelNnum;MlabelName;MlabelEd;MlabelSort;;;  
Вопрос: как написать в макросе это выполнение, т.е. выделить с первой строки до строк, где A n-oe равно MlabelGrup.    
Количество строк – величина переменная, в прикрепленном файле это от первой строки до четвертой.