/ КОМПЬЮТЕРЫ И ПО / Помощь пользователю ПО / Пакет Microsoft Office

Выпуск № 304
от 07.03.2007, 21:13

Вопрос № 76.902

Добрый ден. Недавно скачал прайс-лист с олди.ру После посмотра документа, хотел вот что спорсит: Как можно на Экзеле + и -, что скрит ячейки документа?

Отправлен: 27.02.2007, 00:30 Вопрос задал: Muhammedov Abdurohman (статус: 1-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Вепрёв Максим Сергеевич Здравствуйте, Muhammedov Abdurohman! Если я правильно понял вопрос, то вам необходимо сделать следующее: 1. Если хотите скрыть столбец, то правой кнопкой мыши кликаем по букве столбца, а далее скрыть, 2. Если необходимо скрыть строку, то нажимаем правую кнопку мыши по цифре, а далее скрыть. Чтобы вернуть все на свое место, необходимо выделить 2 соседних столбца (строки) и опять же правой кнопко мыши на команду отобразить. P.S. Набирая ответ, я вдруг подумал, а что если у вас мышь настроена для "левши", если оно так, то кликаем во всех случаях левой кнопкой мыши!!!! --------- Век живи, век учись - все равно дураком умрешь!

Ответ отправил: Вепрёв Максим Сергеевич (статус: 3-ий класс) Ответ отправлен: 27.02.2007, 09:51 Оценка за ответ: 3 Комментарий оценки: Да. даже сам не ожидал таково ответа.

Отвечает: BuTeK Здравствуйте, Muhammedov Abdurohman! У меня стоит бета 2007 Офиса, но может подойдет. Выделяете нужные строки и нажимаете меню "Данные"-> "Группировать".

Ответ отправил: BuTeK (статус: Студент) Ответ отправлен: 27.02.2007, 09:52 Оценка за ответ: 5 Комментарий оценки: Вери сенс. тожно это хотел. Браво

Отвечает: Korolyov Alexandr Здравствуйте, Muhammedov Abdurohman! Это делается через меню Данные->Группа и Структура - после этого появятся + и - в зависимости от Ваших действий --------- Читайте help

Ответ отправил: Korolyov Alexandr (статус: 2-ой класс) Ответ отправлен: 27.02.2007, 11:39 Оценка за ответ: 5

Отвечает: Присяжнюк Анатолий Васильевич Здравствуйте, Muhammedov Abdurohman! ***** Ответ удален и перенесен в ветку форума «О деятельности экспертов и работе портала – Удаленные ответы для обсуждения» ***** Климова М.

Ответ отправил: Присяжнюк Анатолий Васильевич (статус: 2-ой класс) Ответ отправлен: 27.02.2007, 20:17 Оценка за ответ: 4 Комментарий оценки: Нет. спасиюо. уже все понял.

Вопрос № 76.976

Здраствуйте уважаемые эксперты. Вопросы по Excel. 1. Как сделать чтобы "шапка" таблицы не перемещалась вместе с таблицей, и всегда была вверху, а перемещалась только сама таблица ? 2. Как сделать чтобы при выделении ячейки подчеркивалась снизу и вся строка ?

Отправлен: 27.02.2007, 14:48 Вопрос задал: Nell (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Вепрёв Максим Сергеевич Здравствуйте, Nell! На второй вопрос ответа не знаю, ну а с первым помогу. Выделяешь саму шапку и плюсом еще следующую строку, далее "Окно -> закрепить области". Надеюсь получилось!!! --------- Век живи, век учись - все равно дураком умрешь!

Ответ отправил: Вепрёв Максим Сергеевич (статус: 3-ий класс) Ответ отправлен: 27.02.2007, 15:01 Оценка за ответ: 5 Комментарий оценки: Спасибо, работает с подсказками эксперта Другова-Кручинского Владимира Валерьевича. Только не очень удобно, таблица большая, слева нормально, справа не очень. Как в любой программе меню вверху, так же "шапку" бы закрепить.

Отвечает: Другов-Кручинский Владимир Валерьевич Здравствуйте, Nell! Немного уточню предыдущий ответ: нужно поставить курсор так, чтобы он оказался на верхней левой подвижной ячейке (все, что левее и выше курсора закрепится и двигаться не будет) а дальше, как и сказано, закрепить области По второму вопросу: это не Эксель - такого там до версии 2003 не встречал. Попробуйте поиграть с настройками оформления Виндоус. --------- Могло бы быть и хуже.

Ответ отправил: Другов-Кручинский Владимир Валерьевич (статус: Студент) Ответ отправлен: 27.02.2007, 15:09 Оценка за ответ: 5 Комментарий оценки: Здраствуйте. Спасибо за совет по 1 вопросу. У меня версия 2003, настроить на подчеркивание всей строки не смог.

Отвечает: Mikhail_E Здравствуйте, Nell! на второй вопрос: Вы ставите курсор в ячейку, в самом левом столбце подсвечивается номер строки. Ставите курсор на посветившийся номер - выделяется вся строка.

Ответ отправил: Mikhail_E (статус: 5-ый класс) Ответ отправлен: 27.02.2007, 16:13

Отвечает: Genyaa Здравствуйте, Nell! Для второго пункта можно создать обработчик события (см. приложение). Код нужно вставить в модуль книги. Приложение: Public OldTarget As Range Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not OldTarget Is Nothing Then OldTarget.Borders(xlEdgeBottom).Linestyle="XlLineStyle.xlLineStyleNone" End If Set OldTarget = Target.EntireRow OldTarget.Borders(xlEdgeBottom).Linestyle="XlLineStyle.xlContinuous" End Sub --------- Всякое решение плодит новые проблемы.

Ответ отправил: Genyaa (статус: Студент) Ответ отправлен: 27.02.2007, 16:30 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо. Всё супер. Подчёркивается снизу строка выделенной ячейки. Этот код работает и на других компьютерах. А есть возможность подчеркнуть другим цветом, например красным?

Вопрос № 77.078

Здравствуйте. Уважаемые эксперты столкнулся со следующей промблемой. Написал макрос в Excel,работает нормально,но когда ставлю его в автозагрузку книги выдает ошибку"9".Макрос в приложении.Строчку на которой останавливается работа выделил *************. Помогите победить эту промблему. Приложение: Private Sub Workbook_Open() ChDir "F:А Т СPLS-CTNСуточная" Workbooks.OpenText Filename:="F:А Т СPLS-CTNСуточнаяlog.dat", _ Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _ Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2), _ Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2)), TrailingMinusNumbers:=True Columns("A:A").Select Range("A1:E1032").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1").Select ActiveCell.FormulaR1C1 = "N_A" Range("B1").Select ActiveCell.FormulaR1C1 = "D" Range("C1").Select ActiveCell.FormulaR1C1 = "T" Range("D1").Select ActiveCell.FormulaR1C1 = "T-s" Range("E1").Select ActiveCell.FormulaR1C1 = "N_B" Rows("1:1").Select Selection.AutoFilter Range("E1").Select Selection.AutoFilter Field:=5, Criteria1:="<>98*", Operator:=xlAnd, _ Criteria2:="<>90*" Columns("A:E").Select Selection.Copy **** Sheets("log").Select***** Sheets.Add Cells.Select ActiveSheet.Paste Sheets("Лист1").Select Sheets("Лист1").Name = "Внутрирайонные" Range("A1").Select Sheets("log").Select Selection.AutoFilter Field:=5 Range("E1").Select Selection.AutoFilter Field:=5, Criteria1:="=98????????", Operator:=xlAnd Columns("A:E").Select Columns("A:E").EntireColumn.AutoFit Application.CutCopyMode = False Selection.Copy Sheets("log").Select Sheets.Add Cells.Select ActiveSheet.Paste Columns("E:E").EntireColumn.AutoFit Range("A1").Select Sheets("Лист2").Select Sheets("Лист2").Name = "Внутризоновые" Sheets("log").Select Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=5, Criteria1:="=98??????????", Operator:= _ xlAnd Columns("A:E").Select Application.CutCopyMode = False Selection.Copy Sheets("log").Select Sheets.Add Cells.Select ActiveSheet.Paste Columns("E:E").ColumnWidth = 8.5 Columns("E:E").EntireColumn.AutoFit Range("A1").Select Sheets("Лист3").Select Sheets("Лист3").Name = "Междугородние" Sheets("log").Select Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=5, Criteria1:="=98????????????", Operator:= _ xlAnd Columns("A:E").Select Application.CutCopyMode = False Selection.Copy Columns("A:E").Select Application.CutCopyMode = False Selection.Copy Sheets("log").Select Sheets.Add Cells.Select ActiveSheet.Paste Columns("E:E").EntireColumn.AutoFit Range("A1").Select Sheets("Лист4").Select Sheets("Лист4").Name = "Международные" Sheets("log").Select Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=5, Criteria1:="=9815", Operator:=xlAnd Columns("A:E").Select Application.CutCopyMode = False Selection.Copy Sheets("log").Select Sheets.Add Cells.Select ActiveSheet.Paste Range("A1").Select Sheets("Лист5").Select Sheets("Лист5").Name = "Интернет-кредит" Sheets("log").Select Selection.AutoFilter Field:=5 Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "N_A" Range("A1").Select End Sub

Отправлен: 28.02.2007, 00:09 Вопрос задал: Шмаров Сергей (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Alec Perle Здравствуйте, Шмаров Сергей! Не стал сильно разбираться в логике макроса, но: 1. Ошибка, вероятнее всего, возникает потому, что Вы пытаетесь выделить НЕСУЩЕСТВУЮЩИЙ лист В ТЕКУЩЕЙ КНИГЕ. Поясню. Выражением OpenText открывается НОВАЯ книга, содержащая один лист. А выражение Sheets("***").Select - выделяется лист той книги, в которой написан макрос. 2. Непонятно, почему ранее (до автозагузки) макрос работал. Опять же, не зная структуру листов Вашей книги, предположу, что макрос в первоначальном виде хранился в отдельном модуле, а, делаая его "автозагружаемым", Вы логисно перенесли его в модуль "ЭтаКнига". Если так, то самый простой способ "победить" проблему - оставить рабочий макрос на месте и вызывать его при автозагрузке: Private Sub Workbook_Open() Макрос1'(или как он там назывался...) End Sub 3. (и самое важное). Макрос явно записан с помощью возможности Excel записывать действия пользователя в виде программы. Это не есть хорошо, так как работоспособность его в большинстве случаев зависит от совпадения начальных условий с теми, при которых макрос записывался. Поэтому совет - запись макросов это удобно, но рекомендую КАЖДУЮ автоматически записанную команду изучить (с помощью того же Help) и определиться в ее нужности для решения конкретной проблемы. Пример: Range("A1").Select ActiveCell.FormulaR1C1 = "N_A" повторяет действия пользователя (выделить ячейку A1, а потом установить значение формулы). Правильнее записать Cells(1,1).FormulaR1C1 = "N_A" так как для работы программы НЕТ НЕОБХОДИМОСТИ выделять ячейку для работы с ней (это относится и к листам, и даже к открытым книгам) А разобравшись, что же делает КАЖДАЯ команда, Вы сможете заставить Excel творить чудеса! --------- Пессимист - это хорошо информированный оптимист (а оптимист - хорошо проинструктированный пессимист)

Ответ отправил: Alec Perle (статус: 5-ый класс) Ответ отправлен: 28.02.2007, 13:10

Отвечает: Rewer8 Здравствуйте, Шмаров Сергей! Как я понял на этой строчке происходит ошибка **** Sheets("log").Select***** Она может возникать если листа с именем log не существует. Или например если происходит выход за пределы допустимого диапазона значений Например ВЫ объявили массив но не указали явно количество элементов, следующий код вызовет ошибку 9 Error 9 Subscript out of range Dim MyArray() As Integer MyArray(8) = 234 ' Causes Error 9. Чтобы с ней бороться можно например проверять существует ли лист с именем log и если его нет то создавать

Ответ отправил: Rewer8 (статус: 3-ий класс) Ответ отправлен: 01.03.2007, 13:44

Вопрос № 77.292

Добрый день эксперты, столкнулся с такой проблемой - не могу совместить корректную работу CorelDRAW 12 с Word 2003 (офис 2003), при переносе рисунка с CorelDRAW в документ Word теряется почти полностью текст и сам рисунок непропорционально сжимается, линии становятся разной толщины. При попытке открыть рисунок непосредственно в Wordе Word ругается - говорит что у меня нет прав на редактирование. Стоит Window 2000 pro, впрочем и в ХР аналогичная ситуация происходит. Не подскажете какие настройки в программах надо сделатьчтобы хотя бы перенос риснков из CorelDRAW 12 в Word происходил бы корректно и красиво? Очень надо. С уважением, Александр

Отправлен: 01.03.2007, 11:56 Вопрос задал: Alex_M (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Другов-Кручинский Владимир Валерьевич Здравствуйте, Alex_M! Это происходт потому, что Ворд - не редактор рисунков. Чтобы нормально перетаскивать рисунки, сохраняйте в Кореле их в более привычном для Ворда формате (jpg, например) и только тогда вставляйте рисунок. --------- Могло бы быть и хуже.

Ответ отправил: Другов-Кручинский Владимир Валерьевич (статус: Студент) Ответ отправлен: 01.03.2007, 12:30

Отвечает: Присяжнюк Анатолий Васильевич Здравствуйте, Alex_M! Такая ситуация будет продолжаться до тех пор пока не установите лицензионную версию Corel. А для переноса - сохраните как bmp(jpg) в Corel, а потом редактируйте в Paint. Редактировать в Worde не получится - растровая и векторная графика там ссорятся...

Ответ отправил: Присяжнюк Анатолий Васильевич (статус: 2-ой класс) Ответ отправлен: 01.03.2007, 20:32

Вопрос № 77.381

После сканирования и распознавания текста между абзацами получаюся промежутки больше чем между строками. Как это исправить? Между абзацами пустых строк нету.

Отправлен: 01.03.2007, 20:21 Вопрос задал: Ramzes (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Patriotix-N Здравствуйте, Ramzes! Дело в том, что после сканирования программа не добавляет абзацы, а просто увеличивает интервал между строками. 1) Выделяете нужный абзац 2) Формат->Абзац->Интервал 3) Перед и после надо поставить "0". Если не устраивает интервал между строками, то можете поменят "междустрочный" на одинарный. --------- Лучше знать ничего обо всем, чем все ни о чем.

Ответ отправил: Patriotix-N (статус: 3-ий класс) Ответ отправлен: 01.03.2007, 20:42

Отвечает: Присяжнюк Анатолий Васильевич Здравствуйте, Ramzes! Ответ: "Формат" - "Абзац" - "Отступ сверху" - "Отступ снизу" И все Вам сразу станет понятно...

Ответ отправил: Присяжнюк Анатолий Васильевич (статус: 2-ой класс) Ответ отправлен: 01.03.2007, 20:43

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.45 beta от 20.02.2007