这是咋的了

Question

Dim f As Form
For Each f In Forms
    If Val(Right(f.Name, 2)) >= 14 And Val(Right(f.Name, 2)) <= 51 Then f.Hide
    If Val(Right(f.Name, 2)) >= 3 And Val(Right(f.Name, 2)) <= 10 Then f.Hide
Next
Form59.Hide
为什么和
我调用 call hhtt 效果不一样
Public Sub hhtt()
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form9.Hide
Form10.HideForm14.Hide
Form15.Hide
Form16.Hide
Form17.Hide
Form18.Hide
Form19.Hide
Form20.Hide
Form21.Hide
Form22.Hide
Form23.Hide
Form24.Hide
Form25.Hide
Form26.Hide
Form27.Hide
Form28.Hide
Form29.Hide
Form30.Hide
Form31.Hide
Form32.Hide
Form33.Hide
Form34.Hide
Form35.Hide
Form36.Hide
Form37.Hide
Form38.Hide
Form39.Hide
Form40.Hide
Form41.Hide
Form42.Hide
Form43.Hide
Form44.Hide
Form45.Hide
Form46.Hide
Form47.Hide
Form48.Hide
Form49.Hide
Form50.Hide
Form51.HideForm59.HideEnd Sub
该怎么改才能和call hhtt 效果一样

Answer 1

试一试下列代码:
Private Sub Command1_Click()
Dim f As Form
For Each f In Forms
   s = Mid(f.Name, 5, Len(f.Name) - 4)
   Select Case s
   Case 1 To 10, 14 To 51, 59
    f.Hide
    End Select
    Next
Next
End Sub