在前一篇文章中，我們分享了如何將列表框的內(nèi)容輸出到單元格中。今天，我們將繼續(xù)分享另一個技巧：如何通過雙擊來實現(xiàn)列表框的顯示和關閉。 首先，在已經(jīng)設計好列表框的文件上打開它。 進入“設計模式”，

在前一篇文章中，我們分享了如何將列表框的內(nèi)容輸出到單元格中。今天，我們將繼續(xù)分享另一個技巧：如何通過雙擊來實現(xiàn)列表框的顯示和關閉。

首先，在已經(jīng)設計好列表框的文件上打開它。

進入“設計模式”，使用鼠標選中列表框。

然后，單擊鼠標右鍵，在彈出的新窗口中選擇“查看代扯膽碼”。

點擊后，進入VBA工程頁面。

將以下代碼復制到相應位置：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If  <> "$H$1" Then
        If   True Then
              False
        Else
              True
        End If
    End If
End Sub

完成后，回到工作表頁面并退出設置模式。

現(xiàn)在，在除了H1單元格之外的任何位置雙擊，列表框都會關閉或顯示。

如果你只想在固定位置點擊時顯示或關閉列表框，可以將代碼中的“<>”符號改為“”。記住，這個修改必須在英文狀態(tài)下進行。你也可以更改H1為你想要的單元格位置。