摘要：每月月底要和人事要离职人员名单，并账号列表里删除已经离职人员的账号，如下代码通过将账号列表与人事发来的离职清单进行对比，高亮找出离职人员的账号，并进行删除。 阅读全文

摘要：Public Sub GetIPT() gipt = Trim(InputBox("请输入所在组，只需输入前面的字母代码即可 A- groupA B-groupB C-groupC D-groupD E-groupD ")) strIPT = UCase(gipt) If strIPT = "A" Then GetInfo ("AirBus"): End If s... 阅读全文

摘要：Sub clData() Dim ComputerCount As Object tms = Timer p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") Application.ScreenUpdating = False tms = Timer On Error Resume Next ... 阅读全文