Question

我目前正在做我的最后一年项目，并且它使用excel VBA，因此我很擅长。我真的希望有人可以指导我解决我面临的问题。

至于现在，我希望我可以使用下拉列表来过滤我的表格，它只显示我想要显示的特定部门和周。

从下图中，从范围（＆＃34; C7：L26＆＃34;），每当我过滤单元格（F2）或单元格（J2）时，它将从下拉列表中保留我想要的数据。

例如，如果单元格（F2）= 2且单元格J2 = e，从范围（＆＃34; C7，L26和＃34;），它只会显示有价值的部门＆＃34; e＆＃34;并有第2周。对于没有部门值或周值的单元格，它将被清除或空白。

我也希望如果可以按一个按钮将表格恢复为默认值。

指导我，我真的需要你的帮助！谢谢

[1] http://imgur.com/GNGyh91 [2] http://imgur.com/uuh2Y1u

至于现在，我已将此作为我从用户@PeterT

中学到的代码

＆＃13;

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:AW28")) Is Nothing Then
    
        Dim legendWS As Worksheet
        Dim legendcell As Range
        Set legendWS = ThisWorkbook.Sheets("Legend")
        
        Set legendcell = legendWS.Range("A2:A18").Find(Target.Value) 
        
        If Not legendcell Is Nothing Then
            Target.Interior.Color = legendcell.Interior.Color  
            
        End If
    End If

        

End Sub

＆＃13;

End Sub

表过滤下拉列表Excel VBA

0 个答案: