[已解决]求助 求助~~

liheng_0116

我的在excel里面建了一个窗体，这个窗体里面有10个textbox，名字分别是textbox1,textbox2,textbox3.....textbox10 他们的visible属性 都是false
我现在想通过一个变量 来控制这些textbox的visible属性
比如：这个变量 如果是5 那么textbox1——textbox5的 visible 属性 都变成true ,如果是8 则textbox1——textbox8的visible 属性 都变成true。
求助各位大仙  这段代码应该怎么写 谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-17 16:13

1. Private Sub CommandButton1_Click()
   
2.     N = 5                           '变量
   
3.     For I = 1 To 10                  '全部设为False
   
4.         Me.Controls("TextBox" & I).Visible = False
   
5.     Next
   
6.     For I = 1 To N                  '指定范围设为True
   
7.         Me.Controls("TextBox" & I).Visible = True
   
8.     Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Private Sub CommandButton1_Click()
   
2.     N = 5                           '变量
   
3.     For I = 1 To 10                  '全部设为False
   
4.         Me.Controls("TextBox" & I).Visible = False
   
5.     Next
   
6.     For I = 1 To N                  '指定范围设为True
   
7.         Me.Controls("TextBox" & I).Visible = True
   
8.     Next
   
9. End Sub
   

复制代码