Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Количество формул в книге Excel
 
#1
02.10.2012 14:59:52
Здравствуйте!  
Возник такой интересный вопрос! Почти 2 года создаю программу в Excel, интересно было бы знать сколько же формул использовано для программы. Может кто знает, подскажите, пожалуйста?
 
 
 
#2
02.10.2012 15:06:52
Формул бесконечное множество, а вот функции, думаю, можете подсчитать сами.  
http://office.microsoft.com/ru-ru/excel-help/HP010342656.aspx  
 
(если я конечно правильно понял Ваш вопрос)  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#3
02.10.2012 15:09:48
Автору интересно узнать количество созданных формул.  
 
Найти/Заменить "=". Приблизительно узнаете.
 
 
 
#4
02.10.2012 15:11:01
Вопрос, думаю, в другом: сколько в книге использовано различных формул. Пробежаться по листу/листам, и посчитать - сколько ячеек, в которых формула (.HasFormula)
 
 
 
#5
02.10.2012 15:12:02
Точно. Чета я фразу "формул использовано для программы" отнес к Excel :-) Виноват.
Учимся сами и помогаем другим...
 
 
 
#6
02.10.2012 15:15:26
Таким способом Excel не может посчитать количество "=" - недостаточно памяти
 
 
 
#7
02.10.2012 15:18:31
Все таки подсчитал количество формул способом найти "=" !!! С ума сойти книга содержит  65 472 формул!!!
 
 
 
#8
02.10.2012 15:19:45
Если в столбце 100 ячеек с формулой, полученные "растягиванием" - это одна формула или 100?  
Количество уникальных формул можно получить с помощью коллекции/словаря, используя в качестве ключа .FormulaR1C1 (формула в стиле R1C1 не меняется при копировании ячейки).
 
 
 
#9
02.10.2012 15:20:18
Формул меньше, так как внутри их тоже находилось "=".  
Но никому не говорите и требуйте по 10 руб. за формулу :)
 
 
 
#10
02.10.2012 15:21:21
таким способом "=СЧЁТЕСЛИ(A1:A100;"="&B1)" или "=ЕСЛИ(A1=A2;A1;B1)" посчитаются два раза. разве нет?
Учимся сами и помогаем другим...
 
 
 
#11
02.10.2012 15:24:30
Да, согласен. А какже тогда все таки посчитать именно формулы? Может есть еще какие варианты? Считать формулой на каждом листе не практично, листов 32 шт.
 
 
 
#12
02.10.2012 15:26:12
На обратили внимание на сообщения Юрия М и Казанского?
 
 
 
#13
02.10.2012 15:32:40
Внимание обратил, только не совсем понимаю что такое ключ .FormulaR1C1, как им воспользоваться, и что такое HasFormula, как этим воспользоваться, пожалуйста, разъясните.
 
 
 
#14
02.10.2012 15:35:50
Тогда без макросов: F5 - выделить - формулы. На строке состояния правый клик - количество значений.
 
 
 
#15
02.10.2012 15:35:51
А еще формулы могут находиться в Условном форматировании, Проверке данных и в Именах! :)
 
 
 
#16
02.10.2012 15:37:35
Зачем?  
Помните мультик "33 попугая"?  
Если посчитать знаки во всех формулах, получится гораздо больше :)
 
 
 
#17
02.10.2012 15:45:16
С помощью F5 посчитал, если я правильно понимаю такой метод подсчета для открытого листа?  
Господин, Казанский! У может у Вас есть коммерческое предложение на этот счет? Где формулы могут содержатся я знаю, а вот их количество...
 
 
 
#18
02.10.2012 15:53:12
Попробуйте макрос для подсчета формул на листах. В условных форматах и т.д. - это уже коммерческое :)  
 
Sub bb()  
Dim i&, ws, c  
On Error Resume Next  
With CreateObject("scripting.dictionary")  
   For Each ws In ActiveWorkbook.Worksheets  
       For Each c In ws.Cells.SpecialCells(xlCellTypeFormulas)  
           .Item(c.FormulaR1C1) = .Item(c.FormulaR1C1) + 1  
       Next  
   Next  
   For Each c In .items  
       i = i + c  
   Next  
   MsgBox "Ячеек с формулами на листах книги: " & i & vbLf & _  
       "Уникальных формул: " & .Count  
End With  
End Sub
 
 
 
#19
02.10.2012 15:58:00
Алексей, уникальные с ошибкой. В двух ячейках формула =A1, считает, как разные.
 
 
 
#20
02.10.2012 16:15:54
Спасибо, Юрий! Они разные в стиле R1C1.  
Понятно, как поправить. Но только в коммерческой версии :)
 
 
 
Страницы: 1
Читают тему
Наверх