使用 For Each 结构对 UserForm 中的控件进行排序排序结束时出错

编程问答 2022-04-30

问题描述

我有一个带有 6 个文本框的简单用户窗体。用户输入信息并单击命令按钮，重点是将这些输入复制到工作表中。但是，当我对 UF 中的控件进行排序时，最后出现错误，我不知道为什么。这是我的代码的简化版本（简单的 msgBox 输出）：

Private Sub SetCD_Click()

    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" And Not ctrl.Value = "" Then
            MsgBox ctrl.Value
            'Dim cell As Range
            'For Each cell In inputws.Range("F:F")
            '    If cell.Value = ctrl.Value Then cell.Offset(0,2).Value = CDDate.Value
            'Next
        End If
    Next
    Unload Me

End Sub

MsgBox 相应地显示，但是一旦它对文本框进行排序，我就会得到一个 438：对象不支持此属性或方法。仅供参考，有两个标签（没有附加编程），当然还有确认/命令按钮。

谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

controlscontrolscontrolsexcelexceluserformvba