在Excel表格之间移动数据
我必须build立公交车日常监视的健康报告。 我还必须确保在本季度末之前至less对所有公交车进行一次健康检查。 我将简要介绍我必须做的事情。
1>每天10-15健康查询进来的随机巴士号码，我必须每天做一个健康报告。
2>在本季度结束之前，我必须对所有公交车进行健康检查并报告。
我的问题：
例如，我有一张总共800张巴士的名单，我想把它们放在表3中。 我想创build一个字段，在那里我input一个特定的公交车号码，我做健康检查，它应该在表1中称为：完成，其余未完成的公交车号码应在表2中称为：未完成。 这样我就不必在季度末重做随机查询的报告。 所以我每天都会在这个区域input随机的公交车号码，并且应该把这些车辆从Not Completed表格中删除，并把它添加到Completed表格中。
有没有特定的方法来做到这一点？
最简单的方法是添加一个button，并在button的vba代码中移动需要从Sheet 2移动到Sheet 3的行，然后删除Sheet 2上的问题所在的行。
该button的代码：
Private Sub Complete_Click() Dim FoundRow As Integer Dim LastRow As Integer FoundRow = Sheets("Sheet2").Range("A:A").Find(Sheets("Sheet2").Range("C1"), _ Sheets("Sheet2").Range("A2"), xlValues).Row LastRow = Sheets("Sheet1").UsedRange.Rows.Count+1 Sheets("Sheet2").Range("A:A").Rows(FoundRow).EntireRow.Copy Sheets("Sheet1").Range("A:A").Rows(LastRow).PasteSpecial (xlValues) Sheets("Sheet2").Range("A:A").Rows(FoundRow).EntireRow.Delete (xlShiftUp) End Sub 然后我会在Sheet 3上有一个button来重置所有的表格。
下面是Sheet 3button的一些简单的代码（虽然我会把一个安全的消息框）：
Private Sub ResetSheet_Click() Worksheets("Sheet1").UsedRange.ClearContents Worksheets("Sheet2").UsedRange.ClearContents Worksheets("Sheet3").UsedRange.Copy Worksheets("Sheet2").Range("A2").PasteSpecial (xlPasteValues) End Sub