リンク | nujonoa_blog

【spreadsheet】image関数！セル内に画像を入れて一気に見栄えアップ！

nujonoa — Tue, 11 Aug 2020 04:40:33 +0000

【spreadsheet】image関数！セル内に画像を入れて一気に見栄えアップ！
image関数とは？
関数の使い方は簡単
ドライブの画像を張り付ける。
グーグルドライブのフォルダ内の画像を一覧表にする方法
まとめ

【spreadsheet】image関数！セル内に画像を入れて一気に見栄えアップ！

Excelに対して、スプレッドシートを用いる利点として、

・共有しやすい
・QUERY関数を使えるので、データベースを作りやすい
・グーグル関係(メールなど)と連携できる

ことなどが利点として挙げられると思いますが、

「image関数」

を使うことができることも1つの利点だと思います。

やはり、画像などをふんだんに使った表の方が、見る人の目を引くことができます。
人の目を引くということは、使用してもらえる確率が上がります。

image関数のイメージ

今回は、そんなimage関数について解説していきたいと思います。

image関数とは？

image関数とは、先ほどもご紹介した通り、
下記のように、セルの中に画像を挿入するテクニックになります。

image関数のイメージ

え、そんなのExcelでもできるじゃん。と思った人もいるかと思いますが、

・googleドライブに保存した画像を表示できる。
　※ファイル自体が重くならない。
・セルの大きさに合わせて画像の大きさが調整できる。

ことが利点となります。

関数の使い方は簡単

関数の使い方は非常に簡単で、セルに

=image(URL,選択モード)

を入力するだけです。

例えば、グーグルの画像アドレスをコピーして、urlの部分に入力すると、

下記のように、簡単にスプレッドシートのセル内に画像を張り付けることができます。

画像の大きさは、
①自動で倍率を変えてくれるモード
②セルの大きさに引き延ばしてくれるモード。
③オリジナルサイズで張り付けるモード
④カスタムサイズで張り付けるモード
の4つです。

ドライブの画像を張り付ける。

image関数を使うタイミングで一番多いのは、
グーグルドライブに保存した画像をセル内に表示したい場合だと思います。

そのためには

=image(URL,選択モード)

の URL の部分にドライブの画像のURLを入れる必要があるのですが、
この作業に、若干手間がかかります。

共有可能なリンクを取得

ドライブで共有可能なリンクを取得すると、

[ https://drive.google.com/file/d/画像id/view?usp=sharing ]

このようなURLが表示されると思いますが、このまま数式に挿入しても、残念ながら表示されません。

どうやら、画像に直接アクセスするリンクが必要なようで、

https://drive.google.com/file/d/画像id/view?usp=sharing
↓
https://drive.google.com/uc?id=画像id

に変換してあげる必要があります。

グーグルドライブのフォルダ内の画像を一覧表にする方法

グーグルドライブのフォルダ内の画像一覧表を作成するための
GASを作りましたので、使ってみてください。

ボタン

そのままですと閲覧のみ可能になっていますので、
ファイル→コピーを作成で、自分のスプレッドシートにコピーを作成してください。

スプレッドシートをコピーする方法(クリックして開く)

スプレッドシートをコピーする方法

ドライブのフォルダのIDを入力して実行していただくと画像一覧を作成できると思います。

まとめ

imge画像を使って表をまとめると非常に見栄えの良い表を作成することができます。

ぜひ使ってみてください！！

【簡単】VBAでIEのテキストボックスに値を入力する方法～VBA(マクロ)でIE操作

nujonoa — Thu, 16 May 2019 11:27:56 +0000

↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、インプット要素をすべて確認し、任意のテキストボックスに値を入力する方法を説明します。

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

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

【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作

↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...

VBAでIEのテキストボックスに値を入力する方法～VBA(マクロ)でIE操作
簡単にプログラム説明
1. テキストボックスのTagNameは「INPUT」
2. 入力したい要素を確認( テキストボックスはType「text」)
テキストボックスに入力してみる。
1. ほかのやり方でテキストボックスに入力してみる。

VBAでIEのテキストボックスに値を入力する方法～VBA(マクロ)でIE操作

今回は、VBAでIEのテキストボックスに値を入力する方法を紹介したいと思います。
まず、サイト内の入力要素一覧を見てみましょう。
下記コードは「グーグルの検索サイト」の全ての入力要素をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IEinput()
   
 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 = "No"
    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"
    Cells(I, 15).Value = "リンク先"
     
       
     Dim A As Object
        
    For Each A In objIE.document.getElementsByTagName("INPUT")
       
       
  
        Cells(I + 1, 1) = I - 1                     '個数
        Cells(I + 1, 2) = A.TAGNAME                 'TAGネーム
        Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        Cells(I + 1, 4) = A.Name                    '名前
        Cells(I + 1, 5) = A.ID                      'ID
        Cells(I + 1, 6) = A.className               'クラス名
        Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        Cells(I + 1, 8) = A.Value                   '値
        Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        Cells(I + 1, 10) = A.parentElement.TAGNAME  '親のTAG
   
   
   
        If Len(A.innerHTML) > 50 Then
           
            Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
   
        Else
           
            Cells(I + 1, 11) = A.innertext
            Cells(I + 1, 12) = A.outertext
            Cells(I + 1, 13) = A.outerHTML
            Cells(I + 1, 14) = A.innerHTML
                       
        End If
         
          
        I = I + 1
           
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
        
    Next
       
    On Error GoTo 0
 
    Cells.WrapText = False
   
   
Application.ScreenUpdating = True
Application.StatusBar = False
   
Range(Cells(1, 1), Cells(1, 14)).EntireColumn.AutoFit
Range(Cells(1, 2), Cells(1, 2)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 4), Cells(1, 4)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 8), Cells(1, 8)).EntireColumn.Interior.ColorIndex = 6
    
    
End Sub

簡単にプログラム説明

テキストボックスのTagNameは「INPUT」

テキストボックスの TagName は「INPUT」ですので、サイトを表示させた後、
For Each A In objIE.document.getElementsByTagName("INPUT")　～～～　Next
でINPUTの要素をすべて検索し、抜き出した結果をエクセルに書き出していっています。

入力したい要素を確認( テキストボックスはType「text」)

マクロを実行すると、下記のようなTagNameがINPUTの一覧表ができたと思います。
その中でも今回は、テキストボックスに入力したいので、Type(c列)がtextのものを探します。
今回はNo3が検索欄に当たり、Nameが"q"であることが分かりました。

テキストボックスに入力してみる。

上記のプログラムより、テキストボックスの要素を見つけることができました。
この要素のデータを用いて、今度は文字を入力していきたいと思います。
やることは簡単、先ほどと同じ要領で、
①FOR EACH でINPUTをすべて抜き出す。
②IF分で入力したい要素を見つける。→今回はNameが"q"
③.valueで値を入力する。→.value="test"
となっております。
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。

Sub IE_textINPUT()
   
'*****↓ここまでは以前と一緒***************************************************
'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      '値がないとエラーが出るので、エラー回避用
      
     Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("INPUT")'①FOR EACH でINPUTをすべて抜き出す。
      
        If A.Name = "q" Then A.VALUE="テスト"'②IF分で入力したい要素を見つけて③valueで代入。
       
    Next
      
    On Error GoTo 0
  
End Sub

ほかのやり方でテキストボックスに入力してみる。

また、単純にの3番目でもありますので、単純に、
objIE.document.getElementsByTagName("INPUT")(3).value="テスト"
と入力することで、文字を入力することができます。

Sub IE_textINPUT2()
  
 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      '値がないとエラーが出るので、エラー回避用
        
    objIE.document.getElementsByTagName("INPUT")(3).value="テスト"

End Sub

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

こちらを参照ください！

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

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

【簡単】VBAでIEの全リンク先を取得、クリックする方法～VBA(マクロ)でIE操作

nujonoa — Wed, 15 May 2019 16:49:24 +0000

↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、リンクをすべて確認し、任意のリンクをクリックする方法を説明します。

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

【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作

VBAでIEの全リンク先を取得、クリックする方法～VBA(マクロ)でIE操作
簡単にプログラム説明
1. リンクの場合 TagName は「A」
リンクをクリックする
1. ほかのやり方も。

VBAでIEの全リンク先を取得、クリックする方法～VBA(マクロ)でIE操作

今回は、VBAで特定のページのすべてのリンク先を取得、クリックする方法を紹介したいと思います。
下記コードは「グーグルの検索サイト」の
全てのリンク先をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IElinkall()
  
 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"
    Cells(I, 15).Value = "リンク先"
    
      
     Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("A")
      
      
 
        Cells(I + 1, 1) = A.uniqueID                'uniqueID
        Cells(I + 1, 2) = A.TAGNAME                 '親のTAG
        Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        Cells(I + 1, 4) = A.Name                    '名前
        Cells(I + 1, 5) = A.ID                      'ID
        Cells(I + 1, 6) = A.className               'クラス名
        Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        Cells(I + 1, 8) = A.Value                   '値
        Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        Cells(I + 1, 10) = A.parentElement.TAGNAME  '親のTAG
  
  
  
        If Len(A.innerHTML) > 50 Then
          
            Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
  
        Else
          
            Cells(I + 1, 11) = A.innertext
            Cells(I + 1, 12) = A.outertext
            Cells(I + 1, 13) = A.outerHTML
            Cells(I + 1, 14) = A.innerHTML
                      
        End If
        
            Cells(I + 1, 15) = A.href
         
        I = I + 1
          
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
       
    Next
      
    On Error GoTo 0

    Cells.WrapText = False
  
  
Application.ScreenUpdating = True
Application.StatusBar = False
  
Range(Cells(1, 1), Cells(1, 13)).EntireColumn.ColumnWidth = 1
Range(Cells(1, 14), Cells(1, 15)).EntireColumn.AutoFit
Range(Cells(1, 15), Cells(1, 15)).EntireColumn.Interior.ColorIndex = 6
   
End Sub

簡単にプログラム説明

リンクの場合 TagName は「A」

リンクの場合 TagName は「A」ですので、サイトを表示させた後、
For Each A In objIE.document.getElementsByTagName("A")　～～～　Next
でリンクの要素をすべて検索し、
N列に　innerhtml(テキスト名)　
O列に　href(リンク先)　をエクセルに書き出していきました。

リンクをクリックする

ここからリンクをクリックする方法はいろいろとあるのですが、
一番簡単なのは、N列に出したinnertextを用いることです。
下記にコードに「規約」の文字をクリックする場合のコードを示します。
行っていることは、
①FOR EACH で「A」をすべて抜き出す。
②IF文で入力したい要素を見つける。→今回は.innertextが”規約”
③特定した要素.clickでボタンを押す
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。

Sub IElinkclick()
   
'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      '値がないとエラーが出るので、エラー回避用
      
     Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("A")
      
        If A.innerHtml = "規約" Then A.Click
       
    Next
      
    On Error GoTo 0
  
End Sub

ほかのやり方も。

また、単純にリンクの中の0から数えて6番目の要素でもありますので、
下記のようなコードでもクリックすることができます。
※プログラムは０から数えるので、(6)となります。

Sub IElinkclick2()
  
 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      '値がないとエラーが出るので、エラー回避用
        
    objIE.document.getElementsByTagName("A")(6).Click

End Sub

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

こちらを参照ください！

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