| |
▼ｋ1231 さん：
横から失礼します。
自分の練習のために作ってみました。
こういうことでしょうか？
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim n As Long
Dim rg As Variant
With Target
If .Count <> 1 Then Exit Sub
If .Row = 1 Then Exit Sub
If .Column <> 9 Then Exit Sub
If .Value = "済" Then
n = Worksheets("Sheet2") _
.Range("I" & Rows.Count).End(xlUp).Offset(1).Row
.EntireRow.Copy Worksheets("Sheet2").Cells(n, 1)
Application.EnableEvents = False
.EntireRow.Delete
Application.EnableEvents = True
With Worksheets("Sheet2")
.Range("A6:" & .Range("A6").SpecialCells _
(xlCellTypeLastCell).Address).Sort _
Key1:=.Range("E6"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End With
End If
End With
Set rg = Nothing
End Sub
>▼seg さん：
>>
>
>早速の返答有難うございます。
>
>> Range(Cells(6, 5), Cells(Range("E6").End(xlDown).Row, 5)).Select
>> Selection.Sort Key1:=Range("E1"), Order1:=xlAscending
>>を実行してみたのですが、Ｅ6からの列のみではなく、その行も一緒に整列させたいのです・・。
>ややこしくて申し訳ありません。
|
|
SS
- 09/10/30(金) 11:36 -
