09.11.2010, 16:27 | #1 |
Специалист
Регистрация: 21.09.2007
Сообщений: 177
Вес репутации: 216
|
Продвинутый анализ источников трафика: Google Analytics + Excel
Уверен, что все вы мониторите источники трафика на своих сайтах и блогах. Я не буду описывать стандартные методы, а сразу расскажу об одном интересном способе определить, какие источники трафика стали давать больше трафика, а какие просели. В Google Analytics выбираем “сравнение с прошлым”:
Динамику изменений можно брать за любой промежуток: сначала настраиваете “диапазон дат”, а потом ставите галочку в “по сравнению с прошлым” и там автоматически появится нужное количество дней назад в историю. Очень удобно пользоваться. Там нужно сделать экспорт в CSV. По умолчанию будет экспортировано то количество элементов, которое отображается у вас на экране (изначально 10). Однако есть небольшая хитрость, как это количество можно увеличить: выбирайте сначала вывод 25 элементов, затем копируйте ссылку для экспорта, а после в этой ссылке надо один параметр изменить: Теперь будет экспортировано 1000 элементов. Ограничение вроде бы 50 000. Полученный файлик будет не очень удобоваримым, конечно, поэтому для его "причесывания" надо натравить на него следующий макрос: Код:
Sub custom_report_1_traffic_sources() maxRecords = 65536 ' Change this in case you've got more records in your Excel worksheet j1 = 1 Set oldSheet = Sheets(1) Set NewSheet = Sheets.Add(After:=Worksheets(Worksheets.Count)) NewSheet.Cells(1, 1).Value = "Источник" NewSheet.Cells(1, 2).Value = "Было" NewSheet.Cells(1, 3).Value = "Стало" NewSheet.Cells(1, 4).Value = "Разница" For i1 = 1 To maxRecords If oldSheet.Cells(i1, 1) = "Динамика (%)" Then ' заполняем строки нового листа NewSheet.Cells(j1 + 1, 1).Value = oldSheet.Cells(i1 - 3, 1) NewSheet.Cells(j1 + 1, 2).Value = oldSheet.Cells(i1 - 1, 2) NewSheet.Cells(j1 + 1, 3).Value = oldSheet.Cells(i1 - 2, 2) NewSheet.Cells(j1 + 1, 4).Value = NewSheet.Cells(j1 + 1, 3).Value - NewSheet.Cells(j1 + 1, 2).Value j1 = j1 + 1 End If Next i1 ' сортируем With NewSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range("A:D") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With NewSheet.Range("A1:D1").Font.Bold = True ' раскрашиваем колонку с разницей Range("D:D").Select Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=3) End Sub Надеюсь, все понятно рассказал? Более детальная инструкция у меня на блоге.
__________________
Новостной удар от Сапе И не забывайте читать блог Димка! |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Google Analytics + Sape | binladen | Вопросы по работе системы | 13 | 24.06.2010 17:56 |
Вопрос по Google Analytics | del3 | Google, MSN, Yahoo | 0 | 01.12.2009 18:16 |
Объединение Google AdSense и Google Analytics | magura888 | Google, MSN, Yahoo | 10 | 23.11.2009 23:23 |
Google Analytics | Bessel | Google, MSN, Yahoo | 2 | 22.05.2008 00:20 |
Google AdSense & Google Analytics | tpnetman | Контекстная реклама | 12 | 20.06.2007 02:36 |
Часовой пояс GMT +3, время: 21:09.