VBAの新機能で、同じ行のセル値が「完了」の場合にのみ範囲をコピーするコードを作成しています。セルの値に基づく移動範囲
コピーした範囲を別の列に貼り付け、元の範囲を削除します。
セル値が完了に変更されたときに自動的に移動するようにループすることができれば素晴らしいでしょう。私のコードは、これまでのところです:あなたは、このコードは仕事をしたいシートをダブルクリックし、左側に、vbeで
:
Sub Move()
Dim r As Range, cell As Range, mynumber As Long
Set r = Range("O1:O1000")
mynumber = 1
For Each cell In r
If cell.Value = "Completed" Then
Range("Q15:AE15").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
If cell.Value = "Completed" Then
ActiveCell.Select
ActiveCell.Range("B:O").Select
Selection.Copy
Range("Q14").Select
ActiveSheet.Paste
End If
Next
End Sub
セル、アクティブセル、終了、オフセット)](https://www.youtube.com/watch?v=c8reU-H1PKQ&list=PLNIs-AWhQzckr8Dgmgb3akx_gFMnpxTN5&index=5)。 [Worksheet.Changeイベント(Excel)](https://msdn.microsoft.com/en-us/library/office/ff839775.aspx)を使用するように思えます。 –