【エクセル】補足質問：行の最終更新日を、あるセルに自動で入力させる方法。

Question

過去ログにあったQNo.2827109を参考に、マクロをコピーさせていただき、行の最終更新日を求めるように設定してみたのですが、上記の質問者の方はうまくいったとのことなのですが、私の場合「Findメソッドは失敗しました：'Range'オブジェクト」といったエラーが出てしまい、エクセルも固まったような状態になってしまいます。

ど素人質問で本当に申し訳ないのですが、全く何を施してよいのかわからない状態です。

どなたか解決策を教えてください！

コピーさせていただいたマクロは次の通りです。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim MyRng As Range, R As Range, L As Range
　Dim LastUpdated As Integer
　Set MyRng = Intersect(Target, Range("B2:D6"))
　If MyRng Is Nothing Then Exit Sub
　
　Set L = Rows(1).Find("最終更新日")
　If L Is Nothing Then Exit Sub
　LastUpdated = L.Column
　
　For Each R In MyRng.Rows
　　Cells(R.Row, LastUpdated) = Now
　Next
End Sub

1列目に項目がある表で、「最終更新日」と言う項目を設け、マクロ4行目の（）内は表に合わせて("A2:AF500")と変更して設定しました。

エクセルは2007です。

Wendy02 · Accepted Answer

こんにちは。

>表現とは難しいものですね・・・
私は、いろんなパターンに出会っているし、逆に、早合点して違うといわれることもあるからです。「更新日時」で検索したときに、かなり違う内容のものがあったはずです。

お話だけだと、このような内容になりそうですね。ただし、B列を挿入して、AF ->AG　なるなら、>33 というところを >34 にしなければなりません。それから、書式は、自由にアレンジしてください。

--------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
　　Const HIDUKE As Integer = 2　'B列
　　
　　'列の範囲(A:AF) 'B列を除く
　　If Target.Column = HIDUKE Then Exit Sub
　　If Target.Column > 33 Then Exit Sub　'AF-32, AG-33
　　
　　If Target.Count > 1 Then Exit Sub
　　If Target.Value = "" Then Exit Sub
　　i = Target.Row '行
　　
　　Application.EnableEvents = False
　　'書式
　　Cells(i, HIDUKE).NumberFormatLocal = "mm/dd hh:MM"
　　Cells(i, HIDUKE).Value = Now()
　　Application.EnableEvents = True
End Sub

Wendy02 · Answer

こんにちは。

>前回おっしゃっていた「５００行ではむしろ少ない・・・」の点も考慮していただけたマクロになっているのではないですか？

よく考えてみたけれど、500行とか、まったく、制限を設けないことにしたのです。範囲を設定したければ、たとえば、

If Taget.Row  >501 Then Exit Sub 

ということなのですが、それほど複雑な内容ではないし、負担も大きくないので、そのまま、一番下まで動くようにしました。

ここまで来ると、私は、途中、一体、何を書いていたのかって思われるかもしれません。だって、内容自体は、最初の質問のものよりも易しいからです。結局のところ、最初のマクロとも、似ていて違う内容のマクロなんですね。（^^;

Wendy02 · Answer

こんばんは。

>今回マクロを利用して、行全体のどの項目で更新されても「最終更新日時」が表示されるようにしようと思い、Ｂ列に「最終更新日」の項目を増やして問題のマクロを設定しました。

エラーの問題としては別にして、同じだと思ったのでしょうけれども、もしかしたら、マクロとしては、似ていて非なるものかもしれません。なんといっていいやら……。（^^;

>Ｂ列に「最終更新日」の項目

B列のどこの行ですか？
入力した行のB列ですか？

>「データの範囲」と言われる解釈を上記のように「この先も見越して」空白欄も含めているところは、もしかしたら間違いなのでしょうか？

「先を見越して」は問題ないですね。
すでに、150あるとしたら、500という範囲ですと、Excelの設定としては一般的には少ないかもしれません。

イベント・ドリブン型マクロというのは、除外範囲を作ってあげることによって、マクロが無駄に働かないように作るというのがコツなのです。Chageイベントというのは、セルに何かを入れると、それをきっかけにマクロが動いてしまうので、マクロが入力しても、また、マクロが動いてしまうことになるのです。私も、最初は、マクロがマクロを呼ぶなんていうことは、まったくありえないと思っていました。

私としては、やっぱり自分で全部コードを書いてみないと、はっきりいえません。

「B列のどこの行」というのがはっきりしたら、自分なりに作ってみます。

p.s.　私個人としては、エラー自体の解決は見ておきたいとは思いますが、それはどちらでもよいです。もともと、このエラーは個人的な興味です。この実行時エラーというのは、とても勉強になるのですね。コンパイルエラーとしては出てこないのですから、コードの間違いではないのですから。

Wendy02 · Answer

#3の訂正：

本来は、他の言語から通して、Excelを使う場合などに現れるエラーだと思います。
------------------------------------------------------------------

-> 他の言語から通して、
他のブログラム言語を通して、

Wendy02 · Answer

こんにちは。

いろいろ考えましたが、このスレは、一応、私の中では、完結させたほうがよいと思いました。回答があっていなかったらすみません。

>中途で質問し直した方が、かえって迷惑にならないでしょうか？

今回のエラーは、かなり特殊な部類に入るのです。ある期間、Google にもヒットしますから、ご質問者さんの判断に任せますが、中途のままにしてしまうのは、仕切り直しもよいとは思ったのですが、後々の人のため不便をさせてしまうような気がしました。私のこだわりは捨て、私の考えたことを書いておくことに決めました。勝手をお許しください。

Q&Aっていうのは、後々利用する人のためにもあるのです。
本来は、他の言語から通して、Excelを使う場合などに現れるエラーだと思います。
------------------------------------------------------------------
私の考え：

>実行時エラー'-2147417848(80010108)':
>これは、VBA自体ではなく、実行時のExcel側のエラーです。

この原因は、イベントプロシージャが、おそらく、何万回となく、起動して、
　Set L = Rows(1).Find("最終更新日")
が読み込まれているので、最後には、Excel側で、エラーを起こしたのだと考えました。
一度、今のエラーの発生するコードで、ブレークポイント（左端の枠をクリックすると●が出る）をおけば、何度も呼び出されているはずです。本来は、１回きりですが、そうはなっていないはずです。

問題はここの部分です。

MyRng が広ければ広いほど、イベントが繰り返します。また、日にちなら、Now ではなく、Date です。Application.EnableEvents で、その周りを囲い、二重起動させないようにします。


Application.EnableEvents = False
For Each R In MyRng.Rows
　　Cells(R.Row, LastUpdated).NumberFormatLocal = "yy/mm/dd"　'書式は文字列で
　　Cells(R.Row, LastUpdated) = Date
Next R
Application.EnableEvents = True

とすれば、おそらく直るだろうと思います。

それと、もしも、１個しか入れないのなら、

If Target.Count >1 Then Exit Sub 
Set MyRng = Intersect(Target, Range("B2:AF500"))

としたほうがよいです。
-----------------------------------------------------------------
これで、だめならダメ出ししてください。

Wendy02 · Answer

こんにちは。

Findメソッドのエラーで、Rangeオブジェクトというのは、Rows(1) が、Range オブジェクトではない、ということになるので、私の知っている範囲ではありえないです。しかし、

>実行時エラー'-2147417848(80010108)':
これは、VBA自体ではなく、実行時のExcel側のエラーです。

どこが問題なのかは想像はつきますが、おそらく、いままでのExcelですと、性能の問題なのか、そこまでのエラーにはならなかったような気がします。また、そのような目的では書かなかったからです。

いずれにしても、こちらは、こちらで、新たにコードを書きたいと思います。
そこで、少し、もう少し、内容を説明してもらわないといけません。

>Set MyRng = Intersect(Target, Range("B2:AF500"))
この部分は、入力する場所を、B2:D6 に限定しているのですが、Range("B2:AF500")という広い範囲では、AF500 までというと、１ヶ月分のワークシートですね。

その範疇に書き込むと、その中で、１行目のどこかにある「最終更新日」を見つけ出し、その入力、または貼り付けた範囲に、日付+時間の記録がされるということになるわけですが、果たして、それでよいのでしょうか？でも、「最終更新日」というのが固定された列なら、こういうコードは必要ないように思います。

なお、私は、他人の解決したコードをいじるのは嫌です。ちょっとしたことですが、自分のミスは、それを続けていく限りは、いずれは知ることになるからです。ただ、自分で気づく場合は腹も立たないけれども、他人にちょっとでも言われたら、不愉快になる人がいます。今回の回答者さんは、ここでは良く知られた回答者さんで、そのような人ではないのですが、できる限り、うまくいかない場合は、新たに仕切りなおしたほうがよいことが多いのです。それは、自分で書いたコードでも同じことです。ひとつにしがみつくよりも、新たに起こしたほうがよいことが多いです。

n-jun · Answer

>過去ログにあったQNo.2827109を参考に
この様な場合は、リンクを貼っておきましょう。
【エクセル】行の最終更新日を、あるセルに自動で入力させる方法。
http://okwave.jp/qa2827109.html

元のコードを貼り付けるのではなく、現在のコードを貼り付ける方が
回答がつきやすいですけど。

例えば、
>1列目に項目がある表で
元のコードは”１行目”ですが、実際の表にあわせて変更されてますか？
Set L = Columns(1).Find("最終更新日")
LastUpdated = L.Row
For Each R In MyRng.Columns
Cells( LastUpdated , R.Column) = Now

あたりでしょうか？

【エクセル】補足質問：行の最終更新日を、あるセルに自動で入力させる方法。

こんにちは。

この回答への補足

こんにちは。

こんばんは。

この回答への補足

#3の訂正：

この回答への補足

こんにちは。

この回答への補足

こんにちは。

この回答への補足

>過去ログにあったQNo.2827109を参考に

この回答への補足

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

このQ&Aを見た人はこんなQ&Aも見ています

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

このQ&Aを見た人がよく見るQ&A

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

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