こんにちは。
エラーが出て前に進めないので、ご教示をいただければと思います。
やりたい事としては、4月、5月などのデータを串刺し計算できるVBAを作りたい(シート数はその時で変更します)
流れとしては、4月のシートを左から2番目にコピーして、該当のセルの値をクリアし、串刺し計算結果を表示したいと思っています。
自分なりに、以下にように書きましたが、記載の場所でエラーとなります。
内容:(実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです)
原因と対策をご教示いただければ幸いです。
よろしくお願いいたします。
※Excel2016使用
Sub 集計()
Dim mySum As String
Dim r as Range
Worksheets(2).Copy after:=Worksheets(1)
ActiveSheet.Name = "集計"
Worksheets("集計").Range("B5:C7").ClearContents
Worksheets("集計").Range("B5:xC7").ClearContents
mySum = Worksheets(3).Name & ":" & _
Worksheets(Worksheets.Count).Name & "!"
Worksheets(2).Activate
For Each r In Worksheets(2).Range("B5:C7")
r.Value = "=sum(" & mySum & r.Address(0, 0) & ")" ←エラー
Next r
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。 今回すでに集めてある「ま 1 2022/08/29 20:38
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 日付を重複させずに数えたい 4 2022/12/04 16:26
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAで時間(00:00形式)を積算(足し算)したい 1 2022/11/15 17:04
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー'-2147467259(8000...
-
SQLでエラーです。
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
IISの仮想ディレクトリ作成がわ...
-
VBAでfunctionを利用しようとし...
-
インポート時のエラー「データ...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
エクセルVBAでApplication.Sum...
-
VBAのエラーについて
-
VBA データ(特定値)のある最...
-
エクセル関数を教えてください
-
ActiveCell.FormulaR1C1の変数
-
On ErrorでエラーNoが0
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報