[已解决]诚心请教VBA控件用变量的问题

研究研究

1. Sub 登陆处理()
   
2.     Dim ARR, x As Byte
   
3.     ARR = Split("1|2|5|4", "|")
   
4.     BG.MultiPage1.Page1.Visible = True
   
5.     BG.MultiPage1.Page2.Visible = True
   
6.     BG.MultiPage1.Page5.Visible = True
   
7.     BG.MultiPage1.Page6.Visible = True
   
8.     For x = 0 To UBound(ARR)
   
9.            '<font color="#ff0000">如何用循环来完成上面的动作</font>
   
10.     Next x
    
11.     BG.Show 0
    
12. End Sub

复制代码

带有附件  
诚心请教VBA语句.rar (28.8 KB, 下载次数: 1)

2015-1-23 22:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

芐雨

2015-1-23 22:52

1. Sub 登陆处理()
   
2.     Dim ARR, x As Byte
   
3.     ARR = Split("1|2|5|4", "|")
   
4.     For x = 0 To UBound(ARR)
   
5.         BG.MultiPage1.Item("Page" & ARR(x)).Visible = True
   
6.     Next x
   
7.     BG.Show 0
   
8. End Sub

复制代码

跳转到最佳答案楼层

芐雨

1. Sub 登陆处理()
   
2.     Dim ARR, x As Byte
   
3.     ARR = Split("1|2|5|4", "|")
   
4.     For x = 0 To UBound(ARR)
   
5.         BG.MultiPage1.Item("Page" & ARR(x)).Visible = True
   
6.     Next x
   
7.     BG.Show 0
   
8. End Sub

复制代码