muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

<!-- ナビゲーションバー -->
<div id="menubar">
 <ul>
 <li><a href="http://seo-analytics.hatenablog.com/index" title="SEO対策基本講座" >SEO対策基本講座</a></li>
 <li><a href="http://seo-analytics.hatenablog.com/adsense" title="">広告収入について</a></li>
 <li><a href="http://seo-analytics.hatenablog.com/web-marketing" title="ブログ集客について" >ブログ集客について</a></li>
 <li><a href="#" title="ブログデザインについて" >ブログデザインについて</a></li>
 </ul>
</div>

muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

/* 2016-05-05*/
<!-- メニューバー -->
#menubar{
 width:100%; 
}

#menubar ul{
 display:table;
 width:100%;
 margin: 20; 

muramoto1041

/* 2018-06-02 */
 /*
 * 読者になるボタン
 */

/*共通の読者ボタンの設定*/
.hatena-follow-button {
  font-size:15px;                /*文字の大きさ*/
  border: 0px !important;        /*枠線なし*/
  width: 100px;                  /*ボタンの横幅*/

muramoto1041

'(1)JSONデータを解析し、オブジェクト変数に格納
Dim objJson As Object
Set objJson = js.CodeObject.eval("(" + resText + ")")

'(2)解析済みのJSONデータの件数を取得
Dim objRowCount As Integer
objRowCount = CallByName(objJson, "length", VbGet)

'(3)結果をワークシートへ転記
For idx = 0 To objRowCount - 1 'データの件数だけ繰り返す