シートBにその日のデータを入力し、そのデータをシートAに蓄積していきたいです。
手作業ならば、
1.入力されたシートBのその日のデータをコピー
2.シートAの同じ日付の行を探し、値のみペースト
とするのでしょうが、これを自動化したいです。
セル参照だと、毎日、同じ行にデータが上書きされていくため
無理っぽいし、マクロを使わないとできませんか?
コピーとペーストはできそうですけど、「同じ日付の行を探し」というところが難しそうだなぁと思いました。。。
すみませんが、よろしくお願いします。
シートA(データ蓄積用)
日付 データ
12/1 データ1
12/2
・
・
12/31
シートB(データ入力用)
日付 データ
12/2 データ2
↑日付が変われば、同じ行にデータを上書き
No.1ベストアンサー
- 回答日時:
シート名「シートB」の シート名タブを右クリックして「コードの表示」
出てきたVBE画面にコピペします。
シートB の B2セルに書き込みをするとシート名「シートA」に書き込みをします。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r, tr As Range
Set tr = Target.Cells(1, 1)
If tr.Address = "$B$2" Then
With Worksheets("シートA")
Set r = .Range("A:A").Find(tr.Offset(0, -1).Value, _
.Range("A65536"), xlFormulas, xlWhole)
If r Is Nothing Then
.Range("A65536").End(xlUp).Offset(1, 0).Value = tr.Offset(0, -1).Text
.Range("B65536").End(xlUp).Offset(1, 0).Value = tr.Value
Else
r.Offset(0, 1).Value = tr.Value
End If
End With
End If
End Sub
ありがとうございます。
Findを使って該当セルを探すのですね。
流れはわかりました。
もうちょっと勉強してみます。
今回は早速のご回答ありがとうございました。
No.2
- 回答日時:
ブックを保存する前に当日のデータ(データ2)をデータ蓄積用シートに書き込むようにしました。
マクロ中のシート名は実際の名前に変更してください(質問にあるとおりのシートA、シートBとしています)。また当日分のデータが書かれているセルアドレスがB2以外であれば、これも3行目を変更してください
なお、データ蓄積用シートの日付はA列、データはB列としてマクロを書きました。違うのであれば補足してください。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim RES
Const Adr As String = "B2" '← 当日のデータのセルアドレス
With Worksheets("シートB")
RES = Application.Match(.Range(Adr).Offset(0, -1).Value * 1, _
Worksheets("シートA").Range("A1:A10000"), 0)
If IsError(RES) Then
MsgBox ("合致する日付が見つからないため" & Chr(13) & _
"本日のデータは書き込みできません")
Else
Worksheets("シートA").Cells(RES, "B") = .Range(Adr).Value
End If
End With
End Sub
マクロはALT+F11でVBE画面を開き、「VBAProjectエクスプローラ」の「ThisWorkBookを右クリック」→「コードの表示」で表示される画面にペーストして下さい。ブック保存時に自動実行されます。
丁寧なご回答ありがとうございました。
No.1さんのFindに対し、Matchを使うのですね。
参考にさせていただきます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
つい集めてしまうものはなんですか?
人間誰もは1つ「やたらこればかり集めてしまう」というものがあるもの。 あなたにとって、つい集めてしまうものはなんですか?
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
CDの保有枚数を教えてください
ひとむかし前はCDを買ったり借りたりが主流でしたが、サブスクで簡単に音楽が聴ける今、CDを手に取ることも減ってきたかと思います。皆さんは2024年現在、何枚くらいCDをお持ちですか?
-
牛、豚、鶏、どれか一つ食べられなくなるとしたら?
牛肉、豚肉、鶏肉のうち、どれか一種類をこの先一生食べられなくなるとしたらどれを我慢しますか?
-
あなたの習慣について教えてください!!
あなたが習慣だと思って実践しているものを共有してくださいませんか? 筋肉トレーニングでも朝シャワーでも、あなたが習慣だなと思えば何でも構いません
-
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
毎日の日計を別シートに自動で更新、反映させたい
PowerPoint(パワーポイント)
-
Excelで日付変更ごとに、自動的にデータを転記
Excel(エクセル)
-
-
4
エクセルで「入力」と「蓄積」の簡単なデータベース
Excel(エクセル)
-
5
エクセルを利用して、日計と累計を毎日作成する方法
Excel(エクセル)
-
6
エクセルでデータを蓄積させるには?
Excel(エクセル)
-
7
excelで、セル内に文字が入力される毎に行が自動挿入される仕組みを作りたいのですが…
Excel(エクセル)
-
8
EXCELでシート1で作ったデータをシート2にデータを蓄積させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
vbe でのソースコード参照(msgb...
-
excelVBAについて。
-
エクセル2021 範囲指定印刷をす...
-
エクセル初心者です 用語等まだ...
-
【マクロ】メッセージボックス...
-
excelVBAについて。
-
【マクロ】複数の日付データをY...
-
【Excel】日付に連動してプルダ...
-
Excelのセルの色を変えた行(す...
-
エクセルの関数ついて
-
【VBA】使ってたクエリの接続を...
-
エクセルシート保護を解除させ...
-
45490がどうして
-
8:40までの出勤は全て8:30に...
-
excelVBAについて。
-
excelVBAについて。
-
エクセル初心者です 用語とか良...
-
フィルターをかけた時の、別の...
-
IF 日付範囲に入っていたら
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルの数式バーのフォント...
-
【Excel】日付に連動してプルダ...
-
【再投稿】レイアウトが異なる...
-
Excelについて教えてください ...
-
同率順位の発生しないランキン...
-
エクセルマクロについて教えて...
-
【Excel VBA】 テキストファイ...
-
Excel 標準フォントについて教...
-
Excelの計算で差分を求める場合...
-
Excelの区切り文字について質問...
-
大容量があつかえるソフトを探...
-
エクセルの計算式について(COU...
-
エクセルについて
-
今までは、 「CSVの出力先を選...
-
Excel ショートカットで列、行...
-
8:40までの出勤は全て8:30に...
-
if関数。半角文字や全角文字で...
-
エクセルの関数
-
毎週追加して行くセルの数値を...
おすすめ情報