使用Excel宏创建资产列表

Question

我正在尝试使用Macro编写代码，但是没有运气。

任务可以简单地定义为：当用户在I列的任何地方输入序列号“ AB123” 时，列表应自动出现在（J，K，L）的列中。请附上图片

如果没有使用Macro的方法还有其他方法，我很高兴听到它。

提前谢谢您，我希望我能说清楚。

图片。输入 RED 序列号时会显示。应该会以绿色突出显示列。

Answer 1

您需要考虑的事情。将此代码放在工作表中。双击工作表名称，将出现一个窗口以输入代码。

Option Explicit

Public Sub Worksheet_Activate()

Me.Range("J:L").EntireColumn.Hidden = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Me.Range("I:I")) Is Nothing Then
    If Target.Cells.CountLarge = 1 Then
        If Target.Value = "AB1234" Then
            Me.Range("J:L").EntireColumn.Hidden = False
        Else
            Me.Range("J:L").EntireColumn.Hidden = True
         End If
    Else
        'Nothing
    End If
End If

End Sub

Private Sub Worksheet_Deactivate()

Me.Range("J:L").EntireColumn.Hidden = False

End Sub