excel2007中如何设置“带复选框”的“下拉列表”？

Answer 1

选中你要设置的单元格》数据》数据有效性》在允许中选中序列》来源中里面填入你的下拉列表项目，用英文逗号隔开；也可以直接框选工作表中现有的项目。操作一下便知啦！

追问

但是不是复选框的显示，也就是数字前面没有框，我要的是数字前面有框的形式，如上图所示。

追答

Excel自带的没有这个功能。按你的要求，你只能用VBA来实现了，不知道你对VBA懂多少？

追问

你将代码写出来我能看到懂。

追答

估计你懂VBA，那VBA的基础知识就不说了。
在你要操作的工作表中添加一个ListView、一个ToggleButton、一个CommandButton控件，分别更改控件名称LV、TB和BT，然后在VBA 环境的该工作表中如下代码：
'LV:ListView
'TB:ToggleButton
'BT:CommandButton

Private Sub BT_Click()
Dim L As ListItem
For Each L In LV.ListItems
If L.Checked = True Then
If ActiveCell = "" Then
Debug.Print L
ActiveCell = L
Else
ActiveCell = ActiveCell & "," & L
End If
End If
Next
End Sub

Private Sub TB_Click()
On Error Resume Next
If TB.Value = False Then
LV.Visible = False
TB.BackColor = &HFF00FF
Else
LV.Visible = True
TB.BackColor = &HFF00&
End If
LV.ListItems.Clear
LV.Left = ActiveCell.Offset(0, 1).Left
BT.Left = LV.Left
LV.Top = ActiveCell.Top
BT.Top = LV.Top + LV.Height
LV.Width = ActiveCell.Width
BT.Width = LV.Width
BT.Visible = LV.Visible
LV.MultiSelect = True
LV.CheckBoxes = True
For Each c In Range("a1:a" & [a65536].End(xlUp))
LV.ListItems.Add , , c
Next
LV.Height = LV.Font.Size * (2 + LV.ListItems.Count)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TB.Value = False
TB.Top = ActiveCell.Top
TB.Height = ActiveCell.Height
TB.Left = ActiveCell.Offset(0, 1).Left - TB.Width
If TB.Value = False Then
LV.Visible = False
Else
LV.Visible = True
End If
End Sub
假如你的列表选项放在从A1开始的A列中，那么就可以实现图示效果。

Answer 2

不是太理解你的问题，说的不就是自动筛选嘛？

追问

如图所示

追答

这就是自动筛选啊？你要实现什么目的。