VBAで範囲外ですと言われる

Question

セルから値を取得しようとすると範囲外ですと言われます

Dim date_s As String
date_s = Worksheets(3).Range("C2").Value

なぜ範囲外になるのでしょうか？
C2セルには日付が入っています。

ワークシート名を直接指定しても同じエラーでした

date_s = Worksheets("3_ref_sheet").Range("C2").Value

Comments

[tatsu99]

worksheetは３つありますか。

[Shoto9023]

あります。3枚目のシートのC2の値を取得したいのです

[退会済みユーザー]

コードはThisWorkbookのモジュールや標準モジュール内に記載していますか？
各シートのモジュールに記載していませんか？
（sheet1のモジュールに記載しているとワークシート名を指定してもsheet1しか指定できないのでエラーになります）

[Shoto9023]

Excelファイルの標準モジュール(General)で作成しています。

[退会済みユーザー]

なるほど。
掲載コードは私の環境で正常に動作しました。
後は1,2枚目や新たに作成したシートでも同様に選択出来ないのか挙動の確認をするくらいしか思いつきません。

Answer 1

結局、Bookを作り直し、コードの書き直しをしたところ治りました。
原因はわかりませんでした。

Answer 2

１行目と２行目の変数名が違うので、date_sがどんな変数なのかもわかりません。

ワークシートの数があってないのではないでしょうか。

Comments

[Shoto9023]

すみません、1行目はdate_sです

[yo_u]

ワークシートの数の問題ではないかと思います。

[Shoto9023]

ワークシートは3枚あります。3枚目のシートのC2の値を取得したいのです。

[yo_u]

エラーは「インデックスが有効範囲にありません」ですよね？

[Shoto9023]

そうです。

[yo_u]

一応伺います。
マクロのあるBookと作業のBookは同じですよね？

[Shoto9023]

同じです。
ツリービューには
xls
+Excel Objects
||Sheet1
||Sheet2
||Sheet3
||ThisWorkbook
+標準モジュール
||Module1

の表示になっています

[yo_u]

何度もすみません。
ここに書かれているコードは、実際のものそのままでしょうか？
例えば実際には、直接シートの番号やシート名を書いているのではなく、
変数で指定しているとか。。。

[Shoto9023]

いえいえ、こちらこそお付き合いいただいてありがとうございます。

私が書いているのは、質問本文にある2通りの方法だけです。

[yo_u]

書かれている内容に過不足がないのであれば、
今ある情報だけで私のところで実際にやってみてもも再現はできませんでした。
改めて新しいBookを作り直してもダメでしょうか？