
Excelについての質問です。
シートを「入力」と「データ」に分けており、入力シートには、その日一日分のデータが入力できるようにしています。(※この作業自体は、すでにマクロで自分のイメージ通りに入力できるようになっています。)
ここで皆さんのお知恵をお借りしたいのですが...
日付が変わった時に、自動的に入力シートのデータをデータシートに転記し、データを一日分ごと(365日分)に、データシートに蓄積していきたいと考えております。
また、入力シートは、日付が変わった時に、自動的にデータが0になるようにリセットできるようにしたいのですが、これら2つの作業を可能にする数式やマクロを、どのようなものにすればよいかわかりません。どなたか良いお知恵を授けていただけますとありがたいです。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>日付が変わった時に、自動的に入力シートのデータをデータシートに転記
>し、データを一日分ごと(365日分)に、データシートに蓄積していきた
>いと考えております。
一般的には、一日の入力作業が終わったら
ボタンを押して、入力したデータが蓄積のシートのデータがある最終行の
下に移動して、入力シートをクリアすると思うのですが。
こちらでは駄目なのでしょうか。

No.2
- 回答日時:
》 数式やマクロを、どのようなものにすればよいかわかりません
そういう人に「知恵を授け」たぐらいでは・・・
貴方、大丈夫ですかぁ?「知恵を授けていただけますとありがたい」なんて、仰っているけど。
No.1
- 回答日時:
こんにちは!
表の具体的なレイアウトが判らないので、やり方だけ・・・
VBAになりますが一例です。
両シートとも1行目が項目行になっていて、日付列がA列だとします。
>日付が変わった時に、自動的にデータが0になるようにリセットできるようにしたいのですが
というコトですので、「入力シート」の2行目以降のデータはコピー&ペースト後消去するようにしています。
(万一数式が入っている場合は数式も消去されますので、気を付けてください)
Alt+F11キー → VBE画面左下にある「ThisWorkbook」をダブルクリック → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペーストしてみてください。
Private Sub Workbook_Open()
Dim lastRow As Long, lastCol As Long
Dim myRng As Range, wS As Worksheet
Set wS = Worksheets("データ")
With Worksheets("入力")
If Date <> .Range("A2") Then
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
Set myRng = Range(.Cells(2, "A"), .Cells(lastRow, lastCol))
myRng.Copy wS.Cells(Rows.Count, "A").End(xlUp).Offset(1)
myRng.ClearContents
End If
End With
End Sub
これでファイルを開いたときに
開いた日付と「入力」シートのA2セルの日付が違う場合に
「入力」シートの2行目以降のデータが「データ」シートのA列最終行以降に
コピー&ペーストされているはずです。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセル 日付が変わると同時にセルを空にしたいです
Excel(エクセル)
-
TODAY()で設定したセルの日付が変わったらマクロを実施させたい
Visual Basic(VBA)
-
エクセルで日毎のデータの蓄積
Excel(エクセル)
-
-
4
エクセルで入力→日付を自動判別して、その日付用のセルに転記したい
Excel(エクセル)
-
5
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
6
毎日の日計を別シートに自動で更新、反映させたい
PowerPoint(パワーポイント)
-
7
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
8
エクセルで、日付を入力すると、別のセルに文字を自動的に表示させるようにするには。
Excel(エクセル)
-
9
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
10
月毎に参照するセルを変更したい。
Excel(エクセル)
-
11
エクセルで、月によって参照するシートを自動的に変える関数
Excel(エクセル)
-
12
エクセル 指定した月のデータを自動的に反映させられる方法
Excel(エクセル)
-
13
月が変わったら自動でシートが複製される方法を教えてください。
Visual Basic(VBA)
-
14
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
15
エクセルで日付別にシートを分けたい
Excel(エクセル)
-
16
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
17
エクセルで勤務表の出勤者を抜き出したい。 日付 名前 5/16 5/17 5/18 5/19 田中
Excel(エクセル)
-
18
エクセル 1つのシートを日付で複数シートに分けたい
Excel(エクセル)
-
19
本日の日付とマッチした列の値を抽出
Excel(エクセル)
-
20
今日の日付が過ぎたらその行を削除したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
隣の枝がはみ出してきたら切ってもいい?最もやってはいけないことは?
「隣の木が越境してきて困るが、勝手に切ってはいけないと聞くし…」そう思っている方も多いだろう。実は、2023年4月1日に民法が改正され、この「越境枝」のルールが大きく変わった。 教えて!gooでも「境界から出て...
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelの不要な行の削除ができな...
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
電子部品のデータシートの探し方
-
EXCELで2つのファイルから重複...
-
シート削除して同名シート追加...
-
EXCEL 複数行のデータを1行にま...
-
Excelファイルの容量が異常に大...
-
SANYO 集積回路STKシリーズのデ...
-
excel vlookup 新担当者への実...
-
EXCELのシートの保護機能につい...
-
【Excel】マクロでグラフ系列に...
-
エクセルで入試スケジュールを...
-
エクセルのデータ振り分け方法...
-
【マクロ】元データを別ファイ...
-
ファンモータが作動しない。
-
Excelでシートの違うデータでグ...
-
【エクセルマクロ】複数シート...
-
VBAでブックを非表示で開いて処...
-
エクセルの選択範囲以外を削除...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの不要な行の削除ができな...
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
シート削除して同名シート追加...
-
Excelでシートの違うデータでグ...
-
Excelで日付変更ごとに、自動的...
-
他のシートの一番下の行データ...
-
EXCELで2つのファイルから重複...
-
時間帯の重複を除いた集計について
-
VBAで CTRL+HOMEの位置へ移動...
-
エクセルで名簿を50音で切り分ける
-
EXCEL の表を一行ずつシートに...
-
Excel 売上管理シートに入力し...
-
トランジスタの選び方
-
エクセル 縦に長い表の印刷時...
-
ファンモータが作動しない。
-
エクセルVBAで、特定文字から始...
-
エクセル マクロ "特定の日付...
-
Excelファイルの容量が異常に大...
-
ピボットテーブルのデータソー...
おすすめ情報