|
▼k1231 さん:
明日から連休で解決出来ないと思うので、以下のコードを
試してみてください。
>空白は受注日やユーザー欄が空白になる場合があります。
>それ以外にもないとは言い切れないので・・・。
>ここが必ず空欄という固定がありません・・・。
' ソート
If ((Target.Column = 5) And (Target.Row >= 6)) Then
Range(Cells(6, 1), Cells(Range("A6").End(xlDown).Row, Range("A6").End(xlToRight).Column)).Select
Selection.Sort Key1:=Range("E6"), Order1:=xlAscending
Cells(Target.Row, Target.Column).Select
End If
↓ 下記に置き換え
' ソート
If ((Target.Column = 5) And (Target.Row >= 6)) Then
Rows("6:" & CStr(ActiveSheet.Cells.SpecialCells(xlLastCell).Row)).Select
Selection.Sort Key1:=Range("E6"), Order1:=xlAscending
Cells(Target.Row, Target.Column).Select
End If
上記の機能は、Xlsが保持している最終行を取得するので
登録&消去を繰り返していると、ほんとたまにずれたりします。
|
|