在excel表格之间移动数据

我必须为巴士上的日常监视创建健康报告。我还必须确保在本季度结束前至少对所有巴士进行一次健康检查。我将简要介绍我必须做的事情。在excel表格之间移动数据

1>每天10-15健康查询进来的随机公交号码，我必须每天做一个健康报告。

2>在本季度结束前，我必须对所有公交车进行健康检查并报告。

我的问题：

我共有的800路公交车，我希望把表3的例子的主列表。我想创建一个字段，在其中输入我为其进行健康检查的特定总线号码，并且应该在名为“已完成”的工作表1中完成，其余未完成的总线号码应放在名为“未完成”的工作表2中。这样我就不必在季度末重做随机查询的报告。因此，我每天都会在该字段中输入随机的公交车号码，并且应该从“未完成”工作表中删除这些公交车，并将其添加到“已完成”工作表中。

有没有特定的方法来做到这一点？

来源

2011-04-19 Kevin

它会是最简单的只需添加一个按钮，在按钮的VBA代码移到你需要从表2移动到第3页，然后删除该行问题上的工作表行2

该按钮的代码：

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

我会再有第3页的按钮，将重置所有表。

这里是为第3页按钮一些简单的代码（虽然我会放在一个安全消息框）：

Private Sub ResetSheet_Click() 

    Worksheets("Sheet1").UsedRange.ClearContents 
    Worksheets("Sheet2").UsedRange.ClearContents 

    Worksheets("Sheet3").UsedRange.Copy 
    Worksheets("Sheet2").Range("A2").PasteSpecial (xlPasteValues) 

End Sub

来源

2011-04-19 22:24:25

感谢您的及时回复。这应该肯定有帮助。当谈到excel时我非常无知。我会继续挖掘，看看我如何才能使这个工作。 – Kevin 2011-04-19 23:17:27

在excel表格之间移动数据

回答

相关问题