用VB编数据有效性，打开工作簿出错

jordanlive · 发表于 2024-8-12 15:23

本帖最后由 jordanlive 于 2024-8-12 15:25 编辑

用VB编数据有效性，打开工作簿发现不可读取内容，请高手帮忙修改正确的语句

quqiyuan · 发表于 2024-8-12 15:41

运行正常，没发现你说的问题。

jordanlive · 发表于 2024-8-12 16:00

本帖最后由 jordanlive 于 2024-8-12 16:04 编辑

quqiyuan 发表于 2024-8-12 15:41
运行正常，没发现你说的问题。

不可能吧，运行时确实出现这个问题，是不是版本的问题吗？我用的是EXCEL2010

quqiyuan · 发表于 2024-8-12 16:41

jordanlive 发表于 2024-8-12 16:00
不可能吧，运行时确实出现这个问题，是不是版本的问题吗？我用的是EXCEL2010

的确好好的，M365

3190496160 · 发表于 2024-8-13 10:12

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set wb = ThisWorkbook
Set ws2 = wb.Sheets("流水线")
With ws2.Range("B2:b3").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=strUniqueD
.IgnoreBlank = True
.InCellDropdown = True
End With
wb.Close True
End Sub

3190496160 · 发表于 2024-8-13 10:13

报表.rar (50.11 KB, 下载次数: 6)

3190496160 · 发表于 2024-8-13 10:13

增加一段代码，每次关闭工作簿时，自动删除数据有效性，就可以避免错误发生了

jordanlive · 发表于 2024-8-13 10:55

3190496160 发表于 2024-8-13 10:13
增加一段代码，每次关闭工作簿时，自动删除数据有效性，就可以避免错误发生了

感谢，现在打开没有了提示错误。

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