初学有关选项按钮的求助

wuqing9

详见附件,希望能以附件的形式帮我,

northwolves

想在点击了"试题库"中的随机选题按钮后,在随机选题工作表中的题号列显示1/2/3/4////100这样的题目序号,而不是显示试题库中的题目号,这样试卷工作表中每道题也就有顺号了
--------------------------

1. 
   
2. Sub Macro2()
   
3.     Dim arr, brr, crr(1 To 100, 1 To 10), i As Integer, J As Integer, d As Object, dic As Object, temp As Integer
   
4.     arr = Range("A2:J967")
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Set dic = CreateObject("scripting.dictionary")
   
7.     Randomize
   
8.     Do
   
9.         i = Int((733 * Rnd) + 1)
   
10.         d(i) = ""
    
11.     Loop Until d.Count = 80
    
12.     Do
    
13.         i = Int((233 * Rnd) + 734)
    
14.         dic(i) = ""
    
15.     Loop Until dic.Count = 20
    
16.     With Sheets("随机选题")
    
17.         .UsedRange.Clear
    
18.         Range("A1:J1").Copy .Cells(1, 1)
    
19.         .[a2].Resize(80) = WorksheetFunction.Transpose(d.keys)
    
20.         .[a82].Resize(20) = WorksheetFunction.Transpose(dic.keys)
    
21.         .Range("A2:A101").Sort Key1:=.Range("A2:A101")
    
22.         brr = .Range("A2:A101")
    
23.         For i = 1 To 100
    
24.             temp = brr(i, 1)
    
25.             For J = 1 To 10
    
26.                 crr(i, J) = arr(temp, J)
    
27.             Next
    
28.         Next
    
29.         With .[a2].Resize(100, 10)
    
30.             .Borders.LineStyle = xlContinuous
    
31.             .Value = crr
    
32.         End With
    
33.         .Activate
    
34.         .[b2].Resize(100) = [row(b1:b100)]'-----------这里加一句即可
    
35.     End With
    
36.     Application.ScreenUpdating = True
    
37. End Sub
    

复制代码

wuqing9

多谢帮助,有空的话再帮帮我实现其它的功能可以吗?