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

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

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

進(jìn)入“設(shè)計(jì)模式”，使用鼠標(biāo)選中列表框。

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

點(diǎn)擊后，進(jìn)入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單元格之外的任何位置雙擊，列表框都會(huì)關(guān)閉或顯示。

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