这段代码在sheet9为非激活状态不能正确执行，为什么？

sinoshipping · 发表于 2012-8-26 19:34

Sub changePosition()

   Dim rRow As Long
   Dim LRow As Long, suoYouShuJu, linShiShuJu(1 To 8), suiJIShu
   Dim suoYouShuJuMax As Integer
   Dim i As Integer, j As Integer, k As Integer
'ActiveSheet.Parent.Worksheets("sheet9").Active
   rRow = Worksheets("sheet9").UsedRange.Row
   LRow = rRow + Worksheets("sheet9").UsedRange.Rows.Count - 1

   suoYouShuJu = Worksheets("sheet9").Range(Cells(1, 1), Cells(LRow, 6))

   suoYouShuJuMax = UBound(suoYouShuJu)

   For i = 1 To suoYouShuJuMax
   suiJIShu = (Rnd() * ((suoYouShuJuMax - i + 1) - 1) + 1) \ 1

         For j = 1 To 6

            linShiShuJu(j) = suoYouShuJu(suiJIShu, j)
            suoYouShuJu(suiJIShu, j) = suoYouShuJu(suoYouShuJuMax - i + 1, j)
            suoYouShuJu(suoYouShuJuMax - i + 1, j) = linShiShuJu(j)

         Next j
      Next i
Worksheets("sheet2").Range("a1").Resize(6) = suoYouShuJu

End Sub

hrpotter · 发表于 2012-8-26 19:49

suoYouShuJu = Worksheets("sheet9").Range(Worksheets("sheet9").Cells(1, 1), Worksheets("sheet9").Cells(LRow, 6))

复制代码

你可以用

With Sheets("sheet9")
代码 '这样清楚点
End With

复制代码

wayy · 发表于 2012-8-26 19:50

如果是在其它工作簿为激活状态自然不会执行，因为使用的Sheet９没有加工作簿名称。

sinoshipping · 发表于 2012-8-26 19:54

wayy 发表于 2012-8-26 19:50
如果是在其它工作簿为激活状态自然不会执行，因为使用的Sheet９没有加工作簿名称。

那非激活状态下，比如sheet2激活，怎么才能正确执行代码，而且每次的随机排列都是相同的为什么？谢谢

		自动登录	找回密码
密码			注册

这段代码在sheet9为非激活状态不能正确执行，为什么？

相关帖子