Format(Date, "yyyymmdd")
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
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
家のプリンターで名刺印刷する方法
パワポで新規作成し、「新しい文書」からオンラインの検索窓に「名刺」と入れ検索する
Adobe XDでスクロールさせる方法
スペースキー押しながらドラッグ
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 でログインする。
Excel2013、Excel2010、Excel2007等古いエクセルでIFSを使う方法
IFSを自前で実装する
Function IFS(ParamArray par()) Dim i As Integer IFS = CVErr(xlErrNA) If UBound(par) Mod 2 = 0 Then Exit Function End If For i = LBound(par) To UBound(par) - 1 Step 2 If par(i) Then IFS = par(i + 1) Exit Function End If Next End Function
ページを全部読み込み前にjavascriptを実行する
onloadイベントより早いタイミングで実行されるDOMContentLoadedイベントを使う。
window.addEventListener("DOMContentLoaded", function(){ // 画面読み込み時の初期処理とか書く。 }, false);