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