Google SpredSheetでのAnalyticsの集計で週単位の期間を表示する方法

B2にga:yearWeekを表示しているときの式

=IF(B2="","",IF(MID(B2,5,2)="01",TEXT(DATE(MID(B2,1,4),1,1),"YYYY/MM/DD"),TEXT(DATE(MID(B2,1,4),1,1)+7*(MID(B2,5,2)-2)+7-WEEKDAY(DATE(MID(B2,1,4),1,1))+1,"YYYY/MM/DD"))&"～"&IF(MID(B2,5,2)="53",TEXT(MID(B2,1,4)&"/12/31","YYYY/MM/DD"),IF(MID(B2,5,2)="01",TEXT(DATE(MID(B2,1,4),1,1)+7*(MID(B2,5,2)-2)+7-WEEKDAY(DATE(MID(B2,1,4),1,1))+7,"yyyy/mm/dd"),TEXT(DATE(MID(B2,1,4),1,1)+7*(MID(B2,5,2)-2)+7-WEEKDAY(DATE(MID(B2,1,4),1,1))+7,"yyyy/mm/dd"))))

ネタ元

• http://parastripdiary.net/2018/10/25/googleanalytics-autoreport-yyyyww/#YearweekYYYYWWYYYYMMDD

excelvbaでArray()に引数で配列を渡すと2次元配列になる

Dim items() As Variant
...

'2次元配列になっちゃうので1次元配列にする
t100_array = Array(items)
t100_array = t100_array(0)

excel VBAで今日の日付をyyyymmdd形式で取得する

Format(Date, "yyyymmdd")

ネタ元

• https://www.relief.jp/docs/excel-vba-today-yyyymmdd.html

excelvbaにてVBA-JSONを利用したjsonのパース＆読み込み例

こういうデータの場合

{
	"20191031":[
			1605,1878,1925,1928,2502,2503,2802,2914,3382,3402,
			3407,4063,4188,4452,4502,4503,4507,4519,4523,4528,
			4543,4568,4578,4661,4901,4911,5020,5108,5401,5713,
			5802,6098,6178,6273,6301,6326,6367,6501,6503,6594,
			6702,6752,6758,6861,6869,6902,6954,6971,6981,7011,
			7201,7202,7203,7267,7269,7270,7733,7741,7751,7832,
			7974,8001,8002,8031,8035,8053,8058,8113,8267,8306,
			8308,8309,8316,8411,8591,8601,8604,8630,8725,8750,
			8766,8801,8802,8830,9020,9021,9022,9201,9202,9432,
			9433,9434,9437,9502,9503,9531,9735,9843,9983,9984
	],
	"20190131":[
			1605,1878,1925,1928,2502,2503,2802,2914,3382,3402,
			3407,4063,4188,4452,4502,4503,4507,4523,4528,4543,
			4568,4578,4661,4901,4911,5020,5108,5401,5411,5713,
			5802,6098,6273,6301,6326,6367,6501,6503,6594,6702,
			6752,6758,6861,6869,6902,6954,6971,6981,6988,7011,
			7201,7202,7203,7261,7267,7269,7270,7741,7751,7974,
			8001,8002,8031,8035,8053,8058,8113,8267,8306,8308,
			8309,8316,8411,8591,8601,8604,8630,8725,8750,8766,
			8795,8801,8802,8830,9020,9021,9022,9064,9201,9202,
			9432,9433,9434,9437,9502,9503,9531,9735,9843,9983,9984
	],
	...
}

コード。VBA-JSONは標準モジュールに組み込み済であること。

Dim Parsed
Set Parsed = JsonConverter.ParseJson(JsonText)

Dim Member
For Each Member In Parsed

    Debug.Print Member

    Dim Item
    For Each Item In Parsed(Member)

	Debug.Print Item

    Next

Next

ネタ元

• https://qiita.com/emesh/items/0834a5ad373d2ade6a93

excel vba でファイルを一気に読み込む

Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Dim f As file
Set f = fso.GetFile("c:\hoge.json") ' ファイルを取得

Dim JsonText As String
JsonText = f.OpenAsTextStream.ReadAll

ネタ元

• http://officetanaka.net/excel/vba/file/file08b.htm

「googleads.g.doubleclick.net」というリファラ/参照元は Adsense広告からの流入じゃなくて、関連コンテンツからかも

Adsenseに広告出してなくてもくるので、そういう事かもしれない。
確証はない。

ネタ元

• https://moimoi-days.com/%E3%80%8Cgoogleads-g-doubleclick-net%E3%80%8D%E3%81%A8%E3%81%84%E3%81%86%E3%83%AA%E3%83%95%E3%82%A1%E3%83%A9-%E5%8F%82%E7%85%A7%E5%85%83%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E8%AA%BF%E3%81%B9%E3%81%A6/

WEB サイトの全ページをまとめてPDF出力する方法

Adobe Acrobat DCでPDF作成をして「Webページ」からを選ぶ

体験版でもできるよ。

ネタ元

• http://mubz.jp/2013/12/15/22427/#.XYYdlij7TDc

家のプリンターで名刺印刷する方法

パワポで新規作成し、「新しい文書」からオンラインの検索窓に「名刺」と入れ検索する

ネタ元

• https://ink-revolution.com/contentsplus/original-meishi/

Adobe XDでスクロールさせる方法

スペースキー押しながらドラッグ

ネタ元

• https://qiita.com/hiro93n/items/fddec8b36e06643d136b

Amazon Lightsailでwordpress作成＆ログイン方法

Amazon Lightsailで一番安いプランでWordpress作る。2019/9/20時点では $3.5 / 月。

SSHで接続。ログインパスワードを以下のコマンドで確認。

cat /home/bitnami/bitnami_application_password 

最初なのでIPで直アクセス。https://XXX.XXX.XXX.XXX
ユーザー名は user でログインする。

ネタ元

• https://qiita.com/na0AaooQ/items/781b3823b79fd3b747a3