excel 错误对象不支持此属性或方法

5kgi1eie 于 2023-03-13 发布在其他

关注(0)|答案(1)|浏览(423)

我不知道问题出在哪里：（对不起

Private Sub Tmbl_Del_Click()
    Dim sampah As TextBox
    Dim sampah2 As ComboBox
    
    For Each sampah In Jurnal
    If IsEmpty(sampah) Then
        If sampah.Name <> TxtTanggal Then
            sampah.Value = ""
        End If
    End If
    Next
    For Each sampah2 In Jurnal
            
            sampah2.Value = ""
    Next
End Sub

我试图清除VBA窗体中TextBox和ComboBox中的所有内容，但名为“TxtTanggal”的TextBox除外

excel

来源：https://stackoverflow.com/questions/75696049/error-object-doesnt-support-this-property-or-method

1条答案

按热度按时间

uqcuzwp81#

尝试采用以下代码，该代码循环遍历每个控件，并检查控件是TextBox还是ComboBox。如果是，则清除内容，除非控件名为“TextBox1”。

Dim ctrl As Control

For Each ctrl In Me.Controls
    Select Case TypeName(ctrl)
        Case "TextBox", "ComboBox"
            If ctrl.Name <> "TextBox1" Then
                ctrl.Value = ""
            End If
    End Select
Next ctrl

赞(0）回复(0）举报 2023-03-13

我来回答

excel 错误对象不支持此属性或方法

1条答案

相关问题

热门标签

最新问答