随机跳转页面之使用VBA公共变量

今天在锐普网上碰到一个朋友发问，如何实现随机取页码并跳转到相应页面的问题。问题是这样子的：在第一个幻灯片页面上我们手动输入最小随机数跟最大随机数，然后我们可以通过点击抽题按钮获取一个随机值，显示到当前页上，然后可以单击进入按钮跳转到对应的幻灯片。这个朋友碰到的问题是点击进入的页面与显示的值不对应。其实我们可以使用公共变量保存得到的页面号码就可以轻松实现。下面的图片是大致的界面。

实现的方式非常简单，我们新建一个模块，然后声明一个全局变量。

1 Public currentID As Integer

然后我们在第一个幻灯片页面建立如下的代码

 1 Private Sub cmdGet_Click()
 2     Dim startNumber As Integer, endNumber As Integer
 3     
 4     On Error GoTo end_Sub
 5     startNumber = CInt(txt1.Text)               '获取最小及最大随机的数值
 6     endNumber = CInt(txt2.Text)
 7     On Error GoTo 0
 8     
 9     '去除0值
10     If startNumber = 0 Or endNumber = 0 Then
11         MsgBox "起始随机数及结束随机数不能为0！"
12         GoTo end_Sub
13     End If
14     
15     Randomize
16     currentID = Int((endNumber - startNumber + 1) * Rnd + startNumber)
17     lable1.Caption = currentID
18 end_Sub:
19 
20 End Sub
21 
22 Private Sub cmdStart_Click()
23     ActivePresentation.SlideShowWindow.View.GotoSlide currentID '跳转到指定页
24 End Sub

 

posted @ 2015-08-24 16:58  alexywt  阅读(851)  评论(0)  编辑  收藏  举报