レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA導入編

受講生さんの投稿

(投稿ID: 4527)

お世話になっております。

動画とおりやってマクロを書いてみましたが、

Worksheets("sheet3").Range("b8").Value = 22353
と入力したら、

実行時エラー“９”
インデックスが有効範囲にありません。

と言われ、操作が継続できません。

シート数は6まであります。

お忙しいところ恐れ入りますが、ご教示いただけますと幸いです。

よろしくお願いします。

2019/07/19 01:17

小川慶一さんのコメント

(コメントID: 6243)

受講生さん:

> 実行時エラー“９”
> インデックスが有効範囲にありません。

というのは、シートの指定やセルの指定に失敗したときにでるエラーです。
以下のどちらか、ということですね。

[1] Worksheets("sheet3") に、Range("b8")というセルが見つからなった
[2] そもそも、Worksheets("sheet3") というシートが見つからなった

Worksheets("sheet3").Range("b8").Value = 22353

と入力されたとのことですので、もし上記プログラムが一字一句間違いなく受講生さんの書かれたプログラムであったならばということで考えてみます。
前記[1]が理由だろうか？ということから考えてみたいののですが、「B8」という番地のセルがないということはどのシートであっても考えにくいです。
となると、前記[2]の理由が怪しいですね。

ということで、以下は、初心者の方の書いたマクロを添削した経験から念の為確認したい事項です。

たとえば似ているようでも、以下のシート名はだめです。
シート名、大丈夫そうでしょうか。

「sheet３」(最後の『3』が、半角ではなく、全角の『３』）
「ｓheet3」(最初の『s』が、半角ではなく、全角の『ｓ』）
「Sheet3 」(『3』のあとに、半角のスペースが紛れ込んでいる）
「Shet3」(『e』がひとつ少ない)
「Sheeet3」(『e』がひとつ多い)

大文字小文字の違いはOKなのに、ややこしいですね...。

反対に、「『Sheet3』というシートは実在する。絶対に間違いない！」ということでしたら、プログラムのほうを疑いたいです。

たとえば、以下はすべてNGです。

Sub SheetNotFoundSample()
    'シート名不正でエラーになる例
    Worksheets("sheet３").Range("b8").Value = 22353 '[NG]
    Worksheets("ｓheet3").Range("b8").Value = 22353 '[NG]
    Worksheets("sheet3 ").Range("b8").Value = 22353 '[NG]
    Worksheets("shet3").Range("b8").Value = 22353   '[NG]
    Worksheets("Sheeet3").Range("b8").Value = 22353 '[NG]
End Sub

プログラムのほうを疑うなら、「セル番地の指定が間違っているかもしれない」という可能性も再度検討したいです。
ただし、エクセルVBAでは、どういうわけか、セル番地のほうが、指定時の表記の揺れに寛容です。以下、OK、NGな書き方のよくあるパターンをいくつか例示します。

Sub CellNotFoundSample()
    Worksheets("sheet3").Range("ｂ8").Value = 22353  '[OK: bが全角]
    Worksheets("sheet3").Range("b８").Value = 22353  '[OK: 8が全角]
    Worksheets("sheet3").Range("ｂ８").Value = 22353 '[OK: b8ともに全角]
    Worksheets("sheet3").Range("b8 ").Value = 22353  '[OK: 後ろに半角スペース]
    Worksheets("sheet3").Range(" b8").Value = 22353  '[OK: 前に半角スペース]
    Worksheets("sheet3").Range("b8　").Value = 22353 '[OK: 後ろに全角スペース]
    Worksheets("sheet3").Range("　b8").Value = 22353 '[OK: 前に全角スペース]
    Worksheets("sheet3").Range("b 8").Value = 22353 '[NG:間にスペース]
    Worksheets("sheet3").Range("8b").Value = 22353  '[NG:bと8が逆]
End Sub

解決しなければ、このページの質問感想フォームからファイルもお送りください。

> お世話になっております。
>
> 動画とおりやってマクロを書いてみましたが、
>
> Worksheets("sheet3").Range("b8").Value = 22353
> と入力したら、
>
> 実行時エラー“９”
> インデックスが有効範囲にありません。
>
> と言われ、操作が継続できません。
>
> シート数は6まであります。
>
> お忙しいところ恐れ入りますが、ご教示いただけますと幸いです。
>
> よろしくお願いします。
>

2019/07/19 18:14

受講生さんのコメント

(コメントID: 6244)

小川先生

お世話になっております。
大事なお時間を割いていただき、ご返信くださいまして、ありがとうございます。

先生のご指摘に注意しながら、もう一度書き直してみたいと思います。

ちなみに前回の質問は送信する前に、綴りなど何回も確認しておりました。

また、他に気になることがございますが、
動画の「導入編6」から「次の動画」をクリックしますと、
「導入編8」に飛んでいきます。
「導入編7」はありませんか？

宜しくお願い致します。

小川慶一さん:

> 受講生さん:
>
> > 実行時エラー“９”
> > インデックスが有効範囲にありません。
>
> というのは、シートの指定やセルの指定に失敗したときにでるエラーです。
> 以下のどちらか、ということですね。
>
> [1] Worksheets("sheet3") に、Range("b8")というセルが見つからなった
> [2] そもそも、Worksheets("sheet3") というシートが見つからなった
>
>

Worksheets("sheet3").Range("b8").Value = 22353

>
> と入力されたとのことですので、もし上記プログラムが一字一句間違いなく受講生さんの書かれたプログラムであったならばということで考えてみます。
> 前記[1]が理由だろうか？ということから考えてみたいののですが、「B8」という番地のセルがないということはどのシートであっても考えにくいです。
> となると、前記[2]の理由が怪しいですね。
>
> ということで、以下は、初心者の方の書いたマクロを添削した経験から念の為確認したい事項です。
>
> たとえば似ているようでも、以下のシート名はだめです。
> シート名、大丈夫そうでしょうか。
>
> 「sheet３」(最後の『3』が、半角ではなく、全角の『３』）
> 「ｓheet3」(最初の『s』が、半角ではなく、全角の『ｓ』）
> 「Sheet3 」(『3』のあとに、半角のスペースが紛れ込んでいる）
> 「Shet3」(『e』がひとつ少ない)
> 「Sheeet3」(『e』がひとつ多い)
>
> 大文字小文字の違いはOKなのに、ややこしいですね...。
>
>
> 反対に、「『Sheet3』というシートは実在する。絶対に間違いない！」ということでしたら、プログラムのほうを疑いたいです。
>
> たとえば、以下はすべてNGです。
>
>

Sub SheetNotFoundSample()
>     'シート名不正でエラーになる例
>     Worksheets("sheet３").Range("b8").Value = 22353 '[NG]
>     Worksheets("ｓheet3").Range("b8").Value = 22353 '[NG]
>     Worksheets("sheet3 ").Range("b8").Value = 22353 '[NG]
>     Worksheets("shet3").Range("b8").Value = 22353   '[NG]
>     Worksheets("Sheeet3").Range("b8").Value = 22353 '[NG]
> End Sub

>
> プログラムのほうを疑うなら、「セル番地の指定が間違っているかもしれない」という可能性も再度検討したいです。
> ただし、エクセルVBAでは、どういうわけか、セル番地のほうが、指定時の表記の揺れに寛容です。以下、OK、NGな書き方のよくあるパターンをいくつか例示します。
>

Sub CellNotFoundSample()
>     Worksheets("sheet3").Range("ｂ8").Value = 22353  '[OK: bが全角]
>     Worksheets("sheet3").Range("b８").Value = 22353  '[OK: 8が全角]
>     Worksheets("sheet3").Range("ｂ８").Value = 22353 '[OK: b8ともに全角]
>     Worksheets("sheet3").Range("b8 ").Value = 22353  '[OK: 後ろに半角スペース]
>     Worksheets("sheet3").Range(" b8").Value = 22353  '[OK: 前に半角スペース]
>     Worksheets("sheet3").Range("b8　").Value = 22353 '[OK: 後ろに全角スペース]
>     Worksheets("sheet3").Range("　b8").Value = 22353 '[OK: 前に全角スペース]
>     Worksheets("sheet3").Range("b 8").Value = 22353 '[NG:間にスペース]
>     Worksheets("sheet3").Range("8b").Value = 22353  '[NG:bと8が逆]
> End Sub

>
> 解決しなければ、このページの質問感想フォームからファイルもお送りください。
>
>
>
> > お世話になっております。
> >
> > 動画とおりやってマクロを書いてみましたが、
> >
> > Worksheets("sheet3").Range("b8").Value = 22353
> > と入力したら、
> >
> > 実行時エラー“９”
> > インデックスが有効範囲にありません。
> >
> > と言われ、操作が継続できません。
> >
> > シート数は6まであります。
> >
> > お忙しいところ恐れ入りますが、ご教示いただけますと幸いです。
> >
> > よろしくお願いします。
> >

2019/07/19 19:12

小川慶一さんのコメント

(コメントID: 6245)

受講生さん:

こんばんは。

シート名を取得するには、ショートカットキーを使うのが確実です。
(マウスだと範囲選択に失敗することがある)

以下に、そのときの操作の一例を示します。

エクセル画面がアクティブなときに、
[Alt] → [H] → [O] → [R] で、アクティブなシートのシート名が選択できます。
その状態で、 [Ctr] + [C] でシート名の文字列をコピー。
[Esc] キーを押すと、シート名が選択されていた状態が解消します。

それからVisual Basic Editorの画面に戻り、

worksheets("

まで書いたところで、 [Ctrl] + [V] でシート名の文字列を貼りつけ。

やってみてください。

> また、他に気になることがございますが、
> 動画の「導入編6」から「次の動画」をクリックしますと、
> 「導入編8」に飛んでいきます。
> 「導入編7」はありませんか？
↑
これについては、再現できませんでした...。

> 小川先生
>
> お世話になっております。
> 大事なお時間を割いていただき、ご返信くださいまして、ありがとうございます。
>
> 先生のご指摘に注意しながら、もう一度書き直してみたいと思います。
>
> ちなみに前回の質問は送信する前に、綴りなど何回も確認しておりました。
>
> また、他に気になることがございますが、
> 動画の「導入編6」から「次の動画」をクリックしますと、
> 「導入編8」に飛んでいきます。
> 「導入編7」はありませんか？
>
> 宜しくお願い致します。

2019/07/21 07:25