Excel(VB技巧)点击某单元格内容,自动筛选出该单元格相关内容信息
方法/步骤
1、打开EXCEL,新建两个表格,一个名称为枚举,一个名称为任务记录
2、在枚举中,填写你要任务名称及相关信息
3、在任务记录里面填写你任务的相关内容,及进度等
4、点击开发工具,查看代码
5、双击枚举,出现写代码的框
6、在枚举代码框里面填写代码:PrivateSubWorksheet_Select坡纠课柩ionChange(ByValT锾攒揉敫argetAsRange)IfTarget.Worksheet.Name="枚举"AndTarget.Column=2Then'根据选中的项目筛选Sheet1.ListObjects("表1").Range.AutoFilterField:=5IfTarget.Value<>""ThenSheet1.SelectActiveSheet.ListObjects("表1").Range.AutoFilterField:=2,Criteria1:=Target.ValueElseSheet1.SelectActiveSheet.ListObjects("表1").Range.AutoFilterField:=2EndIfEndIfEndSub
7、保存,关闭即可
8、然后点击枚举里面的任务,例如点击某A任务单元格,则自动跳转任务记录筛选出某A任剞脑惨丁务的信息全都显示出来,同理点击某B任务单元格,就筛选出某B任务的信息,点击空白,所有任务的信息显示出来。