[Greyman]

DSK

Думаю что варианты приблизительно равны ...

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

[Vadikan]

Вообще-то, в приведенном примере никаких ухищрений не нужно. Просто кликается на любую ячейку, в столбце, по которому провoдим сортировку (в данном случае с буквой) и нажимаем на кнопку сортировки по алфавиту. Попробуйте сами.

[s]Исправлено: Vadikan, 19:58 18-03-2004[/s]

[Vadikan]

Доброго времени суток!

Я тут озадачился следующим вопросом. Есть табличка 10 столбцов на 1500 строк. Для удобства чтения при распечатке хотелось бы отделять строки не банальной сеткой, а различным цветом заливки ячеек. Например, чередовать прозрачный (нет заливки) со светло-серым. Идея аналогична отделению постов в теме на форуме, кстати. Понятное дело, что вручную я это делать не хочу. Я и так и сяк покрутил, но что-то не нашел варианта автоматизировать процесс. Может я что-то упустил и решение лежит на поверхности? Буду рад услышать любые идеи.

Спасибо за внимания.

[grmbrg]

Есть необходимость в Excel'е создаваит книги, один из листов которых содержит рисунок. Рисунок вводится в лист со сканера. размер рисунка от 5х5 см до 15х15 см. Нужно, чтобы в Excel'е при просмотре и печати рисунка он был того же размера, что и оригинал, сканированный с бумаги.  А то при вставке-рисунок-из файла он растягивается и реальные его размеры становятся больше.

[ShaRP]

grmbrg
Есть мнение, что не рисунок растягивается, а сканер надо настроить, параметр DPI.

[Greyman]

Vadikan
Могу предложить несколько способов. Можешь выбрать что тебе удобнее, заодно может наведет на мысль о вариантах, которые я упустил.
1) Первый который приходит в голову, но не самы простоы - воспользоваться макросом. Саму заливку можно осуществлять с помощью:

Код:

Cells(1, 1).Interior.ColorIndex = 6

Индекс определяет цвет. Закраска нужного диапазона уже вопрос программирования (условия, цыклы и т. д.). Если нужна не сплошная заливка, то можно воспользоваться:

Код:

Cells(1, 1).Interior.Pattern = xlSolid

Значения для разных способов заливки можно посмотреть в хелпе для Pattern. Если нужно более подробно, то, в принцыпе, могу прикинуть и макрос целиком, если время свободное найдется...

2) Копирования форматирования ячеек. Сначала раскрашиваешь себе один повторяющийся цыкл (например, первая строка - в желтую полоску, вторая - в зеленый горошек, третья - черный крестик и т. д. и т. п.). После чеко копируешь через Правка/ Специальная/ форматирование. Заметным минусом этого варианта является то, что при копировании переносятся все форматы (в том числе высоты строк, выравнивание значений в ячейках). Однако, если все строки могут быть одинаковой высоты и выравнивание в одном столбце от одной строки к другой не меняется, то этот способ отлично подойдет.

3) Раскраска заданного выделения. Способы выделения могут быть разными, мне больше нравится вариант с фильтрованием. Просто в дополнительном столбце формируются значения, по которым потом и идет фильтрование. Для твоего случая формула будет очень простая, которую просто надо раскопировать на все 1500 строк:

Код:

=ЕЧЁТН(СТРОКА(J1))

Функция ЕЧЁТН становится доступна (и ряд других), если в Сервис/ Надстройки подключен модуль "Пакет анализа" (соответственно для этого его необходимо установить, если отсутствует). Если "Пакет анализа" не использовать или, если чередование будет более сложное, просто формула усложниться, но суть не изменится. Конечно вариант не польностью автоматизированный (вставка формулы, ее копирование, фильтрация, выделение, раскраска, отмена фильтра и удаление дополнительного стобца), поэтому, если автоматизация нужна максимально возможная, то макросы ИМХО именно тот вариант.

Млин. Один раз уже пост написал, но после предпросмотра сразу (без всяких действий с моей стороны) форум выдал ошибку из разряда "не правильный пользователь" или что-то похожее. В результате - пост похерен... *В итоге, это - второй вариант...

[Greyman]

grmbrg
В офисе забито разрешение по умолчанию для рисунков. Точное значение щас не знаю (вроде в диапазоне 100-150dpi). Соответственно, чтобы в Exel сразу показывал рисунок в нужном размере без дополнительных действий с твоей стороны, просто необходимо сканировать в заданном разрешении. Это вариант, лежащий на поверхности. Возможно также есть способ принудитьльно поменять дефолтное значение разрешения, тогда сканировать можешь как тебе захочеться, но есть ли на самом деле такая возможность и как ее осуществить - не знаю...

Добавлено:

Млин, уже который раз за сегодня при предпросмотре (да и постинге тоже) вываливается ошибка форума. Пока я с этим боролся ShaRP уже 100 лет назат все сказал... Пошел ка я жаловаться в соответствующий раздел...

[Billy Bones]

На листе есть таблица с данными, есть скрытые строки и столбцы. Нужно удалить их. Получается только если нажать Ctrl и мышей выделять нескрытые ячейки, затем скопировать на другой лист. Вот тока если ячеек этих очень много, запаришься выделять. Если более простой способ?

[Greyman]

Billy Bones
А почему нельзя их сначала отобразить, а потом удалить с тово же листа? Или не знаешь как:
1)выделить все - левая кнопка в верхний левый угол таблицы);
2) отобразить столбцы - правой кнопкой в любом месте подписей столбцов, в появившемся меню - отобразить;
3) отобразить строки - ... подписей строк, ... - отобразить.
Так нормально, или ты что-то другое имел в виду?

[Vadikan]

Greyman

2) Копирования форматирования ячеек.

То что нужно. Действительно, решение (почти) на поверхности ;-) Большое спасибо!