关于EXCEL数据有效性的问题！！求高手指教！！

Question

本人利用数据有限性做了一个下拉菜单，但是菜单选项太多了。选择起来费时费神。有没有什么好的方法能解决？EXCEL小白在此跪求各位高手指教。现给20分。问题得到了解决后在送上80。跪求了啊跪求~~~

Answer 1

1、将供应商名称所在列定义为名称：供应商（插入-名称-定义），引用的位置就是供应商名称所在单元格
2、选中要做下拉菜单的单元格，数据-数据有效性，选择允许“序列”，在来源输入“=供应商”就可以了

追问

各位大哥大姐，我不是想要进行数据有效性的设置，也不是跨表设置数据有效性。就是把有效性设置完了之后，下拉菜单的选项太多了。录入有些麻烦。

Answer 2

在有效性数据来源中输入你常用的项目.可减少选择.
不知道你要得到多少选项,才能考虑用其它的办法

追问

100多个吧。全是常用的供应商。

追答

思路:制作一个供应商信息表,保存供应商信息.在供应商信息表中双击供应商可将供应商信息填入相应的单元格内.
用VBA代码可实现,在工作表的双击事件中加入以下代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
i = Target.Row
Sheets("表格名称").Select
Sheets("表格名称").Cells(2, 1) = Sheets("供应商信息表").Cells(i, 1)
End Sub
修改单元格地址可实现目的.

追问

额~~都上VBA了啊。我先去试试，关能否指教下每一步骤的用途？
弄了半天没弄出来。VBA和VB差异让我不明白啊。不过我看了下思路。感觉我的问题还是没有得到解决。其实我的问题主要就是如何简单快捷的将供应商的正规名字录入到某一个单元格中。你的思路很简单就是建立一个供应商库。在库里面找到供应商，在把供应商填到指定的单元格。这样没从根本上解决我的问题。我主要是嫌供应商过多，查询麻烦。

追答

调整了一下不知是否满足要求:
在要输入供应商的单元格双击,打开供应商信息表,在此表中查找比在有效性查找容易且快速,找到后双击供应商就将其输入到单元格中同回到原工作表.
在工作表的双击事件中添加代码(即你操作的工作表,ALT+F11打开窗口后找到你当前的工作表名称双击打开的编辑窗口)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("供应商信息表").Select
End Sub
同理在供应商信息表的工作表的双击事件中添加代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("工作表名").Select
sheets("工作表名").cells(单元格地址)=target
End Sub

追问

嗯~~最早我也是这个思路的。可是EXCEL是小白啊，VBA更加是小白。。。。。我先试试。
录入编码中遇到两个问题：
1、请问你的编码里面有没有对"供应商表"的供应商进行筛选的代码？如果没有要建立代码应该是怎么样的？
2、请问如何将目标数据填入"工作表名"双击的单元格中。也就是"sheets("工作表名").cells(单元格地址)=target"中的单元格地址如何指定为被双击的单元格？
唉~~麻烦大侠多多指点一下我这个小白。非常感谢啊！

追答

再说详细一点
假如在你操作的工作簿中有两张表,一张为"供应商信息表"另一张为"录入表"(即你操作填入供应商的表),要输入供应商信息的单元格是A2.
1、ALT+F11打开一个窗口,找到"供应商信息表"双击在打开的窗口中将以下代码粘贴到窗口中保存
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sheets("录入表").cells(2,1)=target
Sheets("录入表").Select
End Sub
2、ALT+F11打开一个窗口,找到"录入表"双击在打开的窗口中将以下代码粘贴到窗口中保存
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("供应商信息表").Select
End Sub

无论你的供应商信息表设计是一列还是多列,或多行多列,只要你双击供应商的单元格,此单元格的内容就输入到录入表A2单元格内.
按照上述操作完成之后,在录入表中双击单元格感觉一下.
重要的一点两张工作表名必须命名为“录入表”、“供应商信息表”不然程序下标越界不执行。

追问

代码1：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
dim x as single , y as single
x = Selection.Row()
y = Selection.Column()
sheets("sheet2").select
end sub
代码2：
Private Sub Worksheet_BeforeDoubleClick()内容过长删掉括了号内容
sheets("sheet1").cells(x,y)=target
Sheets("sheet1").Select
End Sub
在运行的时候出现了X,Y是空值的情况。请问怎么解决？

追答

代码1：设置两个变量无意义（可取消），代码是设置sheet2为活动工作表。
代码2：有两个变量无定义所以返回了空值。
要实现输入的内容依次递增可用以下的代码
lastrow = Worksheets("SHEET1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
sheets("sheet1").cells(lastrow+1,1)=target

Answer 3

主要看是要做什么用，如果你要做的选项很多，不如手输，因为设置了，数据有限性的单元格输入别的非下菜单的内容是无法输入的，这样表格给别人看了很专业，嘿嘿

追问

人都是有惰性的啊。不限制的话供应商名称千奇百怪。后期统计非常麻烦的。

追答

该列设置了数值有效性了，别人想输入别的内容是无法输入的，你设置数值有效性为序列，输入你要的供应商的名称，再沟上提供下拉箭头，别人就只能输入你事先制作好的那些供应商的名子了。