エクセル2016を使用してデータを作っていますが

Question

orekojinn

140

120もっと見る

500pt

コンピュータ

エクセル2016を使用してデータを作っていますが

例えば行100の中でどこかに更新（変更）があればその行のＥ列にその操作がされた日時をタイムスタンプで残したいのですが
こんなことは可能でしょうか。関数？マクロ？を利用すれば可能でしょうか。
よろしくお願いいたします。

回答の条件

1人1回まで

登録：2018/11/11 14:52:46
終了：2018/11/15 19:13:21

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

人力検索はてなエクセルの該当の行の中でどこかに更新（変… 2018-12-04 19:48:48

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

ken3memo · Accepted Answer · 2018-11-11T18:55:51+09:00

No.1

ken3memo3171152018/11/11 18:55:51

500pt

シートのコード
f:id:ken3memo:20181111213131j:plain
f:id:ken3memo:20181111213156j:plain

シートのコードに、

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Row < 100 Then
        Cells(Target.Row, "E") = Now
    End If
End Sub

を書くと、

WorksheetのChangeのイベントで、
タイミングが取れそうなので、
あとは、
Private Sub Worksheet_Change(ByVal Target As Range)
で受け取った
Targetの個数を.countで調べ、
.Rowの行数を使ってみました。
処理の参考となれば、幸いです。

https://youtu.be/yK2H8FbHsmo?t=182
↑蛇足のコードの記載位置とテスト実行結果です

2018-11-15追記・修正
ごめんなさい、私の配慮が足りなくて、Excelが苦しくなってました。
なんて、変な挨拶は置いといて、

Private Sub Worksheet_Change(ByVal Target As Range)
    '.Column <> 5(E列以外)で.Row 行が<100
    If Target.Column <> 5 And Target.Count = 1 And Target.Row < 100 Then
        Cells(Target.Row, "E") = Now
    End If
End Sub

テストしてみました
https://www.youtube.com/watch?v=s2ptuKdbQPo
お時間のある時に見て、笑ってください。
うまく修正できることを願いつつ、失礼します。
※恥の上塗り、再度の不具合が無いことを願いつつ・・・

他4件のコメントを見る

ご回答ありがとうございました。
ご記載の通りにやりましたところ、希望通りに動いています。
ありがとうございました。

さて、新たな問題が生まれました。
日付が記載されると2秒くらいフリーズしたりエクセルが点滅、読み込み直しをしているような何とも苦しそうな挙動をします。
今までそのような挙動をしたことはなく、また新しいシートでデータがほとんどない状態で行うと、上記症状は起こりません。

これはこちらのエクセルの利用状況が関係していると思われるのですが
ただいま行数が600、列はBFまで使っており、また関数も複数使用しています。
当該xlsmのサイズは440kbです。

パソコンは半年ほど前にツクモで15万円で新品で購入したwindows10
CPU core i5-7400 3.00GHz
メモリ16GB

Cドライブ　空き容量　50/110GB
Dドライブ　空き容量 875/931G

です。パソコンのスペックは十分だと思うので、チェックすべき行数が多いことが問題なのだと思います。
もし何かご存知のことがあればご指導いただけるとありがたいです。

2018/11/14 16:55:41

Excelが息継ぎをしながら、もがき苦しむ状態ですよね・・・
一瞬、再計算が毎回走っているのか？必要以上に走るのか？と思ったりもしましたが、
ワークシートの=Now()ではないので、単純にE列にセットしているだけだしなぁ
解決策がわからなくて、スミマセン。
問題の切り分けとして、時刻のセットを一時やめて、コメントにして
'コメントにする Cells(Target.Row, "E") = Now
更新時間のセットをやめると、Excelが苦しさから解放されるのか？
確認してみてください。
もし、苦しいままなら、Private Sub Worksheet_Changeに関数を書くと、再計算など何か発生する。
nowの代入をやめて、元に戻ったなら、Now関数で時刻をセットすると再計算される・・と切り分けられるのでは？

切り分けた後の解決策を持ち合わせていませんが、
苦しがるExcelの助けヒントになれば幸いです。

2018/11/14 22:10:06

ご回答ありがとうございます。
はい、エクセルがもがいて、たまに落ちます。

いただきましたアドバイスの通り'コメントにするを挿入しましたら
計算をやめましたのでフリーズ等の問題は全くなくなりました。

で・・・
そのあとはどうしたらよいか分かりません。
実はエクセルはオートサムと足し算掛け算の数式を書いて答えを表示させる。（関数？）
くらいしか使ったことが無く、今回のようにシートにコードを入れるということやマクロは勉強しておらず分かっておりません。

>>もし、苦しいままなら、Private Sub Worksheet_Changeに関数を書くと、再計算など何か発生する。
>>nowの代入をやめて、元に戻ったなら、Now関数で時刻をセットすると再計算される・・と切り分けられるのでは？

申し訳ありません。上記の部分の意味が分かりません。
お手数をお掛けし心苦しいのですが可能であればご返答いただけると有難いです。
どうぞよろしくお願いいたします。

2018/11/14 23:08:51

ごめんなさい、私の配慮が足りなくて、Excelが苦しくなってました。
なんて、変な挨拶は置いといて、
Private Sub Worksheet_Change(ByVal Target As Range)
'.Column <> 5(E列以外)で.Row 行が<100
If Target.Column <> 5 And Target.Count = 1 And Target.Row < 100 Then
Cells(Target.Row, "E") = Now
End If
End Sub

単純な話で、
Cells(Target.Row, "E") = Now
で、E列が変更されるので、また、この関数が呼ばれる

循環参照みたいになってました。
なので、列Eのチェックを入れて、
If Target.Column <> 5 And Target.Count = 1 And Target.Row < 100 Then
とすると、苦しまないようになると思います。
※.Column <> 5で列をチェック

Excelさん、ごめんね・・・ぉぃぉぃ

2018/11/15 01:02:38

テストしてみました
https://www.youtube.com/watch?v=s2ptuKdbQPo
お時間のある時に見て、笑ってください。
うまく修正できることを願いつつ、失礼します。
※恥の上塗り、再度の不具合が無いことを願いつつ・・・

2018/11/15 02:18:00

動画までありがとうございます。
楽しく見させていただきました＾＾

うまくいきました。
循環参照みたいになってたのですね。ちゃんと動くようになりましたし、楽しく勉強ができました。
このたびはありがとうございました。

2018/11/15 19:15:38

エクセル2016を使用してデータを作っていますが

ベストアンサー

ken3memo3171152018/11/11 18:55:51

コメント（0件)

この質問への反応（ブックマークコメント）

トラックバック