如何解决使用 For Each 结构对 UserForm 中的控件进行排序排序结束时出错
我有一个带有 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 举报,一经查实,本站将立刻删除。