作业帮 > 综合 > 作业

假设A1是数字7范围内,怎么用VBA实现B列生成7个变量求解决

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/24 05:31:48
假设A1是数字7范围内,怎么用VBA实现B列生成7个变量求解决
假设A1是数字7范围内,怎么用VBA实现B列生成7个变量,A1是6,B列生成6个变量数据,范围是1-7,这用VBA怎么写
就是A1 B1-B2
我写 2 这里随机出现2个数
我写3 B1-B3随机出现3个数依次到7,求代码
B列生成变量(数据),这个不知道该怎样理解,如果是1~7的随机数字,代码如下,详见附件.
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Or Target > 7 Or Target < 1 Then Exit Sub
   Application.EnableEvents = False
   Range("B1:B7").ClearContents
   For i = 1 To Target
      Randomize
      Range("B" & i) = Int(7 * Rnd() + 1)
   Next
   Application.EnableEvents = True
End Sub