[求助]请问如何增加数据有效性中下拉菜单的长度

sihao · 发表于 2007-6-19 00:18

请问如何增加数据有效性中下拉菜单的长度，以便迅速找到需要的内容

yuanzhuping · 发表于 2007-6-19 00:23

不可以，如果用组合框做可以设置。

sihao · 发表于 2007-6-19 01:06

Ta0Pw6cK.rar (3.49 KB, 下载次数: 201)
既然不可行，那请版主把这个附件修改一下。达到这个效果就能用了：当从组合框中选择“甲”之后，则之前鼠标所选择的单元格显示“甲”

[此贴子已经被作者于2007-6-19 1:08:34编辑过]

yuanzhuping · 发表于 2007-6-19 09:29

QUOTE:

以下是引用sihao在2007-6-19 1:06:38的发言：

5ZUnH9jZ.rar (10.95 KB, 下载次数: 689)
参考，在第一列，请自己修改。

sihao · 发表于 2007-6-19 11:28

非常感谢，宏的用处真是太大了。但我还未看懂您是如何把下拉菜单控制在第一列的。比如说我要把下拉菜单放在B5:B9。请问如何修改：

Option Explicit
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.ComboBox1
    If Target.Column = 1 And Target.Count = 1 Then
        .Visible = True
        .ListFillRange = "d2:d11"
        .ListRows = 10
        .Width = Target.Width + 15
        .Left = Target.Left
        .Top = Target.Top
        .Height = Target.Height
    Else
        .Visible = False
    End If
End With
End Sub

yuanzhuping · 发表于 2007-6-19 16:49

QUOTE:

以下是引用sihao在2007-6-19 11:28:21的发言：

非常感谢，宏的用处真是太大了。但我还未看懂您是如何把下拉菜单控制在第一列的。比如说我要把下拉菜单放在B5:B9。请问如何修改：

把If Target.Column = 1 And Target.Count = 1 Then改成
If Target.Column = 2 And Target.Row > 4 And Target.Row < 10 And Target.Count = 1 Then

如果选择的单元格的列是2，就是B列，行大于4和小于10，就是5到9行的范围，加起来就是B5：B9。

fPfvWT9W.rar (11.06 KB, 下载次数: 702)

sihao · 发表于 2007-6-19 18:02

总算盼到，刚才左思右想，不得其解。多谢yuanzhuping，辛苦了啊

sddgz · 发表于 2007-7-3 16:17

谢谢，学习了一招！

wujialin505 · 发表于 2010-6-30 21:22

谢谢，学习了一招！

zmf100 · 发表于 2010-11-10 12:47

请回答清楚

		自动登录	找回密码
密码			免费注册