三九问答精心收集互联网各类最新经典问题,致力为网友提供免费答疑平台!登录注册

当前位置:首页 > 职场问题 > 提问问题

符合条件的数据整行同步到另一个工作簿

提问时间:2021-06-27 05:36 | 来自:三九问答

浏览次数:44次

如何可以将总表的离职状态数据整行同步到离职工作薄,正式以及试用期状态同步至在职表

推荐答案解决时间:2021-06-27 06:38

3个工作表的情况:按Alt——双击“在职表”编辑代码(如图1),在双击“离职表”编辑代码(如图2)PrivateSubWorksheet_Activate()Dimrag$,col%UsedRange.EntireRow.Deleterag=Sheets(人员信息总表).UsedRange.Addresscol=Application.CountA(Sheets(人员信息总表).Range(1:1))Sheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(rag).AutoFilterField:=col,Criteria1:==试用期,_Operator:=xlOr,Criteria2:==正式Sheets(人员信息总表).Range(rag).SpecialCells(xlCellTypeVisible).CopyRange(A1).SelectActiveSheet.PasteRange(A1).SelectApplication.CutCopyMode=FalseSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterEndSub————————————————————————————————PrivateSubWorksheet_Activate()Dimrag$,col%UsedRange.EntireRow.Deleterag=Sheets(人员信息总表).UsedRange.Addresscol=Application.CountA(Sheets(人员信息总表).Range(1:1))Sheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(rag).AutoFilterField:=col,Criteria1:=离职Sheets(人员信息总表).Range(rag).SpecialCells(xlCellTypeVisible).CopyRange(A1).SelectActiveSheet.PasteRange(A1).SelectApplication.CutCopyMode=FalseSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterEndSub————————————————————————————————两个工作表中的代码,就是粗体标出的部分不一样,其他都一样。————————————————————————————————关闭代码窗口回到“人员信息总表”窗口,然后再点击“在职表”(或离职表)看看,结果就出来了。说明:点击“在职表”或“离职表”后,“人员信息总表”原有的筛选条件就取消了。

站长郑重提示:以上答案均来自互联网,仅其代表个人观点,请谨慎参阅。

本页地址: 复制网址

推荐信息