我的模型中有自定义验证
Sub Delete()
Dim startrow As Long
Dim rng1 As Range
'starting row number here
startrow = 2
' Assuming data to check is in A Column
Set rng1 = ActiveSheet.UsedRange.Find("Content", , xlValues, xlWhole)
If Not rng1 Is Nothing Then
Do Until startrow > Cells(Cells.Rows.Count, "A").End(xlUp).Row
If Cells(startrow, rng1.Column).Value = "Cat" Then
Rows(startrow).Delete
Else
startrow = startrow + 1
End If
Loop
Else
MsgBox "Column Not Found", vbCritical
End If
End Sub
其中$ model-> xyz是下拉列表。 此验证工作正常但由于此验证表单不能正常工作,特别是在我使用会话的地方。 请告诉我任何其他方式来进行此类验证