今回は、VBAで図形に「グラデーションの分岐点」を設定する方法について徹底的に説明していきます。 図形（シェイプ）の設定や操作をする方法ワークシート上に作成されている図形の移動、サイズの変更、図形の削除、複数の図形のグループ化などの図形の操作は以下のプロパティやメソッドを使用します。図形（シェイプ）の設定をするプロパティ一覧プロパティ内 (adsbygoogle = window.adsbygoogle || []).push({}); ワークシート上にある複数の図形をVBAでグループ化するには、どのように記述すればよいでしょうか。, グループ化するには、「Group」メソッドを使います。複数の図形の選択には、Array（”図形１”,”図形２”,”図形３”,・・・）のように記述します。, このように、実行後は１つの図形をクリックすると、ひし形１～３を一つの図形として選択することができます。もちろん、図形がもっと増えても、同様の記述でグループ化をすることができます。図形をグループ化することで、メリットはたくさんあります。, VBAでは、図形を参照する際に少々面倒なところがありますので、グループ化することで、図形の参照が比較的簡単になる場合があります。, 次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。. 任意のフォルダをインプットボックスで指定できる検索対象の... 配列って概念がわかってても、いろいろと約束事があってよくわからないですよね。

やってみると意外と簡単で... エクセルに配置した図形などのシェイプをVBAで編集することは多いと思います。 繰り返し処理は、VBAに限らず、あらゆるプラグラム言語において使用する基本的な処理です。

図形を3種類作成し、全てグループ化します。 グループ化された図形の四角形だけを探し、幅を2倍にします。 Sub Sample100() Dim SN(0 To 2) As String, C As Shape, D As Shape '四角形を描画します …

オブジェクトの... Workbook.Openは、Excelファイル以外ではエラーになる ある任意のフォルダに含まれる全エクセルブック（エクセルファイル）に対して、任意の文字を検索し、該当したファイルの一覧を表示するVBAを紹介します。 エクセルに配置した図形などのシェイプをVBAで編集することは多いと思います。 エクセルやvbaでは、図形やオートシェイプなどのオブジェクトをグループ化することが多いものです。さて、このとき、グループ化したオブジェクトのグループ名はどのように取得したり設定したりすればよいのかという質問がよく届きます。今回は、グループ化

とにかくVBAで配列を使いたい... ワークシート上に挿入した図形を、セルの中央に配置したい場合はどのようにVBAを記述すればよいのでしょうか。

q vba 図形グループ化後オブジェクト名取得.

今回はTextToColumnsメソッドを使ったセルデータ分割について説明していきます。 2種類以上のオートシェープ選択し、グループ化した後に、そのグループ化した図形のオブジェクト名を取得したいです。私の取得の流れです。 (1)すでにグループ化前の図形は複数選択されている。 ... 「．」（ピリオド）は、「〇〇　の　△△」　という「　～の　」という意味で使います。Excel VBA的に言うと、「ピリオドはオブジェクト式で使用する」となります。. このマクロの特徴は、

(adsbygoogle = window.adsbygoogle || []).push({}); エクセルやVBAでは、図形やオートシェイプなどのオブジェクトをグループ化することが多いものです。, さて、このとき、グループ化したオブジェクトのグループ名はどのように取得したり設定したりすればよいのかという質問がよく届きます。, 今回は、グループ化した図形やオートシェイプなどのオブジェクトのグループ名を取得・設定する方法について徹底的に説明していきます。, つまり、グループ化したオブジェクトのグループ名を取得後、いったんグループ化を解除し、その後に再度同じ図形をグループ化してグループ名を取得すると、グループ名の数字が１つ増加します。, 上の図でグループ名「Group 9」を取得していますが、グループ化をいったん解除し、再度同じ図形をグループ化してからグループ名を取得すると、「Group 10」と表示されます。, したがって、グループ化をするタイミングによりグループ名が異なることになりますので注意が必要です。, もし、あらかじめクリックして選択した図形だけをグループ化したい場合は以下のサンプルコードになります。, グループ化したオブジェクトにNameプロパティを使うことで任意のグループ名を設定することができます。グループ名を設定しておけば、後でグループ化したオブジェクトを操作するときに便利になります。, もし、あらかじめクリックして選択した図形だけをグループ化し、グループ名を設定したい場合は以下のサンプルコードになります。, グループ化した図形のグループ名を取得するには、Nameプロパティを使い、メッセージボックスでグループ名を表示させることできます。, グループ名を設定するには、Nameプロパティで任意のグループ名を設定することができます。, 図形やオートシェイプのグループ化は使う機会が多いですので、ぜひ覚えておいてくださいね。, 次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。. VBAでオブジェクト（図形）をクリックしたときに「オブジェクトの名前」を取得するにはどのようにすればよいのでしょうか？

をクリックし、[グループ解除] をクリックします。, 図をグループ解除するには、[図ツール] の [書式] タブにある [配置] グループで

エクセルやvbaでは、図形やオートシェイプなどのオブジェクトをグループ化することが多いものです。さて、このとき、グループ化したオブジェクトのグループ名はどのように取得したり設定したりすればよいのかという質問がよく届きます。今回は、グループ化

図形、図、その他のオブジェクトをグループ化することができます (テキストボックスは作成できません)。 グループ化を使えば、すべての図形またはオブジェクトを、1 つの図形またはオブジェクトの場合と同じように、同時に回転、反転、移動、またはサイズを変更することができます。, また、図形に塗りつぶしや効果を追加したり、図に効果を適用したりして、グループ内のすべての図形の属性を一度に変更することもできます。 いつでも図形のグループをグループ解除し、その後でそれらを再グループ化することができます。, CTRL キーを押しながら、グループ化する図形、図、または他のオブジェクトをクリックします。 [グループ化] ボタンを有効にするには、複数の図形、図、またはオブジェクトを選択する必要があります。, ヒント: 図形や図の選択方法の詳細については、「図形またはその他のオブジェクトを選ぶ」を参照してください。, 複数の SVG アイコンをまとめてグループ化するには、最初にそれらを図形に変換する必要があります。 図形の変換の詳細については、「 SVG 画像を Office 図形に変換する」を参照してください。, グループの作成後も、グループ内の単一のアイテムを操作できます。 グループを選び、そのアイテムをクリックして選びます。, 図をグループ化するには、[図ツール] の [書式] タブで [グループ化]、[グループ化] の順にクリックします。, 注: [描画ツール] の [書式] タブまたは [図ツール] の [書式]タブは、図形または図が選択されている場合にのみリボンに表示されることを意味します。, 図形やその他のオブジェクトをグループ化するには、[描画ツール] の [書式] タブで [グループ化]、[グループ化] の順にクリックします。, 図をグループ解除するには、[図ツール] の [書式] タブで [グループ化]、[グループ解除] の順にクリックします。, 図形やその他のオブジェクトをグループ解除するには、[描画ツール] の [書式] タブで [グループ化]、[グループ解除] の順にクリックします。, SmartArt グラフィック を個々の図形に変換した場合、それらを SmartArt グラフィック に戻したり、再グループ化したりすることはできません。, 図形やその他のオブジェクトを再グループ化するには、[描画ツール] の [書式] タブで [グループ化]、[再グループ化] の順にクリックします。, 図をグループ化するには、[図ツール] の [書式] タブで [グループ化]、[再グループ化] の順にクリックします。, ここでは、[グループ] が淡色表示になっている理由と、このボタンを有効にするための手順を紹介します。, 図形または図が 1 つしか選ばれていません。 複数の図形または図を選んでください。 SVG アイコンでグループツールを使用することはできません。そのため、それらはカウントされません。, SVG アイコンをまとめてグループ化するには、最初にそれらを図形に変換する必要があります。 図形の変換の詳細については、「 SVG 画像を Office 図形に変換する」を参照してください。, 選択範囲にテーブル、ワークシート、または GIF イメージが含まれている。 オブジェクトがまったく選択されていない場合、[グループ化] ボタンを使用できません。, PowerPoint を使用している場合は、タイトルのプレースホルダーテキスト ([クリックしてタイトルを追加]) またはコンテンツプレースホルダー ("クリックしてテキストを追加") でグループ化しようとした可能性があります。, 上の例では、青い四角形と緑の円をグループ化できます。 しかし、図形をプレースホルダー テキストとグループ化することはできません。, [グループ化] が表示されるようにするには、プレースホルダー テキスト外部のスライド上の場所に図形、図、オブジェクトを移動するか、グループ化したいアイテムからプレースホルダーを削除します。, 注: これらの操作で [グループ化] ボタンが有効にならない場合、Answers フォーラムを検索するか、そこで質問を投稿してください。, Microsoft 365 にアップグレードすると、あらゆるデバイスでどこでも作業を行うことができ、サポートを引き続き受けることができます。, Ctrl キーを押しながら、グループ化する図形、図、またはオブジェクトを選びます。, 図をグループ化するには、[図ツール] の [書式] タブにある [配置] グループで

@@@@@@@@End If 参考：Excel VBA入門 その29：「配列で同じ要素が表示されてしまう」対処方... Excel VBA入門 その68：列幅からはみ出した文字列を下のセルに表示する(Justifyメソッド), Excel VBA入門 その70：Insert エラー’1004’「RangeクラスのInsertメソッドが失敗しました」対処方法, グループ化したオブジェクトのグループ名を取得後、いったんグループ化を解除し、その後に再度同じ図形をグループ化してグループ名を取得すると、グループ名の数字が１つ増加します。, Excel VBA入門 その103：Deleteで「エラー1004」になり削除できない原因・対処方法, Excel VBA入門 その100：Excelマクロでフォルダ内の画像をエクセル上に貼り付ける.

理論的なことは知らん！ エクセルのシート上にあるグループ化した図形オブジェクトをマウスで選択するのは簡単ですが、vbaで選択する方法はどうすればよいのでしょうか？今回は、グループ化したオブジェクトを選択する方法について徹底的に説明していきます。グループ化したオブジ

... BuiltinDocumentPropertiesプロパティを使えばエクセルブックのプロパティ（作成者やタイトル、更新日時など）を取得することができます。

図形、図、その他のオブジェクトをグループ化することができます (テキストボックスは作成できません)。 グループ化を使えば、すべての図形またはオブジェクトを、1 つの図形またはオブジェクトの場合と同じように、同時に回転、反転、移動、またはサイズを変更することができます。

今回は、変数の型(種類)について説明していきます。 エクセルファイル自体は「Workbooks.... 知る人ぞ知る（？）文書作成ソフト「一太郎」のファイルをVBAで操作する方法について紹介します。今回はVBAで一太郎のファイルを開く方法について説明します。. (adsbygoogle = window.adsbygoogle || []).push({}); エクセルのシート上にあるグループ化した図形オブジェクトをマウスで選択するのは簡単ですが、VBAで選択する方法はどうすればよいのでしょうか？, 今回は、グループ化したオブジェクトを選択する方法について徹底的に説明していきます。, VBAでオブジェクト（図形）を扱う場合は、オブジェクトの名前を指定するのが一番確実です。, つまり、グループ化したオブジェクトに名前を付けて、その名前のオブジェクトを選択してやれば良いのです。, 以下のVBAは、シート上にある楕円と三角のオブジェクトをグループ化し、その後にグループ化したオブジェクトを選択しています。, ActiveSheet.Shapes.Range(SN).Group.Name = “group1”, グループ化したオブジェクトを名前で選択できるように、グループ化すると同時に「group1」という名前を付けてしまいます。, グループ化したオブジェクトの名前「group1」をSelectすれば、選択されます。, もし、あらかじめ各々のオブジェクト名が判明している場合には、以下のようなコードでもＯＫです。, 次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。.

図形をVBAで扱うときに、図形に「グラデーションの分岐点」を設定するにはどのようにすればよいのでしょうか？？　という質問が多いです。

をクリックし、[再グループ化] をクリックします。, 図を再グループ化するには、[図ツール] の [書式] タブにある [配置] グループで ワークシート上にある複数の図形をVBAでグループ化するには、どのように記述すればよいでしょうか。グループ化には「Group」メソッドを使うグループ化するには、「Group」メソッドを使います。複数の図形の選択には、Array（”図形1”,”

"

今回は、クリックしたオブジェクト（図形）の名前の取得方法について徹底的に説明していきます。

変数の型(種類) 今回は、ブックを開かないでプロパティを取得する方法について徹底的に説明してい... 配列を使う際にインデックス番号を変更したいときがあります。 @@@@@@@@If D.AutoShapeType = msoShapeRectangle Then 今回はシェイプ（Shape）のSelectを解除する方法について徹底的に説明し... 同じ処理を指定回数だけ繰り返すには、「For Next」ステートメントを使います。 その際にシェイプを選択したり、選択の解除したりしなくてはなりません。

@@@@@@For Each D In C.GroupItems をクリックし、[再グループ化] をクリックします。, 選択範囲に表、ワークシート、または GIF の画像が含まれている場合、[グループ化] ボタンは使用できません。 PowerPoint では、図形、図、または オブジェクト がプレースホルダーに挿入されている場合、またはプレースホルダーをグループ化しようとしている場合に、他の図形、図、オブジェクトをグループ化できないため、[グループ化] ボタンを使用できない場合があります。, プレースホルダー外部のスライド上の別の場所に図形、図、オブジェクトを移動するか、グループ化するオブジェクトからプレースホルダーを削除します。, Ctrl キーを押しながらマウスまたはタッチパッドを使用して、グループ化する図形、図、または他のオブジェクトを選択します。, [図形の書式設定] タブまたは [図の書式設定] タブをクリックし、[グループ>グループ] をクリックします。, 注: [図形の書式設定] タブと [図の書式設定] タブは、図形または図を選んだ場合にのみリボンに表示されることを意味します。, Office では、ページで現在選択されているオブジェクトの種類に応じて、これらのタブの一方または両方が表示されることがあります。, リボンに [グループ] が表示されていない場合は、

複数のシェイプのグループ化ワークシート上に配置された複数の図形やワードアート、線、矢印などのシェイプは、配置した後にグループ化することで相対的な位置を保つことができ一つのシェイプとして扱うことができて大変便利です。Excelの操作の場合、「 マクロ(VBA) を利用します。 [開発]タブのコードグループにある[Visual Basic]を実行して、VBEを開きます。 もしくは、[Alt]+[F11]キーを打鍵します。 開発タブの表示は 開発タブを表示する をご覧ください。 [挿入]→[標準モジュール]を実行します。

このページは、自動翻訳によって翻訳されているため、文章校正のエラーや不正確な情報が含まれている可能性があります。 私たちの目的は、このコンテンツがお客様の役に立つようにすることです。 情報が役に立ったかどうか、ご意見をお寄せください。 参考までに、こちらから英語の記事をお読みいただけます。. End Sub. エクセルファイルを自動的に開くマクロを作ったときに厄介なのが「エクセルファイル以外のファイルがある」場合です。 ] をクリックし、[グループ化] をクリックします。, ヒント: アイテムをグループ化した後で、引き続きグループ内の単一のアイテムを選ぶことができます。 グループを選び、選ぶ必要がある個別のアイテムをクリックします。, 図形またはその他のオブジェクトをグループ解除するには、[描画ツール] の [書式] タブにある [配置] グループで [グループの

をクリックし、[グループ化] をクリックします。, [描画ツール] タブまたは [図ツール] タブが表示されない場合は、図形、図、またはその他のオブジェクトを選んでいるかどうかをご確認ください。 [書式] タブを開くには、オブジェクトをダブルクリックする必要がある場合があります。, 図形やその他のオブジェクトをグループ化するには、[描画ツール] の [書式] タブにある [配置] グループで、[

ワークシート上に配置された複数の図形やワードアート、線、矢印などのシェイプは、配置した後にグループ化することで相対的な位置を保つことができ一つのシェイプとして扱うことができて大変便利です。, Excelの操作の場合、「Ctrl」【ｺﾝﾄﾛｰﾙ】キーを押しながらマウスの「左ボタン」で各シェイプを選択しマウス「右ボタン」でメニューからグループ化を行いますが、シェイプが重なっていたり、数が多い場合は手間がかかりますし、失敗することも多いと思います。, VBAでは、ShapeRenge【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションGroup【ｸﾞﾙｰﾌﾟ】メソッドを使用して、複数のシェイプを一つのシェイプとしてグループ化します。, 3行目【On Error GoTo エラー処理】 On Error【ｵﾝｴﾗｰ】ステートメントを使用して、シェイプが1つしかなかった場合、Group【ｸﾞﾙｰﾌﾟ】メソッドはエラーになるので、エラーが発生した場合に実行がストップしないようにGoTo【ｺﾞｰﾄｩ】ステートメントでラベルで指定した「エラー処理」の位置（9行目）までジャンプします。, 4行目【名前 = InputBox(“シェイプのグループ名を入力してください｡”)】 InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を使用してユーザーにシェイプにグループ名を入力してもらいその値を「変数名前」に代入します。, 5行目【ActiveSheet.Shapes.SelectAll】 アクティブシートの複数のシェイプを表すShapes【ｼｪｲﾌﾟｽ】コレクションに対してSelectAll【ｾﾚｸﾄｵｰﾙ】メソッドですべてのシェイプを選択します。Shapes【ｼｪｲﾌﾟｽ】コレクションはGroup【ｸﾞﾙｰﾌﾟ】メソッドを持たないので直接、Group【ｸﾞﾙｰﾌﾟ】メソッドは使用できません。, 6行目【Selection.ShapeRange.Group.Name = 名前】 Selection【ｾﾚｸｼｮﾝ】プロパティで現在選択されているシェイプを参照して、選択されているシェイプの範囲をShapeRange【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションで取得し、Group【ｸﾞﾙｰﾌﾟ】メソッドで複数のシェイプを一つにまとめます。Shape【ｼｪｲﾌﾟ】オブジェクトが返されるので、それに対しName【ﾈｰﾑ】プロパティで「変数名前」に格納された値を設定します。, 7行目【MsgBox 名前 & “という名前でグループ化しました。”】 MsgBox【ﾒｾｰｼﾞﾎﾞｯｸｽ】関数を利用してグループ化したことをユーザーに伝えます。, 8行目【Exit Sub】 エラーが発生せずに、シェイプのグループ化が出来た場合は、Exit【ｴｸﾞｼﾞｯﾄ】ステートメントで処理を終了します。, 9行目、10行目【エラー処理: MsgBox “グループ化するには2個以上のシェイプが必要です、”】 エラーが発生したとき、つまり、シェイプが一つしかなかった場合MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してユーザーにメッセージを表示します。, グループ化を解除する場合は、グループ化されたシェイプを選択状態にしてマウス右ボタンでメニューを表示し「グループ解除」をできますが、簡単なので、グループ解除のコードもご紹介します。同じ標準モジュール内に記述しておくと良いと思います。, 以上で、複数の図形（シェイプ）をグループ化するについての解説を終了します。ありがとうございました。, 4行目【名前 = InputBox(“シェイプのグループ名を入力してください｡”)】, 6行目【Selection.ShapeRange.Group.Name = 名前】.

@@@@Next C

InputBoxを使うと文字や数値の入力はもちろん、セル選択もできます。 その際にシェイプを選択したり、選択の解除したりしなくてはなりません。

をクリックし、[グループ解除] をクリックします。, [描画ツール] タブ、[図ツール] タブ、または [書式] タブが表示されない場合は、図形、図、またはその他のオブジェクトのグループを選んでいるかどうかをご確認ください。 [書式] タブを開くには、オブジェクトをダブルクリックする必要がある場合があります。, 注: SmartArt グラフィックを個別の図形に変換した場合、図形を変換して SmartArt グラフィックに戻したり、それらを再グループ化したりすることはできません。, 図形やオブジェクトを再グループ化するには、[描画ツール] の [書式] タブにある [配置] グループで

最初は見よう見まねでOKですので、ぜひFor Nex... 今回紹介するVBAサンプルコードは、例えば本日の日付が「2020年3月3日」ならば、フォルダ名が「20200303」となるフォルダを作成します。.

今回は、これさえ読めば、とにかく配列を使えるようになる、ということに特化した記事です。

セルに入力されている氏名などのデータを複数の列に分割するには、TextToColumnsメソッドを使用します。

@@@@'‘S‚Ă̐}Œ`‚©‚çƒOƒ‹[ƒv‰»‚³‚ꂽ}Œ`‚ÌŽlŠpŒ`‚Ì•‚ð•ÏX

.Top、.Left、.Width、.Height　を使う の [配置] をクリックして表示します。, オブジェクトのグループを作成した後でも、グループを選択し、アイテムをクリックして選択すると、グループで個別のアイテムを操作し続けることができます。, 注: [グループ] ボタンが使用できない場合は、複数のオブジェクトが選択されていることを確認します。 追加のオブジェクトを選択できない場合は、グループに追加するオブジェクトで、ワードラップが[行内] に設定されていないことを確認します。, グループを移動しても、1つの図形または図を残しておくこともできます。また、グループ内の他の図形を変更せずに、1つの図形に大幅な変更を加える必要がある場合もあります。 そのためには、最初にオブジェクトのグループ化を解除するか、グループ化を解除します。, 他のオブジェクトから分離するオブジェクト (単一または複数) を含むグループを選択します。, [図形の書式設定] タブまたは [図の書式設定] タブで、[グループ] をクリックし、[グループ解除] をクリックします。, Office グループをディゾルブして、個々のオブジェクトを現在の場所に残し、選択された状態にします。, 注: SmartArt グラフィック を個々の図形に変換した場合、それらを SmartArt グラフィック に戻したり、再グループ化したりすることはできません。, 図形やオブジェクトを再グループ化するには、[図形の書式設定] タブで、[グループ > 再グループ化] をクリックします。, 図を再グループ化するには、[図の書式設定] タブで、[グループ > 再グループ化] をクリックします。, CTRL キーを押しながら、グループ化する図形、図、または他のオブジェクトをクリックします。 [グループ化] ボタンを有効にするには、複数の図形、図、またはオブジェクトを選択する必要があります。 CTRL キーを押しながら A キーを押すと、スライド上のすべてのオブジェクトを選ぶことができます。, ヒント: オブジェクトをグループ解除するには、グループを選択し、[配置] ボタンを選択して、[グループ解除] を選択します。, 注:  VBAで入力ボックスを使うには、InputBoxを使います。

@@@@@@@@@D.Width = D.Width * 2 マクロVBAで、オートシェイプ（図形）を扱う場合の解説です。オートシェイプ（図形）はShapeオブジェクトであり、ShapeオブジェクトのコレクションがShapesコレクションになります。Shapeオブジェクトは、多くのオブジェクトをメンバーに持った複雑なオブジェクトとなっています。

じつはVBAで使用するInputBoxには２種類あるのです。 エクセル研究室トップ > エクセルVBAテクニック集 > 図形をグループ化する 図形をグループ化する . 今回はシェイプ（Shape）のSelectを解除する方法について徹底的に説明し... Excel VBA入門 その103：Deleteで「エラー1004」になり削除できない原因・対処方法, Excel VBA入門 その100：Excelマクロでフォルダ内の画像をエクセル上に貼り付ける.

大略 概略 違い 17, コストコ トーマス 服 4, 買って後悔 した 車ランキング 4, 雇用調整助成金 教育訓練 カリキュラム 例 10, 気質 気性 違い 29, グランドセイコー ダイバー 2020 7, ポケモンxy 教え技 れいとうパンチ 6, 無印 アロマディフューザー おすすめ 7, ポケモンカード ポリゴン 高額 13, 三国志大戦 刻印 時間 5, 証明書 英語 It 4, Siemens Nx マニュアル 20, ドトール Wi Fi 4, Spoon 用語 幽霊 9, チャンネルはそのまま 動画 Miomio 51, 私立大学 ボーナス 支給日 6, ドラゴンズ 選手 車 27, Apex イベント リーク 8, Nhk 井上あさひ 結婚 6, ソイングク Cd 最新 5, 風 怖い 心理 49, 影分身 英語 ポケモン 4, ブライス 人形 可愛い ランキング 5, 堀川国広 紋 意味 4, 裏声 曲 女 30, Torte 店舗 大阪 4, クワガタ 蛹 死亡 17, Rize ジェシー まりか 8, アウトレイジ 無料 Pandora 4, 有吉 ヒルナンデス 降板 11, ディズニーストア ツイステ アクスタ 5, Pixiv R 18 タグ ランキング 15, 乃木坂46 Mv ダウンロード 9, はらだいこ カビゴン 構築 5, スポンジボブ 耳から離れない 曲 20,