excel - 检查控件是否被锁定 - VBA Excel

Question

我试图在一个多页上循环浏览我的所有控件。如果控件被锁定，我不希望它发生任何事情。如果它没有被锁定，它的内容将被清除。我过去使用了以下技术，但这次不会有效。

Dim ctl As Control
For Each ctl In Me.MultiPage1.Pages(Me.MultiPage1.Value).Controls
    If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then ctl.Value = ""
Next

我知道我可以检查单个项目并执行以下操作...

If TextBox1.Locked = True Then
    //Set value to ""
End If

这也不起作用，因为我在这个页面上有很多输入。关于如何修改我的原始技术来完成这项任务的任何想法？

Answer 1

尝试这个。只需进一步分解您的逻辑以处理不同控件类型的细微差别。如果这也引发了错误，请告诉我哪一行引发了错误以及错误消息是什么。

Dim ctl As Control
For Each ctl In Me.MultiPage1.Pages(Me.MultiPage1.Value).Controls
    Select Case TypeName(ctl) 
        Case "TextBox" 
            If Not ctl.Locked Then ctl.Value = ""
        Case "ComboBox"
            ctl.Value = ""
        Case Else
            'ignore other controls, or modify as necessary
    End Select
Next