如何将数据有效性的“来源”由单元格区域引用转换为具体数据？

作者：绿色风分类：时间：2022-08-17 浏览：109

楼主
omnw

Q:如何将数据有效性的“来源”由单元格区域引用转换为具体数据？
A:
原理：判断数据有效性的“来源”是否为单元格区域引用，然后将数据区域中的数据转换化文本，再使用转换后的文本创建新的数据有效性。这样即使删除数据有效性引用的单元格区域也不会影响使用。
以C1单元格中的数据有效性为例，应用如下代码可以实现转换：

Sub 数据有效性来源转换()
Dim str As String, rng As Range
str = Range("C1").Validation.Formula1 '获取已经设置数据有效性的来源
If Left(str, 1) = "=" Then '以单元格区域为来源会以等号开头
Set rng = Range(Right(str, Len(str) - 1)) '确定引用的单元格区域
If Not rng Is Nothing Then
str = Join(Application.WorksheetFunction.Transpose(rng), ",") '将单元格区域中的数据转换成为逗号为分隔符的文本
With Range("C1").Validation '重新设置数据有效性
.Delete '删除原有的数据有效性
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=str '添加新的数据有效性。
End With
End If
End If
End Sub

数据有效性.rar

2楼
zgwei050

感谢omnw 超版，这个非常有用，下载收藏。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表