'ブックが開いた時に、右クリックに登録
Private Sub Auto_Open()

    With CommandBars("Cell").Controls.Add(Before:=1)  '1が一番上
        .Caption = "RC_TEST(&P)" '表示名
        .OnAction = "TEST" 'プログラム名
    End With

End Sub
'ブックを閉じたときに、右クリックのメニューを消す。
Private Sub Auto_Close()
    
CommandBars("Cell").Controls("RC_TEST(&P)").Delete

End Sub

’実行するプログラム
Sub TEST()

MsgBox "右クリック"

End Sub

    With CommandBars("Cell").Controls.Add(Before:=1)  '1が一番上
        .Caption = "RC_TEST(&P)" '表示名
        .OnAction = "TEST" 'プログラム名
    End With

CommandBars("Cell").Controls("RC_TEST(&P)").Delete

'右クリックのメニューの初期化は
Application.CommandBars("Cell").Reset

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

Sub GROUP確認()

    For I = 1 To 10
        A = Cells(I, 20).EntireRow.OutlineLevel
        Cells(I, 1) = "行" & I & "のレベルは" & A
    Next

End Sub

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

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

SpreadsheetApp.getActiveSheet().getRange("行","列")

.setValue("○○○") 

function code1(){
  
  /*セルに文字を入れる*/

  /*getActiveSheet→シートを選択*/
  /*getRange→セル（Rangeオブジェクト）を選択 */
  /*setValue→セルに値。 */
  SpreadsheetApp.getActiveSheet().getRange(1, 1).setValue("Hallo world");
  SpreadsheetApp.getActiveSheet().getRange(2, 1).setValue("=A$1");

  /*長いのはめんどくさいので、変数にする*/
  /*VBAでいうDIMがVar*/
    
  var sheet = SpreadsheetApp.getActiveSheet()
  sheet.getRange(3, 1).setValue("HAPPY")
 
}

.getValue()

function code2_1(){
  
  /*単純な四則演算*/
  
   var sheet = SpreadsheetApp.getActiveSheet()

  /*変数に入力*/
  var TANKA,KOSU
  sheet.getRange(2, 2).setValue(1)  
  TANKA=sheet.getRange(2, 2).getValue()
  
  Browser.msgBox(TANKA)
  
}

function code2_2(){
  
  /*単純な四則演算*/
  
   var sheet = SpreadsheetApp.getActiveSheet()

  sheet.getRange(1, 2).setValue(1)  
  sheet.getRange(1, 3).setValue(2)
  sheet.getRange(1, 4).setValue(sheet.getRange(1, 2).getValue()*sheet.getRange(1, 3).getValue())
  
  /*変数に入力*/
  var TANKA,KOSU
  sheet.getRange(2, 2).setValue(1)  
  sheet.getRange(2, 3).setValue(2)
  TANKA=sheet.getRange(2, 2).getValue()
  KOSU=sheet.getRange(2, 3).getValue()
  
  sheet.getRange(2, 4).setValue(TANKA * KOSU)
  
}

.setFormula("=A" + 3 + "*B" + 3)

function code3(){
  
    var sheet = SpreadsheetApp.getActiveSheet()
    
    sheet.getRange(2, 1).setValue(1)
    sheet.getRange(2, 2).setValue(5)
    sheet.getRange(3, 1).setValue(3)
    sheet.getRange(3, 2).setValue(5)

    sheet.getRange(2,4).setValue("=A2*B2")
    /*　「&」の代わりは「＋」　*/
    sheet.getRange(3,4).setFormula("=A" + 3 + "*B" + 3)
  
}

.getLastRow() //最終行
.getLastColumn() //最終列

.getMaxRows()
.getMaxColumns()

function code4(){
  
  /*最終行*/
  
  var sheet=SpreadsheetApp.getActiveSheet()
  
  　//セルに存在する最後の行
    lastY = sheet.getLastRow()
    lastX = sheet.getLastColumn()
   
 　var lastY = sheet.getRange(sheet.getMaxRows(), 1).getNextDataCell(SpreadsheetApp.Direction.UP).getRow();
    var lastX = sheet.getRange(1, sheet.getMaxColumns()).getNextDataCell(SpreadsheetApp.Direction.PREVIOUS).getColumn();


 
    //ｼｰﾄに存在する最後の行(エクセルのように最初から1048576行は無い)
    lastY2 = sheet.getMaxRows()
    lastX2 = sheet.getMaxColumns()
   
}

copyTo("シートの場所","条件")

function code11(){

  //セルのコピー　ペースト
  var book=SpreadsheetApp.getActiveSpreadsheet()
  var sheet=book.getActiveSheet()
  sheet.getRange(2, 1).setValue(200)
  sheet.getRange(3, 1).setValue("=A2*1+5")
  
  sheet.getRange(3, 1).copyTo(sheet.getRange(3,10,10,10),SpreadsheetApp.CopyPasteType.PASTE_FORMULA)

  /*
PASTE_NORMAL Enum 値、数式、書式、および結合を貼り付けます。 
PASTE_NO_BORDERS Enum 値、数式、書式、および結合を貼り付けますが、枠線は付けません。 
PASTE_FORMAT Enum フォーマットとデータ検証のみを貼り付けます。 
PASTE_FORMULA Enum 数式のみを貼り付けます。 
PASTE_DATA_VALIDATION Enum データ検証のみを貼り付けます。 
PASTE_VALUES Enum フォーマット、数式、または結合せずに値のみを貼り付けます。 
PASTE_CONDITIONAL_FORMATTING Enum カラールールのみを貼り付けます。 
PASTE_COLUMN_WIDTHS Enum 列幅だけを貼り付けます。 
 */

  sheet.getRange(3, 10,10,10).activate()
  
}

.setNote('ここに入力してください。\n');

function code12(){
 
  /*メモ機能*/
  var spreadsheet = SpreadsheetApp.getActive();
  
    spreadsheet.getRange('E20').setNote('ここに入力してください。\n');
   
}

.sort({column:5,ascending:false})

function code13(){
  
  /*並び替え*/
  
  var sheet = SpreadsheetApp.getActiveSheet();
  
  for(var i=1;i<=10;i++){
   sheet.getRange(5+i, 5).setValue(i) 
  }
  
  var lastY = sheet.getLastRow()
  var lastX = sheet.getLastColumn()
  sheet.getRange(6, 5, lastY-6).activate

  
  sheet.getRange(6, 5, lastY-6+1).sort({column:5,ascending:false})
//  sheet.getRange(6, 5, lastY, lastX)).sort([{column: 1, ascending: true},{column: 2, ascending: false}])


}

  var rule1=SpreadsheetApp.newDataValidation().setAllowInvalid(true)
  .requireValueInRange(spreadsheet.getRange('シート1!$J$3:$J$12'), true)
  .build();

 .setDataValidation(rule1)

function code14(){
  
  
  //入力規則　G8に、AONOA!$J$3:$J$12の入力規則を設定
  var spreadsheet = SpreadsheetApp.getActive();
   spreadsheet.getRange('G8').setDataValidation(SpreadsheetApp.newDataValidation()
  .setAllowInvalid(true)
  .requireValueInRange(spreadsheet.getRange('シート1!$J$3:$J$12'), true)
  .build());

  
  //ルールを設定して、そのあとに、setでも設定可能。
  var rule1=SpreadsheetApp.newDataValidation().setAllowInvalid(true)
  .requireValueInRange(spreadsheet.getRange('シート1!$J$3:$J$12'), true)
  .build();

  spreadsheet.getRange('I8').setDataValidation(rule1)
  spreadsheet.getRange('G8').clearDataValidations()
 
}

.insertColumnsAfter(afterPosition, howMany)
.deleteColumns(columnPosition, howMany)

function code_spread19(){
  
  //行列
  var sheet=SpreadsheetApp.getActiveSheet()
  
  var afterPosition=5
  var howMany=2
  sheet.insertColumnsAfter(afterPosition, howMany)
  sheet.insertRowsAfter(afterPosition, howMany)
  var columnPosition=5  
  var rowPosition=5
  var howMany=2
  sheet.deleteColumns(columnPosition, howMany)//afterいらいない
  sheet.deleteRows(rowPosition, howMany)//afterいらない;

  
}

.setRowHeights(startRow, numRows, height)

function code_spread19(){
  
  //行列
  var sheet=SpreadsheetApp.getActiveSheet()
  sheet.getRange(2, 1).setValue(200) 

  //行列幅自動調整
  sheet.autoResizeColumns(2, 3);
  sheet.autoResizeRows(2, 3);  
  
  //sheet.setRowHeights(startRow, numRows, height)

}

 for(var i=1;i<=10;i++){     
  /*繰り返し部*/
}

function code6(){
 
  var  sheet=SpreadsheetApp.getActiveSheet()
  
  for(var i=1;i<=10;i++){     
  sheet.getRange(1+i, 6).setValue(i*2)
}

  sheet.getRange(7, 6).clear()

}

 if(sheet.getRange(11, 1).getValue()>2){
   /*コード*/
  }  

function code5(){
  
  //if文
  
  var sheet=SpreadsheetApp.getActiveSheet()
  
  sheet.getRange(10, 1).setValue(1)  
  sheet.getRange(11, 1).setValue(2)
  
  if(sheet.getRange(10, 1).getValue()==1){
    
    sheet.getRange(10, 2).setValue("〇")
  }  
  else{  
      sheet.getRange(10,2).setValue("×")
  }
  if(sheet.getRange(11, 1).getValue()>2){
    
    sheet.getRange(11, 2).setValue("〇")
  }  
  else{  
      sheet.getRange(11,2).setValue("×")
  }  
  
  /*
==	等しい	被演算子が等しい場合に true を返します。
!=	等しくない	被演算子が等しくない場合に true を返します。
===	厳密に等しい	被演算子が等しく、かつ同じ型である場合に true を返します。
!==	厳密に等しくない	被演算子が等しくなく、かつ/または同じ型でない場合に true を返します。
>	より大きい	左の被演算子が右の被演算子よりも大きい場合に true を返します。
>=	以上	左の被演算子が右の被演算子以上である場合に true を返します。
<	より小さい	左の被演算子が右の被演算子よりも小さい場合に true を返します。
<=	以下	左の被演算子が右の被演算子以下である場合に true を返します。
 */  
  
  /*
&&	expr1 && expr2	論理積 (AND)
||	expr1 || expr2	論理和 (OR)
!	!expr	論理否定 (NOT)
 */  
}

function code8(){
  
  /*シート間の移動*/
  
  var book=SpreadsheetApp.getActiveSpreadsheet()
  var sheet2=book.getSheetByName("シート5").activate()
  
  Browser.msgBox(book.getActiveSheet().getSheetName(), Browser.Buttons.OK)
  
  /*数でとる*/
  
  var sheet3=book.getSheets()[2].activate()
  Browser.msgBox(book.getActiveSheet().getSheetName(), Browser.Buttons.OK)
 
  /*sheetをすべて検索して表示*/
  
  var sheets=book.getSheets()
  for (i = 0; i < book.getSheets().length; i++) {
    sheets[i].getRange(1, 1).setValue(sheets[i].getName())
    Browser.msgBox(sheets[i].getName(), Browser.Buttons.OK)
  } 
}

function code9(){
 
  //他のブックの参照
  
  /*importrangeで他のものを参照できる*/
  var book1 =SpreadsheetApp.getActiveSpreadsheet()
  var book2=SpreadsheetApp.openById("IDをいれる")//IDを入れる
  var book2=SpreadsheetApp.openByName("名前")//IDを入れる
  
  //これでどちらも開いて、book1などでACTIVATEできる
  
}

function code10(){
  
  /*重複しないようにシートを作成*/
 
  var newsheetname="新規ｼｰﾄ"
  
  var book =SpreadsheetApp.getActiveSpreadsheet()
  var sheet =SpreadsheetApp.getActiveSheet()
  var flag=0

  
  var sheets=book.getSheets()
  for (i = 0; i < book.getSheets().length; i++) {
    if(sheets[i].getName()==newsheetname){
      flag=1
      
    }
  }
    
    if(flag==0){
      book.insertSheet(newsheetname)
    }else{
    var HANTEI=Browser.msgBox(newsheetname + "が存在します。置き換えますか", Browser.Buttons.YES_NO)
    if(HANTEI == "yes"){
      book.deleteSheet(book.getSheetByName(newsheetname))
      book.insertSheet(newsheetname)
    }
  }

function code_spread18(){
  
  var sheet=SpreadsheetApp.getActiveSheet()
  //
  sheet.getRange(1,1,10,10).setValue(1)
  sheet.getRange(1,1,1,10).setFontWeight("bold")//
  sheet.getRange(1,1,1,10).setFontColor("red")//red（赤）になります。blue（青）、green（緑）、yellow（黄）,setFontColor(“#F99273”) 


}

function code_spread18(){
  
  var sheet=SpreadsheetApp.getActiveSheet()
  //
  sheet.getRange(1,1,10,10).setValue(1)
  sheet.getRange(1,1,1,10).setBackground("blue")//red（赤）になります。blue（青）、green（緑）、yellow（黄）,setFontColor(“#F99273”) 
  //setBackgroundRGB(0, 0, 255);も可

}

  sheet.getRange(2, 6,lastY,7).setBorder(true, null, null, true, null, null)
//  sheet.getRange(row, column).setBorder(top, left, bottom, right, vertical, horizontal, color, style)

function code7(){
 
  var  sheet=SpreadsheetApp.getActiveSheet()
  
  for(var i=1;i<=10;i++){     
  sheet.getRange(1+i, 6).setValue(i*2)
  sheet.getRange(1+i, 7).setValue(i*3)
}

  var lastY=sheet.getLastRow()

  sheet.getRange(2, 6,lastY,7).setBorder(true, null, null, true, null, null)
//  sheet.getRange(row, column).setBorder(top, left, bottom, right, vertical, horizontal, color, style)
  
}

 .setFrozenRows(2)
 .setFrozenColumns(3)

function code15(){
  
  //表示のスクロールの固定
  
  var sheet=SpreadsheetApp.getActiveSheet()
  
  sheet.setFrozenRows(2)
  sheet.setFrozenColumns(3)
 
}

function code17(){
  
  //進捗状況を確認
  //トースト

  //getActiveなことに注意
  var sheet=SpreadsheetApp.getActive()

  var msg="メッセージを入力"
  var title="タイトルを入力"
  var timeoutSeconds=5//秒数を入力、-1は×ボタンが押されるまで。
  
  sheet.toast(msg, title, timeoutSeconds)
  
  for(var i=1;i<=100000;i++){
   
    if(i%10000==0){sheet.toast(i,i+"/10000",1)}
      
  }
      
  sheet.toast("","終了",1)

}

function code_spread20() {
  
  //onOpenでつかうと有用
  //function onOpen() {
  //スプレッドシートにスクリプト登録
  var book=SpreadsheetApp.getActiveSpreadsheet()
  var sheet=SpreadsheetApp.getActiveSheet()
  
  SpreadsheetApp.getUi()
  .createMenu('登録')//ボタン名
  .addItem('自動化1', 'code_spread19')//表示名と、プログラム
  .addToUi();
  
  //removeMenuで消せる。
  
  book.removeMenu("登録")
  
}

function code_mail(){
  
  var recipient="blueinfinity4ever@gmail.com"//宛先
  var subject="【サンプル】メールテスト"//題名
  var body="メールテストをしております\n\n"//本文
  
  //MailApp.sendEmail( 送信先, タイトル, メッセージ )
  MailApp.sendEmail(recipient, subject, body)
  
  
  //toなどなども指定できる。//
  MailApp.sendEmail({
    to: "blueinfinity4ever@gmail.com", //to
    cc: "blueinfinity4ever@gmail.com", //cc
    bcc: "code1@gmail.com, code2@hotmail.com", //bcc
    //name: "nujonoa",//送信者名を変えられる。
    subject: "件名",  //件名
    body: "本文\nこれは本文です", //分分
    htmlBody: "<b>本文</b><br>これは本文です", //htmlで装飾した本文
    //replyTo: "code3@hotmail.com",　//返信先を指定できる。
});
  
  //POPUPで確認してからメールを送信
  var popUp = Browser.msgBox("送信確認です。", add + "へ送信しますか？", Browser.Buttons.OK_CANCEL);
  if (popUp == 'ok') {
    var mailSubject = sheet.getSheetByName('メールテンプレ').getRange(5,2).getValue();
    var mailBody = sheet.getSheetByName('メールテンプレ').getRange(6,2).getValue();
    GmailApp.sendEmail(add, mailSubject, mailBody ,{cc:"blueinfinity4ever@gmail.com"});
    Browser.msgBox("送信しました");
  } else {
    Browser.msgBox("キャンセルしました");
  }
  
}

Sub ダブルコーテーションの使い方()

S = "TEST"

Range("A1").Value = " " & S & " "
Range("A2").Value = """ & S & """
Range("A3").Value = """" & S & """"

End Sub

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

Sub IE_table_output()
    
 Application.ScreenUpdating = False
     
'IEの起動
Dim objIE As Object
     
Set objIE = GetObject("", "InternetExplorer.Application")
     
objIE.Visible = True
         
    objIE.Navigate "https://www.rakuten-sec.co.jp/web/fund/find/search/result.html"  ' このURLを任意に変更
         
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
     
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
    
    I = 1  '開始行を指定
    L = 0
    J = objIE.document.all.Length  '要素の数を知る
        
    Cells(I, 1).Value = "No"
              
    Dim A As Object
         
    For Each A In objIE.document.getElementsByTagName("tr")
    
        For L = 0 To 20
    
            Cells(I, L + 1) = A.Children(L).innertext
           
        Next
        
        I = I + 1
            
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
         
    Next
        
    On Error GoTo 0
  
    Cells.WrapText = False
    
Application.ScreenUpdating = True
Application.StatusBar = False

End Sub