维修流程跟踪

ccrxtang

我想用excel做一个维修流程的跟踪表，维修流程分为T01 到T10. 一条记录在t01sheet中录入后选者process t01, 当t01完成后在下拉中选t02时这条记录自动转到t02,以此类推。 最后生成一张总表来包括前面全部的t01...t10. 请高手帮忙看看能实现么。

shuyee

建议不要转.录入的这张表,也不要命名为t01,就命名为"总表".
如果要分表,可以用透视表之类的做就行了.

ccrxtang

shuyee 发表于 2013-6-6 16:31
建议不要转.录入的这张表,也不要命名为t01,就命名为"总表".
如果要分表,可以用透视表之类的做就行了.

谢谢,透视表的我会做. 因为维修过程中有不同的工序,我是想让负责自己工序的那个人看到在自己工序下有哪些需要做,做好后他选下一步就转到下一个工序, 我是想用excel 来实现. 当然用数据库做成网页形式的更好.可惜不会
:(

shuyee

你这叫"下一步",确实需要代码支持.
大概做了一下.当根据有效性选择下一个表时,会把当前拷贝过去(本来想用值的,但有效性会丢失),同时删除当前单元格的有效性,避免多次重置(其实如果输入指定表的名称,也能实现拷贝).
由于使用了事件,因此平时在拷贝第4列时,要注意,可能会被转到指定工作表,避免的方法,就是选择2个以上的单元格一起复制.即:target.cells.count>=2,就不触发该事件.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = Sh.Name Then Exit Sub
Dim tmpS As String, shT As Worksheet, tmpR As Range
On Error Resume Next
Set shT = Worksheets(Target.Value)
If Not shT Is Nothing Then
    Set tmpR = Target.Offset(0, -3).Resize(1, 4)
    tmpR.Copy
    Application.EnableEvents = False
    shT.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
    tmpS = Target.Value
    Target.Clear
    Target.Value = tmpS
    Application.EnableEvents = True
End If
End Sub

ccrxtang

shuyee 发表于 2013-6-8 11:53
你这叫"下一步",确实需要代码支持.
大概做了一下.当根据有效性选择下一个表时,会把当前拷贝过去(本来想用值 ...

非常感谢我来尝试下

bugdoctor

修改好，可以分享一下吗，我是菜鸟我想学习下思路