![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
次のような処理を考えています。
A B (シート1)
2001/5/1 10000
2001/5/2 3000
: :
このデータはACCESSからインポートしたものですが、これを下記のような
シートに展開しようとしています。
1月 2月 ・・・ (シート2)
1日 10000 ???
2日 3000 ???
: : :
年が変わるとシートを追加します。
次のようなロジックを考えました。
Dim Rng As Range (他略)
I = 2
Wrk_Year = 9999
Worksheets("シート1").Activate
Do While (ActiveSheet.Range("A" & I) <> "")
Set Rng = Range("A" & I)
If Wrk_Year = Year(Rng.Value) Then
Else
Wrk_Year = Year(Rng.Value)
For Each Worksheet In Worksheets '同じシート名があるか
If Worksheet.Name = Wrk_Year & "年" Then
Sh_Flg = 0
Exit For
Else
Sh_Flg = 1
End If
Next
If Sh_Flg = 1 Then
Worksheets("シート2").Copy after:=Worksheets(Worksheets.Count) '最後尾にシートコピー
ActiveSheet.Name = Wrk_Year & "年"
Worksheets("シート1").Activate
Sh_Flg = 0
End If
End If
Cell_Month = Month(Rng.Value) + 1
Cell_Day = Day(Rng.Value) + 1
(1) Rng.Value.Copy Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month)
I = I + 1
Loop
ここで、(1)でいつも「オブジェクトが必要です。」とのエラーになってしまいます。
たぶん、非常に基礎的なことだと思うのですが、なぜでしょうか?
No.2ベストアンサー
- 回答日時:
#01です
COPYメソッドはRangeオブジェクトに対しては有効ですが、Valueに対しては行えません。Copyの対象が不適切なので「オブジェクトが必要です。」というエラーになったと考えられます。
No.1
- 回答日時:
時間がなくゆっくり読んでいられないのですが(1)は値を代入するところですね。
ならばWorksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month) = Rng.Value
で良いのではないでしょうか。
Copyメソッドを使いたいのであれば Rng.Copy をして、(Value.Copyではない)
Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month) をSelectしてから、Activesheet.Paste で貼り付けます
確かにできました。ありがとうございます。
しかし、いったい何が悪かったのでしょうか?
(わたしもまだ基本的なところが理解できていないのかも知れません。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
VBAで Set wb = Sheets(1).Copyができないわけ?
PowerPoint(パワーポイント)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
6
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
7
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
8
VBA 値のみ貼り付けがうまくいきません
Excel(エクセル)
-
9
(初心者です)VBAについて。「実行時エラー424、オブジェクトが必要です」について
Visual Basic(VBA)
-
10
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
13
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
14
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
15
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
16
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
17
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
18
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
19
「オブジェクトが必要です。」エラーになります。
Visual Basic(VBA)
-
20
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
excelのマクロで該当処理できな...
-
Excel VBA 複数行を数の分だけ...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excel VBA リンク先をシート...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
【VBA】色のついたシート名を取得
-
シートが保護されている状態で...
-
別のシートを参照して計算する方法
-
VBAで指定シート以外の選択
-
Excelマクロのエラーを解決した...
-
Worksheet_Changeの内容を標準...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報