エクセル、別シートに操作したセルや実行した人物を返す方法について

Question

エクセル2000についての質問です。
　エクセルにてデータベースを作成したのですが、そのデータベースから検索抽出したセルに、変更を加えたとします。（個数を1個減らすとか）
　その際、その変更の操作を行った人物と、変更したセルのデータを、別のシートに返したいのですが、どのように組み立てたら宜しいのでしょうか？
　色々書籍を探したのですが、該当するものがなかったので投稿しました。
　ご存知の方がいらしたら、回答の程、宜しくお願い致します。

kazuhiko5681 · Accepted Answer

早速マクロを作ってみました。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myRow As Long
    Dim mySyukko As Integer
    Dim myZaiko As Integer
    Dim myName As String
    
    If Target.Column = 5 Then
        If Target.Value <> "" Then
            mySyukko = Target.Value
            myZaiko = Target.Offset(0, -2).Value
            Target.Offset(0, -2).Value = myZaiko - mySyukko
            Target.Value = ""
            myName = Target.Offset(0, -1).Value
            Target.Offset(0, -1).Value = ""
            
            If Worksheets.Count = 1 Then
                Worksheets.Add after:=Worksheets(1)
                Worksheets(2).Range("A1").Value = "商品名"
                Worksheets(2).Range("B1").Value = "持出数"
                Worksheets(2).Range("C1").Value = "担当者"
                Worksheets(2).Range("D1").Value = "日付"
                Worksheets(2).Columns("D:D").ColumnWidth = 10
            End If
            
            myRow = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            Target.Offset(0, -4).Copy Destination:=Worksheets(2).Cells(myRow, 1)
            Worksheets(2).Cells(myRow, 2).Value = mySyukko
            Worksheets(2).Cells(myRow, 3).Value = myName
            Worksheets(2).Cells(myRow, 4).Value = Date
        End If
    End If
   
End Sub

前回と同じ手順で実行してみて下さい。

また何かありましたら、お知らせ下さい。

kazuhiko5681 · Answer

早速ご返事いただきまして有難うございます。変更点を直すことは、すべて可能です。調べたいことがありますので、少し時間を下さい。必ず回答させていただきます。

kazuhiko5681 · Answer

早速マクロを組んでみました。参考にして下さい。
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myRow As Long
    
    If Target.Column = 5 Then
        If Target.Value <> "" Then
            Target.Offset(0, -2).Value = Target.Value
            Target.Value = ""
            
            If Worksheets.Count = 1 Then
                Worksheets.Add after:=Worksheets(1)
                Worksheets(2).Range("A1").Value = "商品名"
                Worksheets(2).Range("B1").Value = "在庫数"
                Worksheets(2).Range("C1").Value = "担当者"
            End If
            
            myRow = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row
            If myRow > 1 Then
                Worksheets(2).Rows("2:2").Insert Shift:=xlDown
            End If
            Target.Offset(0, -4).Copy Destination:=Worksheets(2).Range("A2")
            Target.Offset(0, -2).Copy Destination:=Worksheets(2).Range("B2")
            Target.Offset(0, -1).Copy Destination:=Worksheets(2).Range("C2")
        End If
    End If

End sub

Sheet1のA列を商品名・B列を価格・C列を在庫数・D列を人物名・E列を変更数として、説明します。
１.上のPrivate sub Worksheet_Change(ByVal Target As Range)からend subまでをコピーする。
コピー方法は、上のPrivate sub Worksheet_Change(ByVal Target As Range)からend subまでを選択して青く反転させ、青く反転した範囲の中で右クリック→コピーをクリックする。
２.A列～D列にそれぞれデータを入力する。
３.シートのメニューバーの中のツールをクリックし、マクロ→Visual Basic Editorと順にクリックし、Visual Basic Editorを表示させる。
４.画面右側のVBAProjectと書かれている下のsheet1の上でダブルクリックし、右側の灰色の画面を白くする。
５.右の白い画面の一番上の左端で右クリックし、貼り付けをクリックする。
６.右上端の赤の×ボタンをクリックしてVisual Basic Editorを終了させる。
７.E列に数字を入力すると、商品名・在庫数・人物名がsheet2の２行目に自動的にコピーされる。もし、Sheet2にデータ－があった場合は、１行下にずれて表示される。

このようなことでよろしいのでしょうか。もし違っている時・わからないことがあった時は、ご遠慮なくお知らせ下さい。あなた様の考えられていることが実現できるまで、私でよろしければ一緒に考えてみたいと思います。

kazuhiko5681 · Answer

はじめまして。あなた様の質問の内容がよくわからないのですが、変更を行った人物と変更したセルのデータをコピーして別のシートに貼り付けるという方法ではダメなのでしょうか？
それとも、上の方法を自動的に実行したいということなのでしょうか？
もし、自動的に実行するのであれば、私はＶＢＡを使ってマクロを書いてしまいます。
もし、マクロを書く方法がわからないのであれば、そんなに難しいマクロではないので、実行する方法をお知らせすることができるかと思います。その時は、次の点を御知らせ下さい。
１.別シートに返すデータは変更を行った人物と変更したセルのデータだけでよいのか
２.データを返すシートは同じブックの中でよいのか
お手数をおかけしますが、よろしく御願いします。

エクセル、別シートに操作したセルや実行した人物を返す方法について

早速マクロを作ってみました。

早速ご返事いただきまして有難うございます。

早速マクロを組んでみました。

はじめまして。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング