» Excel FAQ

если прально понял то надо в крайнее правую колонку Е
формулу типа =СЧЁТЕСЛИ($B$1:$B$94;C2) и растянуть ее по столбцу...

Есть файл размером 75MB в котором содержится два листа в каждом из которых по 48000 строк и 60 столбцов, т.о. общее количество ячеек равно =2*48000*60=5760000 ячеек
На втором листе имеются формулы в которых используются значения из ячеек первого листа.
При изменении значений этих ячеек делаю ручной перерасчет ячеек, который длится у меня ровно 5 минут.
Хотя конфигурация ПК для оффисной машинки не слабая
P-4 2.4ГГц, 512Мб ОЗУ.
В чем трабл???
Можно ли выйти из этой ситуации?

xcm
спасибо. Одного не понимаю, почему у меня вчера excel про ошибку в формуле писал, если кавычек не было....

как при определенном числовом значении ячейки автоматом добавить строки к таблице с определенным форматированием, т.е.: в ячеке A1 число 5, тогда в нижестоящей таблице добавляется 5 строк. Желательно без нажимания дополнительных кнопок.

Может кто сможет подсказать. Собственно есть таблица, но впереди, перед цифвами первой колонки имеются плюсики. Которые скрывают или раскрывают поддиапазоны. Не знаю как это обозвать, но если непонятно объяснил увидеть их можно (например) скачав прайс с shop.nt.ru price . Как такое можно сделать ?

Shon
Данные - Группа и структура.
(см.также справку по этому пункту, там всё подробно расписано)

если никто не знает ответ на мой вопрос, то обьясните мне как работает такая фича в шаблоне эекселя: "файл-создать-шаблон-финансовый шаблон-рассрочка." Я не понял, но сделано красиво.

Люди! Посоветуйте - возможно ли найти или создать такой макрос который позволил бы корректно (!) экспортировать\публиковать много листов из одного файла Экселя "одним кликом"?
задача: есть файл с 66 однотипными листами (половина из них содержат
таблицы и графики, половина - только таблицы). нужна возможность
быстрого и корректного генерирования веб-страниц - чтобы наш человек вёл
обновления в этом единственном файле - а
дальше генерирование веб-страниц чтобы делалось автоматически?

likbez

Цитата:

корректно (!)

Корректнее чем это сделать через Save as... можно лишь написав свой парсер (причем графики и прочую лабуду придется конвертить в картинки). Имхо овчинка выделки не стоит...

Помогите пож-та решить вот такую задачу:
у меня есть файл с большим кол-вом листов. На каждом листе столбец С - это данные по позициям в других столбцах. Эти данные - либо числа, либо буквенные обозначения. Вперемешку вобщем. Так вот - задача все численные значения увеличить на, например, 12%, а буквенные значения не трогать. Какой функцией воспользоваться чтобы это сделать и как ее прописать?


Спасибо,
Zerguei

Zerguei

Sub procent12()
For Each R In ActiveSheet.UsedRange.Rows
If IsNumeric(Cells(R.Row, 3)) Then
Cells(R.Row, 3) = Cells(R.Row, 3) * 1.12
End If
Next R
End Sub

Tropin
Упс. Спасибо конечно, но это Макрос уже? Я думал, что функцией можно будет ограничиться. В макросах не силен к сожалению -(

С уважением,
Zerguei

p.s. куда это нужно вписывать хоть? всеж стоит попробовать разобраться..


Спасибо.

Zerguei
В окне Экселя Сервис/Макрос/Редактор Visual Basic
В открывшемся окне редактора Insert/Module
В окно модуля вставляешь данный макрос и нажимаешь кнопку "Run Sub/UserForm" на панели инструментов.


Добавлено:
Только если, как ты говоришь, в книге листов много, то макрос лучше дополнить так, чтобы он работал сразу со всеми листами. Например:
Код: For Each S In ActiveWorkbook.Worksheets
S.Activate
For Each R In ActiveSheet.UsedRange.Rows
If IsNumeric(Cells(R.Row, 3)) Then
Cells(R.Row, 3) = Cells(R.Row, 3) * 1.12
End If
Next R
Next S

Troitsky
Спасибо.
Надо же как интересно и просто. вроде получилось.
Правильно ли я понял, что:

1.
Цитата:

For Each S In ActiveWorkbook.Worksheets

- тут S - это Sheet
2.
Цитата:

For Each R In ActiveSheet.UsedRange.Rows

- тут R - это номер столбца (для моего случая - это С)
3.
Цитата:

If IsNumeric(Cells(R.Row, 3)) Then

- Стобец R, строка 3

???


Спасибо огромное!!

wbr,
Zerguei

Добрый день.
Использую вот такой код:

Sub procent12()
For Each C In ActiveSheet.UsedRange.Rows
If IsNumeric(Cells(C.Row, 13)) Then
Cells(C.Row, 13) = Cells(C.Row, 13) * 1.12
End If
Next C
End Sub

и почемуто в столбце М появляются одни нули и все.
В чем может быть причина?

Добавлено:
Я понял свою ошибку, всем спасибо -))

For Each S In ActiveWorkbook.Worksheets
S.Activate
For Each R In ActiveSheet.UsedRange.Rows
If IsNumeric(Cells(R.Row, 3)) Then
Cells(R.Row, 3) = Cells(R.Row, 3) * 1.12
End If
Next R
Next S

С уважением,
Zerguei

спам.

Zerguei

Цитата:

тут R - это номер столбца (для моего случая - это С)

тут R - это текущая строка

Tropin
ага, а 3 - это номер столбца, я уже понял.

Спасибо.


Zerguei

to All
В ячейке A1 имеем m3. В ячейке A2 формула =A1 и соответственно значение m3. Вопрос: возможно ли, чтобы в ячейке A2 тоже было m3?

mp3exchanger ставишь абсолютную ссылку a2=$a$1. Если не то, то вопрос как-нибудь по другому сформулируй, не очень понятно.

Вопрос насчет сохранения формата данных? А кисть формата не помогает?

scup

Цитата:

как-нибудь по другому сформулируй, не очень понятно

Куда уж понятнее:

mp3exchanger
В каких случаях используется эта задача? ведь вычисления все равно проводить не сможешь.

mp3exchanger

Нет, невозможно. Верхний индекс - формат части содержимого ячейки - не имеет никакого отношения к самому содержимому (т.е. формула на формат не работает).

Tropin

Цитата:

Корректнее чем это сделать через Save as... можно лишь написав свой парсер

Этим методом - через Save as - получается УЖАС а не html. а как сохранить его чистый от мусора типа стилей?

likbez
я ж ответил уже

Цитата:

писать свой парсер

или идти в варезник и искать готовый конвертер!

Как мне число преобразовать в число прописью?
Есть там одна функция БАТТЕКСТ, но она возвращает иероглифы (в справке написано, что это тайский язык )))
Заранее спасибо!

toNk в яндексе задай макрос число прописью, ищется на ура.