如何用表格内容控制宏值

fengjy1976

问题
1、能不能实现在A2-A11中按照70-238任意排列数字？G2和H2控制
2、能不能实现A列2-11由单元格内容控制？G3和H3控制

现有编码如下：
Private Sub CommandButton1_Click()
Dim mr As Range
Dim tk As Integer
tk = [H2]
For Each mr In Range("a2:a11")
    Do
    mr = Int(Rnd() * tk + 1)
    Loop Until Application.CountIf(Range("a2:a11"), mr) = 1
Next mr
End Sub

[ 本帖最后由 fengjy1976 于 2010-3-24 17:28 编辑 ]

fengjy1976

那会儿附件里面有密码，现在没有了，请各位高手帮忙

fengjy1976

帮帮我吧，谢谢各位高手了

fengjy1976

各位高手呀，求你们了，给指点指点吧。

fengjy1976

为什么没有人回复我的帖子呢？原因在哪？能有位高手提示一下吗？