» Excel FAQ

Помогите сделать формулу.
В ячейке А1 - 10
В ячейке А2- 0
В ячейке А3 - 5

как сделать что бы при значении А2=0 - происходило А3*А1
а при значении А2>0 - происходило А3*А2

В ячейку, где нужен результат, пишешь нечто такое:

=ЕСЛИ(A2=0;A3*A1;A3*A2)

Я так понял, что A2 неотрицательное число. В противном случае укажи, что делать для A2 отрицательного.

Robert
- Класс! пашет! Пасиб!
(млин, пора и офис систематически начинать учить мне..)

Привет всем
Я так понял здесь собрались знатоки Excel.
Во вопрос такой, интересный, мне один из моих любимых отделов задал.
А именно почему при введении формулу сумирования не смежных значений исчезает цветная раскраска (уже просумированных ячеек) после суммирования 35 ячейки. Если этот глюк можно как-то забанить, раскажите как, плиз.
Привожу пример:
Ячейка А1 =B1+D1+....+MN1
так вот после введения 35 ячейки цветная раскраска исчезает. А остается просто формула.

Конечно, это не страшно, но неприятно.

MichaelII.
Спасибо.


Кстати мне тоже интересно почему после введения 35 ячейки цветная раскраска исчезает.....

uzkhadmin
на сколько мне известно
не после 35, а после 32, начиная с 33

для функции СУММ - ограничение в 30 значений, больше вы не ввёдёте
а сделано это потому что стоит ограничение на данный вид вычислений
т.е. больше 30 значений вы не сложите за одно действие

Это всё из знакомого нам до боли HELP Excel (читаем раздел "Технические характеристики и ограничения Microsoft Excel"):
Возможности - Наибольшее число
Все открытые книги - Ограничивается объемом доступной памяти и ресурсами системы
Размер листа - 65536 строк и 256 столбцов
Ширина столбца - 255 знаков
Высота строки - 409 точек
Разрывы страниц - 1000 горизонтальных и вертикальных
Длина записи для содержимого ячеек (текст) - 32767 знаков. В ячейке отображаются только 1024 знака; все 32767 знаков отображаются в строке формул.
Число листов в книге - Ограничено объемом доступной памяти (значение по умолчанию — 3 листа)
Число цветов в книге - 56
Число стилей ячейки книги - 4000
Число именованных представлений в книге - Ограничивается объемом доступной оперативной памяти
Пользовательские числовые форматы - Ограничивается объемом доступной оперативной памяти
Число имен в книге - Ограничивается объемом доступной оперативной памяти
Число окон в книге - Ограничивается ресурсами системы
Число областей в окне - 4
Число связанных листов - Ограничивается объемом доступной оперативной памяти
Сценарии - Ограничивается объемом доступной оперативной памяти, в итоговый отчет включается первый 251 сценарий
Число изменяемых ячеек в сценарии - 32
Число вычисляемых ячеек в надстройке «Поиск решения» - 200
Пользовательские функции - Ограничивается объемом доступной оперативной памяти
Пределы масштабирования - от 10 до 400 процентов
Отчеты - Ограничивается объемом доступной оперативной памяти
Число уровней сортировки - 3 для однократной сортировки; не ограничено для последовательных сортировок
Число уровней отмены - 16
Число полей в форме данных - 32
Число пользовательских панелей в книге - Ограничивается объемом доступной оперативной памяти
Настройка кнопок панелей инструментов - Ограничивается объемом доступной оперативной памяти

и самое главное !
Наибольшее число цветов для обозначения изменений, вносимых разными пользователями, при включенном режиме цветового выделения изменений 32 (каждому пользователю соответствует свой цвет; изменения текущего пользователя выделяются темно-синим цветом)

Закладки хочется. А то на одном листе убежишь потом возвращаться приходиться...

Solenaja
Це все гарно. А як бути тім кому це потрібно. Обойти это ни как нельзя или увеличить диапазон хотя бы до 140.

Цитата:

функции СУММ - ограничение в 30 значений

А вам про Сумм никто и не говорил. Сложение идет просто "+" без всяких Сумм. Я с трудом народу обьяснил что в Сумм не надо еще и "+" ставить, так что они теперь просто "+" ставят. И длина формулы увеличивается как правило нам хватает. Вот только плохо раскраска исчезает.

Как реализовать итоги с подитогами 2 уровня?
Например

Контрагент Договор Сумма

Здесь подитоги 1 уровня по критерию контрагент,подитоги 2 уровня по критерию договор.

xcm

Можно просто данные -> группировать (первй раз - по контрагенту) данные -> группировать (второй раз - по договору). Потом объединять ячейки по группам. Может задачу понял неправильно?

xcm

Попробуй следующую последовательность действий:
Выполнить команду Данные - Сортировка, Сортировать по - Контрагент, Затем по - Договор.
Выполнить команду Данные - Итоги..., При каждом изменении в: - Контрагент, Операция: - Сумма, Добавить итоги по: - Сумма.
Выполнить команду Данные - Итоги..., При каждом изменении в: - Договор, Операция: - Сумма, Добавить итоги по: - Сумма, убрать птичку Заменить текущие итоги.

Благодарю,все получилось.

Подскажите пожалуйста. Есть 1 столбец цифр 5000-6000 строк (кол-во строк все время меняется) Как выделить находящийся рядом столбец, таким образом, чтобы выделенный диапазон соответствовал кол-ву строк в столбце с цифрами? Руками не подходит, т.к. это нужно для макроса.

Magi
Если второй не больше первого, то у меня получилось так

Код: ActiveSheet.UsedRange.Columns(1).Select

Есть столбец цифр, рядом с ним нужно заполнить (в моем случае одинаковыми) датами, словами, другой столбец, чтобы по кол-ву строк они были одинаковы. Вниз до границы разрешенной в Excel - это легко, но потом придется лишнее обрезать, пока я так и делаю.

И заодно такой вопрос. Можно ли из макроса запустить батник? Нужно сделать так, скачать с сайта файл, разархивировать, обработать в Excel, результат заархивировать и закачать на сайт.

Magi

Цитата:

И заодно такой вопрос. Можно ли из макроса запустить батник? Нужно сделать так, скачать с сайта файл, разархивировать, обработать в Excel, результат заархивировать и закачать на сайт.

Ну, ты и размечтался...

Magi

Пусть в столбце A находятся цифры, а столбец B надо заполнить сегодняшней датой.
Тогда попробуй следующий макрос:

Код: ActiveSheet.Range("A1").CurrentRegion.Columns(1).Offset(0, 1).Value = Date

Каким образом можно получить итоги по странице ?

Например, имеется ведомость - нужно внизу каждой страницы писать:
"Итого по странице ххх рублей"

Вопрос собственно - как узнать что "эта" строка последняя на странице ?

Magi

Цитата:

И заодно такой вопрос.

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

Magi

Цитата:

И заодно такой вопрос. Можно ли из макроса запустить батник? Нужно сделать так, скачать с сайта файл, разархивировать, обработать в Excel, результат заархивировать и закачать на сайт.

Можно.
Для этого тебе нужно будет объявить (описать) winAPI функцию Createprocess (или найти где она описана), можешь также сделать через ShellExecute. в нее передаешь путь и имя батника для распаковки, ждешь пока она отработает, затем выполняешь преобразования в книге, и выполняешь батник для запаковки и отправки.
Пример описания WinApi функции я видел еще в 7-м офисе, пользовался в 97, так что в последующих тоже есть. Ищи в MSDN и помощи.
Крики о не знании языка можешь оставить при себе, если ты залез в такие дебри, это часть твоего профессионального роста, и прийдется расти :))

kojev

Цитата:

Вопрос собственно - как узнать что "эта" строка последняя на странице ?

Мой ответ --никак :(((
Я выкручивался тем что проанализировал сколько строк влазит на страницу и после этих строк вставлял свою строку. Если кто даст способ буду признателен.

Tropin

Цитата:

используй перл, а не кривой ВБА

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

[offtop on]
предложения изучать другой язык в этой, конкретной, теме считаю некорректным, если окажется что решения нет, тогда возможно и прийдется, а так нужно стремиться изучать данный тулз в полной мере.
[offtop off]

kojev
вот пример:
данные типа
/ A B

vserd
Для этого тебе нужно будет объявить (описать) winAPI функцию Createprocess (или найти где она описана), можешь также сделать через ShellExecute. в нее передаешь путь и имя батника для распаковки, ждешь пока она отработает, затем выполняешь преобразования в книге, и выполняешь батник для запаковки и отправки.
Пример описания WinApi функции я видел еще в 7-м офисе, пользовался в 97, так что в последующих тоже есть. Ищи в MSDN и помощи.
------------------------------

Можно гораздо проще

Sub execbat()

Dim RetVal
RetVal = Shell("C:\1.bat", 1) ' Run bat file

End Sub

Office XP, Windows 2000.
Такая проблема - при открытии документа Excel(любого, из любого места) двойным кликом, вылетает ошибка - (не удается открыть файл "С:\qq.xls"(Или один из его компонентов) Проверьте правильность указания имени файла и пути. А также наличие всех необходимых библиотек.) Если открыть Еxcel - open и указать файл, то откроется нормально.
Перестановка офиса с чисткой реестра и удалением всех компонентов офиса не помогли - теряюсь в догадках о том где еще искать...

Krechet
Возможно вирус или какая-то бяка которая все ж сидит в реестре, проверялся?

Krechet
Проверь каталог Startup в Office возможно или там или в путях прописано запускать
Цитата:

С:\qq.xls"(

и он тупо ее ищет. И зайди в параметры Excel в закладку Общие посмотри чтобы в строке "Каталог автозагрузки" ничего не было. Если все чисто значит ищи в реестре. Вбей в параметры поиска qq.xls , и там где она ее найдет просто убей этот параметр.

Добавлено
Tropin

Цитата:

Возможно вирус или какая-то бяка

Это не вирус и не бяка. Просто возможно макрокоманда была вбита для открытия этого файла. Возможно этот файл отвечал за содержания каталога (типа путеводителя).

Спасибо за предыдущие подсказки!
Возник следующий вопрос.
Имеется колонка цифр, которые являются уникальными кодами, некоторым из ниъх соответствуют названия картинок.
Нужно в следующей колонке ввести название картинки.
A B
8801 image1.jpg

Коду 8801 строго соответствует image1.jpg, но в разных загружаемых для обработки файлах он может находится в разных строках.

Сейчас я делаю так

Cells.Find(What:="8801", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("B599").Select
ActiveCell.FormulaR1C1 = "image1.jpg"

Но в следующем файле код 8801 может быть уже не в B599, а, к примеру, в B495 и такой макрос не сработает.
Колонка, с кодом всегда - A, та куда нужно вводить название - всегда - B.
Как сделать, чтобы он работал во всех случаях?
Как вариант подошла бы команда сдвигающая курсор на одну клетку вправо. Есть ли такая?

Magi

Цитата:

команда сдвигающая курсор на одну клетку вправо

Код: Selection.Offset(0, 1).Select

Tropin
Однозначно не вирус. - своему антивируснику я доверяю, Да и проверяю

uzkhadmin
С:\qq.xls - это файл, который я хочу открыть - я на нем и делаю двойной клик.

Нашел описание проблемы с рецептом от микрософта http://support.microsoft.com/default.aspx?scid=kb;ru;323216 Только вот их решение не прокатывает...

Krechet
а эту смотрел? http://support.microsoft.com/default.aspx?scid=kb;RU;207574
может дело в том как операционка передает путь к файлу, а не в экселе
Рекомендую, посмотреть соответствия для файлов *.xls на другом компе и соорудить по образу и подобию...

Попалась такая задача:

Шир/Долг 60 65 70 75 80 85 90