Question

我有这个代码，我想使用Vlookup作为缩短我的宏的标准，并使其可以转移到其他文件。但是，我不知道如何使用Vlookup来制作＆＃34; 11月15日和＃34;或＆＃34; 12月15日和＃34;作为显示一整年数据后隐藏前一列和列的标准。请帮帮我谢谢！

11月15日

Sheets("Charts_wkg").Select
Columns("D:X").Select
Selection.Columns.Ungroup

Columns("D:Y").Select
Selection.Columns.Group

Columns("D:Y").Hidden = True

Columns("AL:BB").Select
Selection.Columns.Ungroup

Columns("AM:BB").Select
Selection.Columns.Group
Columns("AM:BB").Hidden = True
Columns("Z:AL").Hidden = False

12月15日

Sheets("Charts_wkg").Select
Columns("D:X").Select
Selection.Columns.Ungroup

Columns("D:Z").Select
Selection.Columns.Group

Columns("D:Z").Hidden = True

Columns("AM:BB").Select
Selection.Columns.Ungroup

Columns("AN:BB").Select
Selection.Columns.Group
Columns("AN:BB").Hidden = True
Columns("AA:AM").Hidden = False

1月16日

Sheets("Charts_wkg").Select
Columns("D:X").Select
Selection.Columns.Ungroup

Columns("D:AA").Select
Selection.Columns.Group

Columns("D:AA").Hidden = True

Columns("AN:BB").Select
Selection.Columns.Ungroup

Columns("AO:BB").Select
Selection.Columns.Group
Columns("AO:BB").Hidden = True
Columns("AB:AN").Hidden = False

Answer 1

您可以使用以下代码查找当前月份，一旦找到位置，可以使用该单元格作为参考，使用偏移量隐藏和取消隐藏单元格

Dim SearchText As String

       SearchText = InputBox("Enter the Text in column which needs to be unhidden")
        Rows("11:11").Select
            Selection.Find(What:="" & SearchText & "", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
       ActiveCell.Select
   '    ActiveCell.EntireColumn.select

使用Vlookup取消隐藏和隐藏VBA中的列

1 个答案: