АРМАДА
Продвинутый анализ источников трафа: GoogleAnalytics + Excel
Новая тема Написать ответ Advanced Hosters - профессиональный хостинг

dimok
Опытный
Зарегистрирован: 08.06.2007
Сообщений: 494
Обратиться по нику
# Добавлено:Вт Ноя 09, 2010 4:31 pmДобавить в избранноеОтветить с цитатой
Уверен, что все вы мониторите источники трафика на своих сайтах и блогах. Я не буду описывать стандартные методы, а сразу расскажу об одном интересном способе определить, какие источники трафика стали давать больше трафика, а какие просели. В 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



В итоге получим новый лист, в котором можно сортировать по росту/падению все источники:



Надеюсь, все понятно рассказал? Более детальная инструкция [URL="http://blog.dimok.ru/prodvinutyiy-analiz-istochnikov-trafika-google-analytics-excel"]у меня на блоге[/URL].
Блог, актуальные киворды, бесплатные киворды
Rotaban - продавайте рекламу на своих блогах!

deBrain
V.I.P.
Зарегистрирован: 03.06.2010
Сообщений: 1569
Обратиться по нику
# Добавлено:Вт Ноя 09, 2010 7:24 pmОтветить с цитатой
интересно.
+7
Надо будет попробовать как-нибудь)
Правильно вкладываем свободные средства в ПАММ
Правильный хостинг: DigitalOcean
Новая тема Написать ответ    ГЛАВНАЯ ~ ТЕХНИЧЕСКИЕ ВОПРОСЫ

Перейти:  





Генеральный спонсор



Партнеры