随机跳转页面之使用VBA公共变量
今天在锐普网上碰到一个朋友发问,如何实现随机取页码并跳转到相应页面的问题。问题是这样子的:在第一个幻灯片页面上我们手动输入最小随机数跟最大随机数,然后我们可以通过点击抽题按钮获取一个随机值,显示到当前页上,然后可以单击进入按钮跳转到对应的幻灯片。这个朋友碰到的问题是点击进入的页面与显示的值不对应。其实我们可以使用公共变量保存得到的页面号码就可以轻松实现。下面的图片是大致的界面。
![](https://images0.cnblogs.com/blog2015/798579/201508/241642345461229.png)
实现的方式非常简单,我们新建一个模块,然后声明一个全局变量。
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