Excelで入力日の自動入力日を格納するには

質問

入力日を自動入力して、その日付を格納します。
さらに、隣のセルにコピーして入力日で並べ替えをしたいのですが
並べ替えが出来ません。

(1)A2～A10に何か入力したら、B列に入力日を返します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer, c As Integer
'r 行番号
'C 列番号
r = Target.Row
c = Target.Column
If c <> 1 Or r < 2 Or r > 10 Then End
If Cells(r, c) <> "" Then
Cells(r, c + 1) = Format(Now, "yyyy/m/d")
Else
Cells(r, c + 1) = ""
End If
End Sub

　　上記で、入力日を格納するところまでは出来ました。
(2)続いてマクロ【並べ替え】で、A2－B10をコピーし、E2へ貼り付け、
日付降順で並べ替えをします。
Sub 並べ替え()
Range("A2:B10").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("E:F").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("F2").Select
End Sub

(3)上記マクロをコマンドボタンに貼り付けましたが、
　貼り付けまではいきましたが、並べ替えができませんでした。

コードで並べ替え制限などかかってるのでしょうか？？

よろしくお願い致します。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

>コードで並べ替え制限などかかってるのでしょうか？？

その通りですね。気がつきにくいミスなのですが、基本的な部分が抜けています。
同じシートにコピーするのですから、

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer, c As Integer
　Application.EnableEvents = False　　'←ここ
　'--省略--

　Application.EnableEvents = True　　'←ここ
End Sub

と、イベントを発生しないようにしてあげないと、[並べ替え]のプロシージャのところで、コピーした時点で、マクロがイベントに感応して、[並べ替え]のプロシージャが途中で終わってしまいます。

お礼

>マクロがイベントに感応して、[並べ替え]のプロシージャが途中で終わってしまいます。
イベント発生を抑制しなければいけなかったんですね！！！
どうもありがとうございました！
いろいろあるんですね・・・。
勉強になりました。
上記記述で無事並べ替えができました。

素早く的確なご回答ありがとうございました！