2018年8月27日

多表联动筛选VBA

摘要： Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next a = Target.Row aa = Cells(a, 6).Value bb = Cells(a, 9).Value Sheets("2").ShowAllData Sheets("2").Range("$A$1:$H$5208"... 阅读全文

posted @ 2018-08-27 17:14 lizicheng 阅读(411) 评论(0) 推荐(0)

用户职责菜单请求组

摘要： --1、用户职责查询 select fu.user_id, fu.user_name, ppf.FULL_NAME, fr.RESPONSIBILITY_ID, FR.RESPONSIBILITY_KEY, FR.RESPONSIBILITY_NAME, FU.START_DATE, FU.END_... 阅读全文

posted @ 2018-08-27 09:58 lizicheng 阅读(227) 评论(0) 推荐(0)

导航