作者：绿色风
分类：
时间：2022-08-17
浏览：137
楼主
liuguansky |
Q：如何跨工作簿返回数据有效性[祛空祛重记录，在每次打开更新]？
A；用如下代码可以实现：
- Private Sub Workbook_Open()
- Dim dic, arr, i&, str1$
- Application.ScreenUpdating = False
- Set dic = CreateObject("scripting.dictionary")
- Workbooks.Open ThisWorkbook.Path & "/数据库.xls"
- With ActiveWorkbook
- With .Sheets("货品分类")
- arr = .Cells(4, 2).Resize(.Cells(.Rows.Count, 2).End(3).Row - 3, 1).Value
- For i = 1 To UBound(arr, 1)
- If arr(i, 1) <> "" Then
- dic(arr(i, 1)) = ""
- End If
- Next i
- str1 = Join(dic.keys, ",")
- End With
- .Close False
- End With
- With Sheets("入库计划")
- With .Range("b4:b2000").Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:=str1
- End With
- End With
- Application.ScreenUpdating = True
- Set dic = Nothing
- End Sub
具体示例文件如下：
|
2楼
高玉甫 |
朋友，您的代码不错，效果很好，谢谢您。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一