高速料金検索アプリ　(インターチェンジ入力不要、高速料金比較)

高速料金って本当に検索しづらいですよね。。

ネクスコなどの検索は、「IC」を指定しないと出ないし、
googlemapだと、高速料金が出ない。。。。。笑

ということで、今回は「高速料金検索」のWEBアプリを作成してみました！

簡単な中身

①出発地、目的地をgoogleマップで検索。緯度と経度を取得。

②その情報をmapfanで検索、必要な情報を取ってくる

という流れで、WEBアプリを作成しました！！

mapfanさんには感謝感謝です！！

高速料金と、GOOGLEMAPのリンクが表示されます。

少し題名が詐欺になってしまっていることご了承ください。。。
これが限界でした。。

GOOGLEMAPで高速料金を表示させる方法！！

最強のマップアプリ、グーグルマップですが、
ひとつだけ残念なところがあります。

それが、高速料金が表示されないこと。。。。

最近、高速料金が高くなってきましたし、
結構困りますよね。。

そこで今回は、グーグルマップで検索するとともに、
mapfanさんでも検索をかけ、そこから高速料金を参照するプログラムを作成しました！

プログラムで行っていること

プログラムで行っていることは、

①グーグルマップの
　「施設名　→　緯度と経度を検索」
　できる機能を使って、緯度と経度を確認。

②その情報をmapfanさんで検索

③mapfanさんの高速料金のデータを引っ張ってくる

プログラムを作成しています。

mapfanさんのアプリも停止してしまっていますし、
これが最善かと思います。。

まとめ

グーグルマップで直で検索かけることはできませんでしたが、
どうにか連携させて、高速道路料金をすることができました！！

ICなどを入力する必要もありませんので、
ぜひ使ってみてください！！！

高速料金検索(出発地と目的地から)|インターチェンジ入力不要！

高速料金って本当に検索しづらいですよね。。

ネクスコなどの検索は、「IC」を指定しないと出ないし、
googlemapだと、高速料金が出ない。。。。。笑

ということで、今回は「高速料金検索」のWEBアプリを作成してみました！

簡単な中身

①出発地、目的地をgoogleマップで検索。緯度と経度を取得。

②その情報をmapfanで検索、必要な情報を取ってくる

という流れで、WEBアプリを作成しました！！

mapfanさんには感謝感謝です！！

【簡単】VBAとIEでページ内の商品情報(div)を順番にすべて取り出す方法

VBAを用いてIEを動かし、HTMLの情報を持ってくることに慣れてくると、

Div

の内容を書き出したいという要望が出てくると思います。

というのも、「DIV」とは、単体では特に意味を持たないタグですが、
<div>で囲った部分をブロックレベル要素としてグループ化することができるタグになっています。

グループ化することで、
・水平方向の位置をまとめて指定したり、
・指定した範囲にスタイルシートを適用したりすることができる
ため、商品の情報などは、divタブに囲まれていることが多々あります。

例えば、楽天の商品ですが、下記のように、
div でグループ化されており、
class="dui-card searchresultitem"が紐づけられています。

ですので、商品情報を持ってきたい場合、
classnameが、"dui-card searchresultitem"のdivの内容順番に取り出すて行くことで、
表示されているページの、商品情報の一覧を得ることができます。

コードサンプル

コードのサンプルとして、
「ふるなび」のあるページの商品情報を持ってくるコードを書いてみました。

ふるなびの場合、"product-info"がクラスネームになっておりますので、

・If A.className = "product-info" Then　(product-infoだった場合、)
・For Each B In A.ALL　　(div内の要素を取りだし)
・YOUSO(i + 1, J) = B.INNERTEXT　(innertextを配列に格納)

最後にエクセル内に書き出すことで、商品情報一覧を書き出しています。

Sub IEoutput2()
  
 Application.ScreenUpdating = False
   
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://furunavi.jp/Product/Search?subcategoryid=164,165,166,167,168&categoryid=17&order=3&layout_toggle=2&pagesize=100"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
  
    i = 1  '開始行を指定
    J = objIE.document.ALL.Length  '要素の数を知る
      
     
     Dim A As Object
     
        Application.Wait Now() + TimeValue("00:00:03")
     
       
    Dim YOUSO(10000, 0 To 14) As String
    J = 0
        
    For Each A In objIE.document.getElementsbytagname("*")
    
    If A.className = "product-info" Then

        For Each B In A.ALL
         YOUSO(i + 1, J) = B.INNERTEXT
         J = J + 1
         
        Next

        J = 0
        i = i + 1
           
       
    End If
                    

        
    Next
      
    Range(Cells(2, 2), Cells(i, 15)) = YOUSO
 
     Cells.WrapText = False
  
  
 Application.ScreenUpdating = True
 Application.StatusBar = False
  
   
End Sub

重要な要素を簡単に説明

特に難しいところはないと思いますが、特定のページを立ち上げた後、

まずは、

For Each A In objIE.document.getElementsbytagname("*")

で、HTMLのすべての要素を検索しに行っています。

その中で、classnameが特定の値であった場合、分岐させて、

For Each B In A.ALL

で次はdivの中身を検索しに行っています。
中身の情報は、
divごとに行を分け、
列方向に、情報を書き出していっています。

まとめ

このコードを覚えることで、
様々なサイトの商品情報などを簡単にまとめることができます。

ぜひ一度試してみてください。

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！

【まとめ】VBAでIEを動かすプログラムまとめ！

まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...

nujonoa.com

2020.06.10

VBAでIEを操作する方法はネットを検索しても、
まだ確立されきっていないように感じますので、
素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。

【簡単】VBAで既に開いているIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作

VBAの入門編として、まずIEの画面を表示させる必要があります。
下記コードでは、既に開いているグーグルのページを開くための
コードを記載してみました。

ダブルクリックでコピーできますのでとりあえず張り付けて実行してみてください。

グーグルの検索ページが開いている状態で実行すると
当ブログが検索されると思います。

Sub IEdisplay2()

'IEの起動
Dim objIE As Object 'IEを格納する変数（オブジェクト型）
Dim sh As Object '起動中のShellWindow一式を格納する変数
Dim win As Object 'ShellWindowを格納する変数

Dim document_title As String 'ドキュメントタイトルの一時格納変数
'起動中のShellWindow一式を変数winsに格納
Set sh = CreateObject("Shell.Application")
'ShellWindowから1つずつ取得して処理
For Each win In sh.Windows
'ドキュメントタイトル取得失敗を無視（処理継続）
On Error Resume Next
document_title = ""
document_title = win.document.Title

Debug.Print document_title

On Error GoTo 0
'タイトルバーにGoogleが含まれるかチェック
If InStr(document_title, "Google") > 0 Then
'変数ieに取得したwinを格納
Set objIE = win
'ループを抜ける
Exit For
End If
Next


    Dim A As Object
        
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
       
        If A.Name = "q" Then A.Value = "nujonoa_blog" '②IF分で入力したい要素を見つけて　③値を代入
        
    Next
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
       
        If A.Name = "btnK" Then A.Click '②IF分で入力したい要素を見つけて　③Click
        
    Next
       
    On Error GoTo 0

End Sub

重要な要素を簡単に説明

重要な要素簡単に説明していこうと思います。

Set objIE = GetObject("", "InternetExplorer.Application")objIE.Visible = True

GetObject(pathname, class)は、

GetObject(pathname, class)は、
外部のアプリケーションにアクセスする関数になっています。
今回はIEに接続するので、classに”InternetExplorer.Application”を入力しています。
これを"Word.Application"に変えるとワードが開けるなどなど
microsoftのアプリケーションにアクセスするための最初の手段となっております。

Set ○○=▲▲　

Set ○○=▲▲　は○○を▲▲として扱うというものになり、
簡単な例を示すとでいうと、
Set C11=worksheets("sheet1").cells(1,1)とすると、
それ以降、C11は worksheets("sheet1").cells(1,1) の代わりになります。
ですので、
worksheets("sheet1").cells(1,1).value　は　C11.value　と非常にシンプルに置き換えることができます。
今回はこれ以降、objIE を GetObject("", "InternetExplorer.Application")として取り扱います。

objIE.Visible = True

GetObject関数でIEは開いているのですが、
バックグラウンドで開いているだけになっていますので、
.visible＝trueとすることで、表示をさせることができます。

objIE.Navigate "URL"

.Navigate "URL"を用いることで、任意のURLを表示させることができます。
現在はサンプルサイトを表示されるようにしておりますが、
任意のURLに置き換えていただけたらと思います。

While objIE.ReadyState <> 4 Or objIE.Busy = True DoEvents Wend

重たいサイトなどは読み込みをしないと次の動作に移れませんので、
読み込みを完了するのを待つためのコードです。

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！

【まとめ】VBAでIEを動かすプログラムまとめ！

まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...

nujonoa.com

2020.06.10

↓のサイトで、IEを表示することができました。
次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。

【簡単】VBAでIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作

VBAでIEを操作する方法はネットを検索しても、まだ確立されきっていないように感じますので、素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。VBAでIEの任意のサイトを表示させる方法VBAの入門編として、まずIEの画面...

nujonoa.com

2020.06.10

VBAでIEの全要素のデータを取得する方法

マクロでIEを操作して行いたいことは、
①サイト内のデータを取得。
②検索ボックスなどテキストに代入。
③検索ボタンなどをプッシュする。
ことなどだと思います。この操作を行うためには、まずhtmlコードを読み解く必要があります。
下記コードは「グーグルの検索サイト」の
htmlコードを読み取るために、全ての要素をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IEoutput2()
 
 Application.ScreenUpdating = False
  
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
  
Set objIE = GetObject("", "InternetExplorer.Application")
  
objIE.Visible = True
      
      
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
      
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
  
'****今日はここから↓***************************************************
  
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
 
    i = 1  '開始行を指定
    J = objIE.document.all.Length  '要素の数を知る
     
    Cells(i, 1).Value = "uniqueID"
    Cells(i, 2).Value = "tagname"
    Cells(i, 3).Value = "Type"
    Cells(i, 4).Value = "NAME"
    Cells(i, 5).Value = "ID"
    Cells(i, 6).Value = "className"
    Cells(i, 7).Value = "TABINDEX"
    Cells(i, 8).Value = "Vakue"
    Cells(i, 9).Value = "checked"
    Cells(i, 10).Value = "親のtagname"
    Cells(i, 11).Value = "innertext"
    Cells(i, 12).Value = "outertext"
    Cells(i, 13).Value = "outherhtml"
    Cells(i, 14).Value = "innerhtml"
     
     Dim A As Object
      
    Dim YOUSO(1000, 1 To 15) As String
    
       
    For Each A In objIE.document.getElementsbytagname("*")
      
      
 
        YOUSO(i + 1, 1) = A.uniqueID                'uniqueID
        YOUSO(i + 1, 2) = A.TAGNAME                 '親のTAG
        YOUSO(i + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        YOUSO(i + 1, 4) = A.Name                    '名前
        YOUSO(i + 1, 5) = A.ID                      'ID
        YOUSO(i + 1, 6) = A.className               'クラス名
        YOUSO(i + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        YOUSO(i + 1, 8) = A.Value                   '値
        YOUSO(i + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        YOUSO(i + 1, 10) = A.parentElement.TAGNAME  '親のTAG
  
  
  
        If Len(A.innerHTML) > 50 Then
          
            YOUSO(i + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            YOUSO(i + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            YOUSO(i + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            YOUSO(i + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
  
        Else
          
            YOUSO(i + 1, 11) = A.innertext
            YOUSO(i + 1, 12) = A.outertext
            YOUSO(i + 1, 13) = A.outerHTML
            YOUSO(i + 1, 14) = A.innerHTML
                      
        End If
          
        Dim C(20) As String
 
        '階層を表示
        For Z = 1 To 20
            C(Z) = A.TAGNAME
            If A.TAGNAME = "HTML" Then Exit For
            Set A = A.parentElement
        Next
 
        For L = Z To 1 Step -1
            Cells(i + 1, 30 + Z - L) = C(L)
        Next
          
          
        i = i + 1
          
        'ステータスバーに進捗を表示
        Application.StatusBar = i & "/" & J
       
    Next
     
    Range(Cells(2, 1), Cells(i, 14)) = YOUSO 

     Cells.WrapText = False
 
 
 Application.ScreenUpdating = True
 Application.StatusBar = False
 
'表示を固定
Columns(1, 9).AutoFit
Cells(1, 2).EntireColumn.Interior.ColorIndex = 6
Cells(2, 3).Select
ActiveWindow.FreezePanes = True
objIE.document.getElementsByName("q")(0).Value = "テスト"
  
End Sub

プログラムを簡単に説明

少々長くなりましたが、やっていることは簡単で、サイトを表示させた後、
For Each A In objIE.document.getElementsByTagName("*")　～～～　Next
で全要素を検索し、要素内の属性やデータを抜き出して、エクセルに張り付けていっています。
.document.getElementsByTagName("○○") でTagNameが○○のものを取り出せるのですが、
＊を使うことで、ワイルドカードとして全種類検索することを可能としています。

実行結果を確認する。

実行すると、下記のようなデータがエクセルに書き出されたと思います。
抜き出す属性やデータとしては、

①uniqueID ②tagname ③Type ④NAME ⑤ID ⑥className ⑦TABINDEX ⑧Vakue ⑨checked ⑩親の⑪tagname ⑫innertext ⑬outertext ⑭outherhtml ⑮innerhtml

を取り出してみました！
基本的に、VBAでIEを操作するときには、
②のTagNameを使って要素を取り出し、④⑤⑧などのデータを用いて要素を特定。
その後「.Click」などを使ってIEを操作していきます。

ちなみにこのプログラムでは最後に、google検索欄に「テスト」と入力するために下記コードを入れておきました。
objIE.document.getElementsByName("q")(0).Value = "テスト”。
次からはこのように抜き出した要素を使って、IEを操作していきたいと思います！

P.S.
document.getElementByなどなどvbaではあまり見ない関数だなと思っていたら、
javasprictからきているようですね。まだまだ奥が深いようです…

[JavaScript] あらゆる要素を取得する

最近JavaScriptの勉強をしている@yasumohaです。始めたばかりなのでまだまだ基本ができていません。そんな訳で、今回はDOM要素を取得するメソッドをまとめてみたいと思います。IDを指定して取得するdocument.getElem

yasumoha.com

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！

【まとめ】VBAでIEを動かすプログラムまとめ！

まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...

nujonoa.com

2020.06.10

動画も編集も！ブログで使えるパソコンのスクリーンショットのおすすめソフト！

ブログを書くようになって、操作の説明のために、
・パソコンの画面をスクリーンショットすること、
・パソコンの画面を動画で録画
が多くなりました。

そこで今回は、その操作に最適な、「Screenpresso」の紹介をしていきたいと思います。

キャプチャーの履歴を保存でき、画像編集にも対応したキャプチャーツール「Screenpresso」

キャプチャーの履歴を保存でき、画像編集にも対応したキャプチャーツール「Screenpresso」の評価とレビュー、ダウンロードや使い方を解説します。取得したキャプチャーがワークスペース（フォルダー）に次々と保存されていくので、必要なキャプチ...

freesoft-100.com

Screenpressoのすごいところ

Screenpressoのすごいところは

なところです！！

たとえば、こんなような手順書をほんの数十秒で作成することができます。

それでは、１つずつ利点を説明していきたいと思います。

スクショをとったら勝手に立ち上がる。

まず、スクショをとったら勝手に立ち上がってくれることです。
これが地味に一番便利な機能です。

スクショをとった画像を編集するには、
ペイントに張り付ける、エクセルに張り付けるなどなどの作業をしないといけないですが、
screeenpressoの場合は勝手に立ち上がってくれます。

スクリーンショットをとった後、
説明文を入れていく必要があるかと思いますが、
ボタンを押すと画面が移り変わっていくものを説明したいときには、
この張り付けて編集という作業がめんどくさいんですよね。。。

加工が簡単！！そしておしゃれ！！

第2にお勧めのところは、加工が簡単！！なところです。

スクリーンショットを取る意味は、その画像を使って何かを説明するためにあります。
screenpressoの編集画面は、下記の通り説明するためのツールがそろっています。

直感的に見てわかると思いますが、
左から「矢印」「四角」「テキスト」「テキストボックス」「番号」「マーカー」…
と説明に必要なツールがいろいろとそろっています。
その中でも、番号のツールは、①②③と押すたびに勝手に番号を足していってくれますので、
非常に便利です。
そして、無駄におしゃれです。矢印も気を引くデザインにできますし、
虫眼鏡でそこだけ協調などもできます。

先ほどの例でお見せした画像は下記の通り編集しています。
ほんの数十秒であのような画像を作ることができるのです。

動画もとれる！

動画も簡単に撮ることが可能です。
下記のように、動画をとるための枠を決定し、
PrtScを押すことで開始、停止をさせることができます。

上記の動画もこの機能を使って作成しました。
動画の編集などはできませんが、mp4で保存できますので、
ぜひ使ってみてください！

まとめ

繰り返しますが、screenpressoは3拍子揃ったソフトになります！
1回使ったら手放せなくなること間違いなしだと思います。
フリーでも十分使えますので、一度使ってみてください！

キャプチャーの履歴を保存でき、画像編集にも対応したキャプチャーツール「Screenpresso」

キャプチャーの履歴を保存でき、画像編集にも対応したキャプチャーツール「Screenpresso」の評価とレビュー、ダウンロードや使い方を解説します。取得したキャプチャーがワークスペース（フォルダー）に次々と保存されていくので、必要なキャプチ...

freesoft-100.com

【手持ち扇風機が最強！】バーベキューで簡単に火を起こす方法！

バーベキューでさらっと火を起こせる人はかっこいい！！

そんな時代は終わってしまうかもしれません。。

というほどの「手持ち扇風機」は最強の火おこしの道具となります！

手持ち扇風機を使った火のおこしかた！

まずバーべキューの火おこしで一番のポイントは、

「とにかくさわるな、着くまで待て」

ということです。

きちんと着火剤を持ってきたよ！！という人は、

正直手持ち扇風機もいりません。

①着火剤を下に並べます。
②その上に、炭を「人」型に少し間をあけるようにして並べ、火をつけます。
③決して触らずに待ちます。

終わりです。笑
まぁこれで何も問題なくつきます。

炭にきちんと着火するまで着火剤は持ちます。

つかなかった人は、
きちんと炭に着火する前に、炭を動かしてその内に着火剤が燃え切ってしまっただけです。

着火剤がないとき

着火剤がないときに「手持ち扇風機」が必要になります。

着火剤がないときは、「新聞紙」「そこら辺の木」などを使うことになるしょう。
ここでもやることは同じです。

①燃えるものを下に並べます。
　ここで新聞紙の場合は長く燃え続けるように
　棒状に絞ってからおいてください。
②その上に炭を「人」型に置き、火をつけます。
③すごーーく気になるけど、触らずに待ちます。
④新聞紙などが燃え切ったとわかったら、
　ここで待ちに待った手持ち扇風機の登場です！
　炭に向かってフルパワーで風を送ってください！

うちわなどで行うよりも何倍も効率的に風が遅れることにより、
すぐに炭が赤くなり火が出始める状態になると思います。

正直、ちょうど手元にあったのでこれでやってみたらどうかな？
という感覚で行いましたが、これが覇権をとると思っています。

まとめ

バーべキューで火をつけるコツは「とにかく待つ！！」です。

それを基本にして、ある程度炭に火をつけることができたら、
手持ち扇風機で一気に畳みかける。

これであなたも火おこしマスター間違いなしです！！！

VBAでYAHOOの検索補助を抜き出してみた

みんなどんなものを検索しているのかなーと検索できる方法はないかな？と思ったときに、
YAHOOのキーワード入力補助が役立つのではないかと思いVBAで抜き出してみました！
↓(赤で囲った場所です！）

要素の抜き出し方が難しい。。

VBAのコードは、
①サイトを立ち上げて
②検索ボックスに値を入れて、
③入力補助の要素のinnerTEXTを書き出す。
という内容なのですが、
③の有力補助のinnerTextをに抜き出すのが、ちょっと難儀しましたので、説明していきます。

入力補助の要素を検索

まずはYAHOOに行って、入力補助を表示させます。
その状態で、「F12」を押し開発者ツールを起動させます。
ctrl+Bで要素の検索をして、入力補助をクリックします。
すると、ID「srchAssistLists」の中に検索候補が含まれていることが分かりました。
そして、その中身はリンクの<a>で挟まれていることが分かりましたので、
.getElementbyid("srchAssistLists").getElementsbytagname("A")(0).INNERTEXT
で順に抜き出していけば書き出せることが分かりました。

ということで、↓のようなコードを下記実行しました！

Sub IEoutputyahoo()

Application.ScreenUpdating = False
Dim objIE As Object
Set objIE = GetObject("", "InternetExplorer.Application")
objIE.Visible = True
     
    objIE.Navigate "https://www.yahoo.co.jp/"  ' このURLを任意に変更
     
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend

    Dim objTABLE As Object
    Set objTABLE = objIE.document
     
    On Error Resume Next　'結構エラーが伴うのでつけとく

    Dim A As Object
    
    For i = 2 To 73
    
    objIE.document.getElementbyid("srchfield").Value = Cells(i, 2)
    objIE.document.getElementbyid("srchfield").Select
    SendKeys "{BS}"
    SendKeys Cells(i, 2)

    Application.Wait Now() + TimeValue("00:00:01")

    
Cells(i, 4).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(0).INNERTEXT
Cells(i, 5).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(1).INNERTEXT
Cells(i, 6).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(2).INNERTEXT
Cells(i, 7).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(3).INNERTEXT
Cells(i, 8).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(4).INNERTEXT
Cells(i, 9).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(5).INNERTEXT
Cells(i, 10).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(7).INNERTEXT
Cells(i, 11).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(8).INNERTEXT
Cells(i, 12).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(9).INNERTEXT
Cells(i, 13).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(10).INNERTEXT
            
        ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend

    Next

 Application.ScreenUpdating = True

End Sub

上記のプログラムを実行すると2列目に入っている文字をどんどん入力し、
キーワードの候補を抜きだしてくれます。

↓結果は下記の通り、エクセルに書き出されました！
　かなり楽ちんでした。。。

記事のまとめ

この記事のまとめは下記のとおりです。

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！

【まとめ】VBAでIEを動かすプログラムまとめ！

まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...

nujonoa.com

2020.06.10

HIGHCHARTSで第2軸(Y軸)をCSS変更なしで設定する方法。

簡単な設定で非常にかっこいいグラフが描けるHIGHCHARTSですが、
エクセルのように、第2軸が簡単に設定できず、そこだけが惜しい点でした。
残念ながら普通に検索しても、CSSを用いて第2軸を設定する方法しかなかったので、
試行錯誤の上、第2軸をHIGHCHARTSの設定で作成することができましたので、
紹介していきたいと思います。

まず、普通だとこうなる…

下のグラフは、プロテインダイエット時の
・体重・体脂肪・筋肉量の推移を表しています。
体脂肪だけを落とそうと頑張っていたのですが、
残念ながら筋肉量も落ちてしまったことを表そうとしています。
しかし、残念ながら全く表現できていません。。。

それが、第2軸を使うと、、
こんなように、いかに体脂肪だけでなく、筋肉量が落ちていってしまっているのが分かるようになりました。

第2軸の設定方法

ということで、さっそく第2軸の設定の仕方を紹介していきます。

第2軸の追加

①まず、ギヤ3つのマークを押し、アドバンスモードに切り替えます。
②Y Axis の右の「＋」ボタンをクリックしてください。

③すると、次のように、Y Axis[1]が追加されたと思います。
　これが第2軸になります。この状態だと、左側に軸がありますので、
　oppositeにチェックをして右側に移動させます。
④次にタイトルが軸と被ってしまっていますので、titleをクリックし、
⑤OFFSETを50くらいに設定。
⑥TEXT欄で軸の名前を決めることができます。

これで第2軸の追加は完了です。

項目を第2軸に設定する

次に、項目の設定をします。
⑦第2軸にしたい項目のSeries[番号]をクリックします。
⑧その状態で、右のスライドを一番下の方まで移動させると、Y Axisという項目があります。
⑨ここで、先ほど設定したY Axis[1]に変更することで、第2軸に値を表示させることができます。

すると、下記グラフのように第2軸に項目を設定することができると思います。
どうでしたか？できましたか？？？

まとめ

いかがだったでしょうか？
Hicharts Cloudのマニュアルはかなり不親切ではありますが、
アドバンスモードを使うことでいろいろなことができるようになっています。
これを参考に皆さんもおしゃれで見やすい表を作っていってください！