» Excel FAQ

Цитата:

С недавних пор скопировать данные не удается (раньше все работало), выдает следующую ошибку:
"Для этого требуется, чтобы ячейки имели одинаковый размер."

Проверь нет ли в копируемом и заменяемом диапазонах объединенных ячеек. Подобная проблема, кажется, может возникнуть в случае их наличия и перекрытия.

Troitsky
Нет объединенных ячеек нет ни в копируемом, ни в заменяемом, это я проверял.

Не понятно почему на новый Лист копирует, а на Лист 2 нет?

P.S. Есть ли макрос определяющий есть ли на листе скрытые или объединенные ячейки?

В Excel2000 если гиперссылка в Книге указывает на другую Книгу, то:
1. при открытии второй появляется панель инструментов web. Можно ли сделать, чтобы она не появлялась?
2. если у второй Книги выставлен атрибут только для чтения, то при закрытии Excel c этими Книгами в Win2000 в свойствах экрана во вкладке "Эффекты" устанавливается опция "Видеоэффекты для меню и подсказок"
Можно ли сделать так, чтобы эта опция не устанавливалась?

pazdak
Странно, значит что-то там всё-таки есть ;)
А если создать новый и его переименовать в Лист2 и в него вставить?


Цитата:

Есть ли макрос определяющий есть ли на листе скрытые или объединенные ячейки

зачем макрос? можно просто выделить всё и показать скрытые ячейки, а также отменить объединение (можно конечно и макрос, но там тоже есть нюансы ;)

Tropin
Цитата:

А если создать новый и его переименовать в Лист2 и в него вставить?

Это была самая первая мысль пришедшая в голову, но после удаления Лист 2, Лист 1 становиться чистым, т.е. все пропадает, после переименования Лист 2, все ссылки на Листе 1 также ссылаются на новое имя листа, т.е. не получается подпихнуть новый лист, поэтому и хочу выяснить что с этим случилось?

Либо это Excel глючит, либо я...

Раньше, когда для какой-нибудь ячейки делал "Данные->Проверка->Список", то при раскрытии списка его левая граница совпадала с границей самой ячейки, а правая - с границей картинки со стрелкой. Теперь же после тех же манипуляций этот список начинается намного левее и загораживает несколько ячеек слева от ячейки со списком. Можно ли как-нибудь его ширину настроить?

pazdak

Цитата:

Подскажите как Лист 2 вернуть в рабочее состояние?

Может ты этот второй (уже очищенный) лист выложишь где-нибудь... всё же больше шансов, что кто-нибудь поможет. А так, гадать только на пустом месте.

Господа, подскажите такой вопрос:
Вот был у меня файлик с одной замечательной функцией, которая находилась в "определенных пользователем". И вот, она оттуда по непонятной причине исчезла. Файл остался, и когда он открыт, функция все также работает, стоит закрыть - функции нету. Дело в том, что к компьютеру доступ общий, поэтому выяснить что на нем делали совершенно невозможно. Поэтому и взываю к вашей помощи...

Вопрос по Excel:

Допустим, на первом листе в разнобой идет перечисление дат, номера поездов, и количество людей. При помощи автофильтра узнаем, сколько людей было допустим
на поезде 160. Данные 160 поезда необходимо загнать на второй Excel лист. Далее получим на втором листе перечисление поездов, людей, дат но уже конкретно по номерам поездов, т.е
23.04.2005 160 поезд 20 человек
25.04.2005 160 поезд 15 человек
27.04. 2005 160 поезд 30 человек
Итого за месяц 160 поезд 65 человек
16.04.2005 200 поезд 10 человек
20.04.2005 200 поезд 15 человек
27.04. 2005 200 поезд 10 человек
Итого за месяц 200 поезд 35 человек
Вопрос следующий: можно ли автоматически сделать так, чтобы вбивая данные на первом Excel листе производилась выборка на втором Excel листе?
ПРИМЕР
Данные первого листа Excel:
25.04.2005 160 поезд 15 человек
20.04.2005 200 поезд 15 человек
27.04. 2005 200 поезд 10 человек
27.04. 2005 160 поезд 30 человек
23.04.2005 160 поезд 20 человек
16.04.2005 200 поезд 10 человек
Итого за месяц 100 человек
Данные второго листа Excel:
23.04.2005 160 поезд 20 человек
25.04.2005 160 поезд 15 человек
27.04. 2005 160 поезд 30 человек
Итого за месяц 160 поезд 65 человек
16.04.2005 200 поезд 10 человек
20.04.2005 200 поезд 15 человек
27.04. 2005 200 поезд 10 человек
Итого за месяц 200 поезд 35 человек

toNk
Сложно выяснить что произошло, но ситуацию можно поправить. Надо сохранить файл с работающей функцией как шаблон *.xlt, открываемый по умолчанию, в папке шаблонов MSOffice.
Или сделать из функции надстройку *.xla и подгрузить её.

Так и не разобрался я с этим списком допустимых значений. И Office переустановил, и все настройки перелопатил - та же фигня... Самое интересное, что в созданных ранее документах все нормально, а если скопировать из них данные и поместить в новый лист - снова ширина нарушается. Если копировать лист целиком - тогда все путем. Мистика какая-то... Может дело в каком из настроечных файлов?

ivas
Спасибо за советы, только в моем случае они не помогут. Выявилась тут странная закономерность:
Если перед открытием файла просто запустить Excel, все функции видны и работают, как и раньше.
А вот если просто открыть любой excel'евский файл, то этих функций нет, и не будет, пока я не открою файл, содержащий функцию.
Есть мысли?

dron_2005
Как вариант:
лист2

A B C
месяц №поезда кол-во
4 160 ={СУММ(ЕСЛИ(МЕСЯЦ(Лист1!$A$2:$A$476)=A2;ЕСЛИ(Лист1! $B$2:$B$476=B2;расход!$C$2:$C$476;0);0))}
4 200 ={СУММ(ЕСЛИ(МЕСЯЦ(Лист1!$A$2:$A$476)=A3;ЕСЛИ(Лист1! $B$2:$B$476=B3;расход!$C$2:$C$476;0);0))}

Завершать ввод формулы нужно Ctrl+Shift+Enter

Добавлено:
dron_2005
={СУММ(ЕСЛИ(МЕСЯЦ(Лист1!$A$2:$A$476)=A2;ЕСЛИ(Лист1! $B$2:$B$476=B2;расход!$C$2:$C$476;0);0))}

Добавлено:
вот так правильно
={СУММ(ЕСЛИ(МЕСЯЦ(Лист1!$A$2:$A$476)=A2;ЕСЛИ(Лист1!$B$2:$B$476=B2;Лист1$C$2:$C$476;0);0))}

Добавлено:
Восклицательный знак пропустил
={СУММ(ЕСЛИ(МЕСЯЦ(Лист1!$A$2:$A$476)=A2;ЕСЛИ(Лист1!$B$2:$B$476=B2;Лист1!$C$2:$C$476;0);0))}

toNk
Всё правильно. Дело в шаблоне нового документа. При открытии Excel загружается чистый лист с новым шаблоном, а при открытии старого документа подгружается "как-бы испорченый" шаблон.
Других мыслей нет. Надо видеть ситуацию. На слух сложно...

toNk
СтОит посмотреть, где (в каком модуле) хранятся эти функции: Меню - Сервис - Макрос - Редактор VisualBasic. В крайнем случае вытащить их оттуда (можно копированием - вставкой как обычный текст), как правильно говорит ivas, вставить в новую книгу и сохранить ее как надстройку. Я так и делал, да еще эту надстроку в XLStart положил, так что функции доступны при открытии любой книги, хоть новой, хоть старой.

Geezer S

Цитата:

да еще эту надстроку в XLStart положил

В том то и дело, что они там и лежат! Но при открытии старых файлов не работают...

Обнаружил странный глюк Excel ХР. Маленький документ - 4 странички, но открывается полчаса.В документе ничего особенного. Но самое интересное следующее размер достаточно большой несколько мегабайт. В нём точно нет ячеек на n-ой строке или внедрённых объектов. Открыв ХЕКС редактором заметил в нём участки текста, которых там нет, а появиться случайно не могли. Когда автору документа показал их, то он сказал, что эти строки из одного из документов, с которых он копировал данные в этот.
Самое плохое, что таких докуменов последнее время стало много. Это точно не вирус и открывается документ "тяжело" и на других машинах.

OdesitVadim

Цитата:

Маленький документ - 4 странички, но открывается полчаса

А какой реальный объём файла? И при открытии жёский диск молотит? Или просто режим ожидания (непонятно чего)?

OdesitVadim
Вот вот такая же ерунда. Стоит Office 2003 SP1 Rus. Екселевские файлы начали пухнуть. Документ, который частично делался путем копирования данных из других документов, распух до 8 метров!!! А там всего то 6 листов с табличными даннымими и несколько формул.
Ну и точно также некоторые очень долго открываются. Что делать не понятно, хоть обратно Office XP ставь.

ssi
Похоже, вставку надо делать через "Специальная вставка" и там не вставлять как лист эксель, документ ворд и т.п.

Я так думаю...

ivas
ну так, помигивает диск время от времени, но думаю это не эксель.

Цитата:

А какой реальный объём файла?

Я понимаю, если с нуля набрать? не более 100кб

ssi
У меня с вордом похожая проблема была: я тогда курсач писал, и много раз его редактировал. Постепенно файл распух до нескольких метров. Тогда я просто создал новый файл и тупо скопировал в него всю инфу через буфер. Размер нового файла сразу уменьшился до 500 килов.

Может кто-нибудь знает как добавить кнопку в окно останова которое выскакивает при неправильно введённом значении в ячейку (данные-проверка), через VB?. Либо перехватить это сообщение и назначить своё.

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

toNk

Цитата:

весь столбец.

Sub Col()
Columns("C:C").Select
End Sub
или всё таки до последнего заполненого значения?
Тогда цикл типа такого:

Sub Num()
Dim row As Integer, n As Integer
row = Application.CountA(Sheets("Base").Columns(1))
Лист1.Cells(2, 1).Value = 1
For n = 2 To row
.....
Next
n = n + 1
End Sub

ivas
А можно че-нить наподобие 1-го варианта, только не весь столбец, а со 2-й ячейки и до конца - такой вариант тоже устроит.
А то во втором примере я нифига не понял - не шарю я в VB...

Как в Excel последовательно пронумеровать ячейки в столбце без нумерации скрытых?
Если протягивать маркером автозаполнения, то скрытые ячейки тоже учитываются.
Надоть макрос писать... Но как передвинуть в макросе select на одну ячейку вниз, пропуская скрытые?

toNk

Цитата:

не весь столбец, а со 2-й ячейки и до конца

До конца - понятие относительное...
Вместо Columns("C:C").Select ставишь Range("C2:C65000").Select

ivas
Понял. Тогда давай вернемся к сложному варианту.
Можешь чуть подробней объяснить что есть что в этом фрагменте:

Цитата:

Dim row As Integer, n As Integer
row = Application.CountA(Sheets("Base").Columns(1))
Лист1.Cells(2, 1).Value = 1
For n = 2 To row
.....
Next
n = n + 1

А то он у меня так и не заработал...

toNk

Цитата:

как выделить ячейки, скажем со 2-й и по последнюю (под последней понимается та, после которой нет никаких данных в ячейке)

А если так?

Код: ActiveSheet.Range(Cells(2, 3), Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1, 3)).Select