改成循环

Question

form14.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.hide
怎样写成一个循环，这样看着也太累了14 to 51

Answer 1

Dim f As Form
For Each f In Forms
 f.hide
Next

Answer 2

 Dim f As Object
 Dim f_c As Integer
 For Each f In Forms
     If TypeOf f Is Form Then
        f_c = Replace(UCase(f.Name), UCase("Form"), "")        '
        If f_c >= 14 And f_c <= 51 Then f.Hide
     End If
 Next

Answer 3

Dim f As Object 
Dim f_c As Integer 
For Each f In Forms 
    If TypeOf f Is Form Then 
        f_c = Replace(UCase(f.Name), UCase("Form"), "")        ' 
        If f_c >= 14 And f_c <= 51 Then f.Hide 
    End If 
Next 

Answer 4

简化一下:
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 
Next