
標題のエラーが出ます。理由ご存じの方、教えて下さい
【エラーメッセージ】
実行時エラー '424': オブジェクトが必要です。
【エラーコード】
Set name = Thisbook.Worksheets(シート(i))
【コード⇒シート1から3のA1セルに あいうえお と入力するマクロ】
Sub sheetarrayの配列()
Dim name As Worksheet
Dim シート As Variant
シート = Array("Sheet1", "Sheet2", "Sheet1")
Dim i As Integer
For i = 0 To 2
Set name = Thisbook.Sheets(シート(i))
name.Range("a1") = "あいうえお"
Next
End Sub
No.2ベストアンサー
- 回答日時:
Thisbook.Sheets(シート(i))
を
ThisWorkbook.Sheets(シート(i))
にしてください。
先頭に
Option Explicit
をつけて実行すると、
Thisbook がおかしいというメッセージを出してくれます。
Option Explicitを付ける癖をつけておくと良いでしょう。
VBEの画面のツール(T)でオプション(O)を選択、編集タブで「変数の宣言を強制する」にチェックを入れておくと、モジュール挿入時、自動的に
Option Explicitが追加されます。
あと、
Array("Sheet1", "Sheet2", "Sheet1")は
Array("Sheet1", "Sheet2", "Sheet3")の間違いかと。

ありがとうございます。解決しました
ThisWorkbook.Sheets(シート(i))
以下も単純ミスです
Array("Sheet1", "Sheet2", "Sheet1")
No.3
- 回答日時:
こんにちは
単純に「Thisbook」がどこにも定義されずに、いきなり使われているので、「オブジェクトが必要です」と文句を言っているのではないでしょうか?
雰囲気からすると「ThisWorkbook」のつもりなのかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【マクロ】シートの変数へ入れるコードがエラーとなるのはなぜでしょうか? 1 2025/04/27 15:39
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Excel(エクセル) 【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記 2 2024/05/02 14:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/27 14:27
- Visual Basic(VBA) VBA 複数の各シートに行を追加したいです 2 2024/02/28 22:09
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Visual Basic(VBA) Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです 3 2024/02/05 22:10
- Excel(エクセル) シート名を簡単に書く方法があれば教えてください。 4 2023/08/24 12:40
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
このQ&Aを見た人はこんなQ&Aも見ています
-
【マクロ】【相談】Excelブックとマクロを早く動くようにする為には?
Excel(エクセル)
-
今まで文字化けなく開けていたcsvファイルが、文字化けするようになりました。 解決策を教えて頂きたい
Excel(エクセル)
-
大容量があつかえるソフトを探しています
Excel(エクセル)
-
-
4
(マクロ)値を返す時は subでもfunctionでもどちらでも良いのでしょうか?
Excel(エクセル)
-
5
【ExcelVBA】dictionaryの重複判断の基準(セル結合だと違う値として認識される)
Visual Basic(VBA)
-
6
考えた式の戻り値が期待通りにならない
Excel(エクセル)
-
7
11ケタの数字を打つと、エクセルの表示が、1.01235E+11 になるのはなぜ?
Excel(エクセル)
-
8
エクセルの不調について
Excel(エクセル)
-
9
excelVBAについて。
Excel(エクセル)
-
10
excelですが一つのマスに入ってる文字を2つのマスに変更できますか
Excel(エクセル)
-
11
PHPの勉強してます。 配列のところですが、 実行結果は、9になりますが、 そのロジックを教えてくだ
PHP
-
12
ファイルパスについて。
Excel(エクセル)
-
13
vbe でのソースコード参照(msgbox)について
Excel(エクセル)
-
14
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
15
excelVBAについて。
Excel(エクセル)
-
16
エクスプローラーで見ることはできますか
Excel(エクセル)
-
17
excelVBAについて。
Excel(エクセル)
-
18
excelVBAについて。
Excel(エクセル)
-
19
質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
20
【マクロ】Call関数で呼び出した場合、共通の変数宣言は、省略できますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】実行時エラー '424':...
-
エクセルのマクロについて 3
-
エクセルVBAでオブジェクトが必...
-
エクセルを共有にすると、シー...
-
Access-VBAでExcelファイ...
-
【VBA】2つのシートの値を比較...
-
VBA 別ブックからコピペしたい...
-
「段」と「行」の違いがよくわ...
-
VBA シートをコピーする際に Co...
-
Excel UserForm の表示位置
-
特定の文字がある行以外を削除...
-
Worksheets メソッドは失敗しま...
-
マクロの「SaveAs」でエラーが...
-
指定値をマクロで検索&シート移動
-
VBA マクロ エラー1004 アプ...
-
別ブックをダイアログボックス...
-
VBAでの SendKeysの変数指定方法
-
excel vbaのエラー原因について
-
DataGridViewのフォーカス遷移...
-
VBAで指定範囲内の空白セルを左...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでオブジェクトが必...
-
エクセルのVBAについて教えてく...
-
コンボボックスへ降順に表示す...
-
エクセルを共有にすると、シー...
-
エクセルマクロ(超初心者)
-
Access-VBAでExcelファイ...
-
複数シートを一括で保護を掛け...
-
エクセルマクロ 変数をワーク...
-
Excell VBA にて配列に定数を代...
-
マクロのコマンドボタン《Activ...
-
マクロ実行後、画面がちかちか...
-
エクセル2013
-
エクセルのマクロ(大量データ...
-
エクセルで品番を入れると、そ...
-
エクセルVBAを勉強中なのですが...
-
EXCEL【VBE】 範囲別にその...
-
エクセルVBA 別シートの最終セ...
-
excelのvbaでのシート指定が時...
-
VBAでVlookup機能を使うときに...
-
エクセル2007 複数のワークシ...
おすすめ情報