Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18781 / 76732

←次へ　｜　前へ→


	【63389】Re:VBAを変更したい。

seg - 09/10/30(金) 13:10 -


	引用なし

	パスワード

>品名の列に名前を入力すると、自動であいうえお順に並び、
>それに伴う受注日なども一緒に付いていくようにしたいです。

Private Sub Worksheet_Change(ByVal Target As Range)
　　
　　On Error GoTo err:

　　' ソート
　　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
　　End If
　　
　　With Target
　　　　If .Count <> 1 Then Exit Sub
　　　　If .Row = 1 Then Exit Sub
　　　　If .Column <> 9 Then Exit Sub
　　　　If .Value = "済" Then
　　　　Application.EnableEvents = False
　　　　　　n = Worksheets("Sheet2") _
　　　　　　　　.Range("I" & Rows.Count).End(xlUp).Offset(1).Row
　　　　　　.EntireRow.Copy Worksheets("Sheet2").Cells(n, 1)
　　　　　　.EntireRow.Delete
　　　　End If
　　End With
　　
err:
　　Application.EnableEvents = True
End Sub

ざっくりとしか、元のコード見てませんが。

0 hits

▼

【63377】VBAを変更したい。 ｋ1231 09/10/30(金) 9:53