'声明工作表事件过程，在选择单元格时触发事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ListBox1
    '只有选择第二列时出现列表框
        If Target.Column = 2 Then
            .Visible = True '显示列表框
            '设定列表框的边距、高度和颜色，列表框显示在右下方一个单元格
            .Left = Target(1).Offset(0, 1).Left
            .Top = Target(1).Offset(1, 1).Top
            .Height = ListBox1.ListCount * ListBox1.Font.Size + 4
            .BackColor = &HFFC0C0
        Else
            '否则隐藏
            .Visible = False
        End If
    End With
End Sub
'声明工作表事件过程，鼠标移过列表框时触发
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    '将品名和单价同时输入最后一次选择的单元格
    ActiveWindow.RangeSelection(1) = [E2:E11].Cells(Y \ ListBox1.Font.Size + ListBox1.TopIndex + 1) _
    & "(单价" & [F2:F11].Cells(Y \ ListBox1.Font.Size + ListBox1.TopIndex + 1) & ")"
End Sub