下拉菜單，使得Excel輸入已經(jīng)很方便了，讓身邊的同事羨慕不已。

如果蘭色說下拉菜單還要打開才能選取，有點慢。你是不是要質(zhì)問我：難道還有更快的方法？

其實，還真有更快的輸入方法，你只需要 點 即可輸入。

這個小框框可以雙擊H1單元格隨時關(guān)閉或打開。

這樣炫酷的輸入方法制作并不復(fù)雜，下面就跟蘭色一起做吧。（Wps表格需要安裝VBA For WPS 模塊，百度有下載）

制作步驟：

1、開發(fā)工具 - 插入 - 點擊并拖出“列表框”。顯示開發(fā)工具方法：文件 - 選項 - 自定義工具欄（excel2007在常規(guī) - 顯示開發(fā)工具） - 開發(fā)工具

2、選取列表框 - 右鍵 - 屬性 - 修改以下屬性：

• BackColor 可以改變列表框底色

• ListFillRange 把單元格內(nèi)容顯示到列表框中(直接輸入單元格地址J1:J6，如果顯示字符在另一個表中，需要加工作表名稱，如Sheet1!J1:J6)

3、開發(fā)工具 - Visual Basic - 在新界面中的工程窗口選取當(dāng)前的工作表名 - 把下面的代碼復(fù)制粘貼到右側(cè)的空白窗口中。

'下面代碼是把列表框中的內(nèi)容輸入到選取的單元格中

Private Sub ListBox1_Click()

ActiveCell = ListBox1.Text

End Sub

'下面代碼是實現(xiàn)雙擊H1單元格時顯示/關(guān)閉列表框。你可以自定義H1的位置。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = '$H$1' Then

  If Me.ListBox1.Visible = True Then

     Me.ListBox1.Visible = False

  Else

     Me.ListBox1.Visible = True

  End If

End If

End Sub

'下面的代碼是讓列表框的頂部跟隨選取的單元格位置變動

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.ListBox1.Top = ActiveCell.Top

End Sub

4、文件 - 另存為 - 保存類型選“Excel 啟用宏的作簿”(*.xlam），excel2003略過此步。

完工！

注意：可以通過“設(shè)計模式“按鈕編輯/啟用該列表框。

蘭色說：也許有同學(xué)會問 可否根據(jù)選擇列不同，自動在小框框中切換不同的待選項？如果......？雖然你想要的太多，但VBA都可以幫你實現(xiàn)。蘭色建議大家抽時間學(xué)學(xué)VBA，好玩又實用，讓身邊的Excel高手瞬間變成你的仰慕者。