фильтрация и анализ даных

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

фильтрация и анализ даных (Макросы/Sub)

niru1980

Дата: Четверг, 05.06.2014, 14:14 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Есть таблица типа
ком1 ком2 п1 н п2 тм тб дата с м с 1т рез т м п1 н п2 тм 1.5 тм 2.5 тб 2.5 тб 3.5 тб 4.5
Футбол. Товарищеские матчи. Сборные.
Юж. КореяТунис 1.68 3.38 5.74 1.63 2.32 28.05.2014 0х1 0х1 п2 1 0 0 1 1 1 0 0 0
Дания Швеция 2.37 3.13 3.13 1.74 2.12 28.05.2014 1х0 0х0 п1 1 1 0 0 1 1 0 0 0
ШотландияНигерия 3.58 2.97 2.27 1.56 2.47 28.05.2014 2х2 1х1 н 4 0 1 0 0 0 1 1 0
Марокко Ангола 2.27 3.02 3.53 1.63 2.32 28.05.2014 0х2 0х0 п2 2 0 0 1 0 1 0 0 0
Мексика Израиль 1.48 3.88 7.59 1.74 2.12 29.05.2014 3х0 1х0 п1 3 1 0 0 0 0 1 0 0

нужно создать сводную таблицу в которой будут статистические даные по типу указаные на 3 странице
пример
отфильтровать все строки по столбцу п1=1,81 у нас 4 матча результат матча п1 был 2 раза н 2 раза тм 1,5 3 раза и т д
нужно вычислить текушую серия невыподения определеного исхода матча
нужно вычислить максимальную серию невыподения нужного определеного исхода матча
делал все это формулами но в связи с большим объемом эксел зависал

К сообщению приложен файл: 11.rar (98.2 Kb)

Сообщение отредактировал niru1980 - Четверг, 05.06.2014, 14:16

Ответить

niru1980

Дата: Четверг, 05.06.2014, 15:54 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

записаный макрос который делает выборку и копирует на новый лист эту выборку

[vba]

Код

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+и
'
      ActiveSheet.Range("$A$2:$U$707").AutoFilter Field:=3, Criteria1:="1.81"
      Cells.Select
      Range("U676").Activate
      Selection.Copy
      Sheets.Add After:=Sheets(Sheets.Count)
      ActiveSheet.Paste
      ActiveWindow.SmallScroll Down:=-24
      Range("J3").Select
      ActiveWindow.SmallScroll Down:=6
End Sub

[/vba]

нужно чтоб он автоматом прошелся по всем коэфициентам сушествуюшим коэфициентам столбца п1

создал новый лист с названием именно лист 3

Сообщение отредактировал niru1980 - Четверг, 05.06.2014, 15:55

Ответить

niru1980

Дата: Четверг, 05.06.2014, 16:12 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

записаный макрос вычисления сумм по столбцам и копирует значение в сводную таблицу
[vba]

Код

Sub Макрос3()
'
' Макрос3 Макрос
'
' Сочетание клавиш: Ctrl+т
'
     Range("N1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[735]C)"
     Range("O2").Select
     ActiveWindow.SmallScroll Down:=-15
     Range("O1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[739]C)"
     Range("P1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[716]C)"
     Range("Q1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[715]C)"
     Range("R1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[713]C)"
     Range("S1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[712]C)"
     Range("T1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[714]C)"
     Range("U1").Select
     ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[713]C)"
     Range("N1").Select
     Sheets("Лист3").Select
     Selection.Copy
     Sheets("свод").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
End Sub

[/vba]
как указать чтоб он копировал значение сумму с колонки п1 листа 3 в колонку п1 строки 1,81 листа свод

Ответить

фильтрация и анализ даных (Макросы/Sub)

Страница 1 из 1
1