orekojinn回答ポイント 600ptウォッチ

エクセルの該当の行の中でどこかに更新（変更）があればその行の〇〇列にその操作がされた更新日時を残したい。

という内容の質問を先日させていただきました。
http://q.hatena.ne.jp/1541915567
（文中に行100うんぬんのくだりがありますがそれは記載ミスです。）

以下コメントに続きます。

• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• pyopyopyo2018/12/05 18:56:46

  満足500pt

  マクロを少し変更すれば実現できますよ
  
  1) 値を保存する変数として prev を新たに用意．
  2) Worksheet_SelectionChange を使って，セルを選んだ瞬間に，セルの値を prev に保存
  3) Worksheet_Change では値が prev と異なっていた場合だけ，時刻を更新
  
  という感じです．
  
  実際のマクロはこうなります

  Dim prev
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    prev = Target.Value
  End Sub
  
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 54 Then
      If prev <> Target.Value Then
       Cells(Target.Row, "BB") = Now
      End If
    End If
  End Sub
  

  スター

  • 

    5件のコメントを見る

  • orekojinn 2018/12/05 22:16:49

    ご回答ありがとうございます。
    こんな方法があるのですね。。。
    
    確かに更新されなくなりました。
    色々テストをしております中でセルを2つ以上選択した状態でデリート、あるいはコピーデータの貼り付けをすると
    エラーが起こりデバック画面では
    If prev <> Target.Value Then
    が黄色く塗られています。
    
    値を保存するという処理と複数のセルを同時に変更するということを一緒にやろうとしているので矛盾が起こっているのだと思います。
    これはもう、どうしょうも無いですかね。。
    もし可能性があればご回答いただければありがたいです。

    スター

  • pyopyopyo 2018/12/05 23:54:09

    複数セルの変更にも対応してみました．
    
    カーソルを動かすたびに豪快に全セルの値を一度 prev というcollectionに保存しています．
    豪快ですが，これで複数セルのコピペなどにも対応できると思います．
    
    以下のコードでは，一番左の列（Aの列，つまりcollumn=1の列）以外に変更があると
    A列にタイムスタンプを入れるようになっています
    
    

    Dim prev As New Collection
    
    Function HasKey(coll As Collection, strKey As String) As Boolean
        Dim var As Variant
        On Error Resume Next
        var = coll(strKey)
        HasKey = (Err.Number = 0)
        Err.Clear
    End Function
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim c As Range
        For Each c In Target
           If c.Column <> 1 Then
             If Not HasKey(prev, c.Address) Then
                 Cells(c.Row, "A") = Now
             ElseIf c.Value <> prev(c.Address) Then
                 Cells(c.Row, "A") = Now
             End If
           End If
        Next c
     End Sub
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Set prev = Nothing
       For Each c In ActiveSheet.UsedRange.Cells
           prev.Add c.Value, c.Address
       Next
    End Sub
    

    スター

  • pyopyopyo 2018/12/05 23:58:08

    マクロが重すぎる，ということであれば，全部のセルをcollectionに保存するのではなくて
    コピペ対象のセルの数だけcollectionに保存すれば劇的に軽くなると思いますが．．．
    今日は寝る時間，ここまでおしまいです！

    スター

  • orekojinn 2018/12/07 20:19:37

    再度回答ありがとうございます。
    また返答が遅れ申し訳ありませんでした。
    ただいま帰宅しました、早速テストをしてみましたところ
    かなり重いです。。
    ＰＣは先日ツクモで組んでもらった13万ほどのPCを使用しています。
    win10 pro 64bit バージョン 1703
    cpu Intel Core i5-7400@3.00GHz
    実装RAM　16GB
    グラボ　GeForce GTX 1060 3GB
    
    Cドライブ　SSD　120GB中71GB空き
    Dドライブ　HDD　1TB中899GB空き
    
    スペック的には十分だと思っています。
    
    もしお願いできればありがたいのですが
    複数のセルを同時に編集しても更新日時が正しく処理されるマクロを作っていただくことはできませんでしょうか。
    "コピペ対象のセル"とありますが、
    5行まとめてデリートをする場合もありますが、その場合でも正しく動くようにしたいです。
    
    お礼としましてトータルで1000ptお送りしたいと思います。
    ご検討いただければ幸いです。

    スター

  • orekojinn 2018/12/07 20:33:23

    申し訳ありません。
    
    基本的なことだと思うのですが
    シートにコードを書いた場合"元に戻す"の機能が使えなくなるのですね。
    知りませんでした。
    これは仕事上困るので
    そもそもの考え方を見直す必要が出てきました。
    
    単一あるいは複数のセルを同時に編集し、それが編集（変更）された場合にBB列にタイムスタンプを押す。
    且つ、"元に戻す"の機能が使える。
    且つ、作業中に落ちたり、速度が大幅に低下することがない。
    ということを実現したいです。
    
    一旦質問を閉め切らせていただきます。
    お付き合いいただきありがとうございました。

    スター

その他の回答

• orekojinn

  2018/12/04 19:48:55

  そしていただいた回答を元に以下のコードをワークシートのコードの所に書きました。

  Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Column <> 54 Then

  Cells(Target.Row, "BB") = Now

  End If

  End Sub

  
  

  1点、理想と違う動きがあるのでそれを何とかしたいと思っています。

  入力の終わった行の中の、あるセルの内容を、新しい行に入力する文字列のベースとするためにコピーをする際に、更新日時が更新されないようにしたいです。

  例えば目的のセルを選択しコピーするだけだと更新日時は更新されないのですが、コピーしてメモ帳に張り付けると

  改行を無視した、そして文頭、文末に"が入った形式になってしまい使いにくいです。

  なのでセルをダブルクリックし数式バーに表示された内容をコピーしメモ帳に張り付けると上記問題はないのですが、

  今度は更新日時が更新されてしまうという問題が起こってしまいます。

  （その際はダブルクリックをしただけでありセル内の文字は一切変更ありません。）

  エクセルバージョンは2016です。

  良い方法をご存知の方いらっしゃいましたらどうぞよろしくお願いいたします。

• きむむ2018/12/04 22:44:42

  満足100pt

  何か対処法と言うのとは方向性が異なるかと思いますが、考え方を述べます。
  内容を変更しないなら、『編集モード』はＥＳＣキーで解除することです。
  
  編集モードにした後の操作なのですが、
  基本的に、
  エンターキーを押してしまうと、エクセルは、
  　"セル内容を更新した"
  と認識します。
  ⇒それで「Worksheet_Change」のイベントが発生します。
  　そして更新日時が更新されることになります。
  
  それで、編集モードにしても参照のためだけなら、編集モードをキャンセルすれば良いです。
  　エンターキーは押すことはせず、ESCキーを押して編集モードを解除するのです。
  ⇒すると、更新モードはキャンセルすることで、「Worksheet_Change」のイベントは発生しません。
  　そして更新日時が更新されることにはなりません。
  
  （以下はその他考察です）
  何でもないときに、例えば誤ってキー入力してしまうと、その時に選択されていたセルに文字が入ったりしますね。
  自動的に更新モードに入って、入力された文字を受け付け始める訳ですね。
  それをエンターキーを押してしまうとそのまま確定してしまうけど、これでは困る訳で、
  そんなときは、ＥＳＣキーでキャンセルしますね。
  それと同じことを言っています。
  
  またよく見ていてハラハラすることの一例ですが、
  エクスプローラでフォルダやファイルを選択するのに名前の上でクリックし、さらにクリックしてしまうと、
  あるいはダブルクリックで実行する、なんて時に、ゆっくりクリックのためシングルクリック２回と認識されて、
  名称を変更するモードになってしまうことがありますね。
  そこで何か文字を入力したりすると名称が変わってしまうのです。
  このようなときに過ちを避けるためには、確定のためのエンターキーは押さないこと、
  ＥＳＣキーで編集モードを解除することです。
  セルの更新もまさにそれと同じです。
  
  ＶＢＡの中で実際の内容変更があったのかを判定して処理する方法も無いではないですが、完全には難しいと思います。
  シート全体の更新前内容をミラーで維持するようなことになるのかなと・・・
  
  そんなことよりは、基本的な操作として、無用な更新をしない、更新したと認識されないためには、
  『キッチリとＥＳＣキーで解除すること』です。
  これが同じような局面での変な更新を避ける安全面からも、基本的な操作と認識しております。
  どうぞご確認をお願いいたします。
  
  数式バーの上をクリックしただけでもそのときのセルに対して更新モードになってしまいます。
  こときにもＥＳＣキーで解除せずにエンターキーを押すとそのときのセルを更新したとして扱われてしまいます。
  さらにこのときにエンターキーを押すのではないとしても、例えば他のセルを選択クリックすること等によってもＥＳＣキーで解除しない限り、
  更新したとして扱われてしまいます。
  ですから、それを避けるためと無用な変更を避けるために、必ずＥＳＣキーで解除する習慣にすることです。
  
  ＤＥＬキーを押すことでも更新されたとして扱われますので、通常は影響ないですが、今回のような場合は要注意です。
  ヌルのセルを選択中にＤＥＬキーを押した場合も同様ですから。
  
  このように、内容を変更するモードになった場合、変更しないならＥＳＣキーで抜けることです。
  （しつこかったですが、ごめんなさい）

  スター

  • 

    1件のコメントを見る

  • orekojinn 2018/12/05 22:01:52

    ご回答ありがとうございます。すぐ活かせる方法で且つ、エクセルを含む基本的なパソコンの操作方法を終えしていただき感謝します。仕事で２０年以上パソコンを使っていますが知りませんでした。
    ありがとうございました。

    スター

この質問へのコメント

• orekojinn2018/12/04 21:25:13
  追記です。
  セルをダブルクリックすると更新日時が更新されると書きましたが、
  ダブルクリックをしなくとも、シングルクリックでセルを選択し、数式バー内をクリックした場合も更新日時が更新されます。

質問の情報

登録日時

2018-12-04 19:48:41

終了日時

2018-12-07 20:33:48

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• ヤクルトスワローズ　近藤弘樹は現役引退後は、何をしますか？ren9908271日前
• 日常系アニメって何が面白くて流行したんでしょうか？日常系アニメが流行した当時の時代背景などを是非教え…匿名質問者23日前
• 通信販売で買える冷凍のラム肉で美味しいところを教えてください。５００ｇから１ｋｇくらい買いたいです。…匿名質問者11日前
• 2つ質問です。①ドラゴンボールがフリーザ編で終わっていたらドラゴンボールはどうなっていったと思います…匿名質問者2日前
• 以下の特徴をもつ犬のキャラクターを思い出したいです。ご存知の方、教えていただけませんか？ 白くてマッ…question1hat1日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ