ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 13483|回复: 15

数据有效性能否使用数组公式?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-6-4 14:19 | 显示全部楼层 |阅读模式

想让单元格提供一个下拉菜单,数字1900—2100,但不想用辅助列,就在数据有效性里输入数组公式:=row(1900:2100),但出现源目前包含错误,是否继续的对话框,改用名称输入也不行,请问,有效性不能输入数组公式吗?

[此贴子已经被作者于2007-6-13 10:30:59编辑过]

TA的精华主题

TA的得分主题

发表于 2004-6-4 17:11 | 显示全部楼层

可以使用数组公式,但必须是引用,不能是用数组来生成的常量数组!

我原来也想偷懒,想直接用你的那种方法来生成序列,结果当然就不对了,这是规定,没办法!呵呵~~~

TA的精华主题

TA的得分主题

发表于 2004-6-4 17:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

但在数据有效性对话框中如何输入数组公式呢?难道直接输入{}吗?我试过这样是不行的

前几天正好遇到这个问题,是想把不重复值的公式输入到数据有效性中,试验了几次也没成功

TA的精华主题

TA的得分主题

发表于 2004-6-4 20:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

我也曾试过不行。

TA的精华主题

TA的得分主题

发表于 2004-6-4 22:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
可用文本长度中的最小值与最大值 ,就可以

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-6-5 17:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以下是引用chenjun在2004-6-5 0:20:00的发言: 你除了直接一个一个写入有效性的来源中,就要引用已写好数据的单行或单列区域,不能引用一个内存中的数组,有效性中的引用必须是对单元格区域的引用(用OFFSET、INDIRECT函数指定的也行)。否则用VBA按上一楼的方法。

如果用控件,代码该如何写呢?如果直接一个一个写入有效性的来源中,是否有个数的限制?

TA的精华主题

TA的得分主题

发表于 2004-12-27 16:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

好东西

但是有的看不懂啊

TA的精华主题

TA的得分主题

发表于 2004-12-27 22:44 | 显示全部楼层

回复:(狡兔〇Oo)好东西但是有的看不懂啊

以下是引用狡兔〇Oo在2004-12-27 16:43:00的发言:

好东西

但是有的看不懂啊

深有同感

TA的精华主题

TA的得分主题

发表于 2004-12-28 03:33 | 显示全部楼层
前天也碰到了,用的是陈版主的方法。呵呵。

TA的精华主题

TA的得分主题

发表于 2004-6-6 17:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

不是的,是用add方法的key开关设置唯一性,给一个excel2002宝典中的例子。 Sub RemoveDuplicatest() Dim Allcells As Range,Cell As Range Dim NoDupes As New Collection

On Error Resume Next For Each Cell In Range("B1:B100") NoDupes.Add Cell.Value,CStr(Cell.Value) Next Cell For Each Item In NoDupes UserForm1.ListBox1.AddItem Item Next Item UserForm1.Show End Sub

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-25 04:42 , Processed in 0.040146 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表