[[20230312054821]] 『同じセルに毎日の在庫を入力』(クマ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『同じセルに毎日の在庫を入力』(クマ)

ご質問させて頂きます。
Excelの同じセルへその日の終わりの在庫数が自動で入力されていくのですが、そこでアドバイス頂きたいです。

同じセルへ毎日新しい数値が入ってくる為、過去の数値が上書きされ消えてしまいます。
過去の数値を残しておける様な方法はございませんでしょうか?(自動で実施したい)
(例:日を跨ぐタイミングで、そのセルの数値を読み取り、別Excelシートなどに過去の数値を蓄積させれる方法など)

お助け宜しくお願い致します。

< 使用 Excel:Microsoft365、使用 OS:Windows10 >


 >Excelの同じセルへその日の終わりの在庫数が自動で入力されていく
 上記部分、今の仕組みが分からないと答えようがないので教えて貰えますか?
(稲葉) 2023/03/12(日) 08:12:03

 おはようございます。
もう書いちゃったのでそのままアップします。
方法は色々あると思いますが、、一案として
Sheet1のシートモジュールに↓と貼り付けて
Sheet2のA列を今日の日付で検索して
ヒットしたらそのB列に値を代入
なかったらA列に日付をセットしてそのB列に値を代入
みたいな感じでどうでしょうか???
何かの参考になれば幸いです。。。
では、、では、、、

 Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 日付 As Date
Dim r As Range
If Target.Address <> "$A$1" Then Exit Sub
    日付 = Date
    Set r = Sheets("Sheet2").Range("A:A").Find(日付, , xlFormulas, xlWhole)
    If r Is Nothing Then
        With Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
            .Value = 日付
            .Offset(, 1).Value = Target.Value
        End With
    Else
        r.Offset(, 1).Value = Target.Value
    End If
End Sub
(SoulMan) 2023/03/12(日) 08:39:23

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.