原来在表sheet1中，后来改成窗体了，代码该怎么改

mashulei

Sub ql()

Dim shp, nm$
For Each shp In Sheet1.Shapes

    nm = shp.Name
    If nm <> "TextBox16" And nm <> "TextBox18" Then
        If InStr(nm, "Text") And InStr(nm, " ") = 0 Then
            shp.DrawingObject.Object.Text = ""
        End If
    End If
    If InStr(nm, "Check") Then
        shp.DrawingObject.Object.Value = False
    End If
Next
With UserForm1
'    .ListBox4.Visible = False
    .ListBox4.Clear
    .ListBox5.Clear

End With
End Sub

582766

没有附件，没法判断

mashulei

582766 发表于 2022-12-3 21:23
没有附件，没法判断

就是在sheet1的功能都改到窗体了，到这里不会改了

ssfx1982

1. Dim shp As Control, nm$
   
2. For Each shp In Me.Controls
   
3.     nm = shp.Name
   
4.     If TypeName(shp) = "TextBox" Then '判断控件类型是否为TextBox
   
5.         If nm <> "TextBox16" And nm <> "TextBox18" Then  '判断TextBox控件名称是否是TextBox16或18
   
6.             shp.Text = ""
   
7.         End If
   
8.     End If
   
9.     If TypeName(shp) = "CheckBox" Then '判断控件类型是否为复选框
   
10.         shp.Value = False
    
11.     End If
    
12. Next
    
13. With UserForm1
    
14. '    .ListBox4.Visible = False
    
15.     .ListBox4.Clear
    
16.     .ListBox5.Clear
    
17. 
    
18. End With
    

复制代码