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

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

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

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

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

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

將以下代碼復(fù)制到相應(yīng)位置：

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

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

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

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