[已解决]for循环运行不畅求解(曾经问过但没有解决问题)

ccq000000 · 发表于 2022-9-26 22:17

我在for循环中添加了跳转语句，有时可以顺畅运行，有时不能运行但不报错，不知是啥原因。
语句如下：
Sub aa()
Dim x%, y%
Line:
   For x = 1 To 56
      For y = 1 To 56
         If x = yThen
            Cells(x, y).Interior.ColorIndex = WorksheetFunction.RandBetween(1, 56)
            Cells(x, 57 - y).Interior.ColorIndex = WorksheetFunction.RandBetween(1,56)
         End If
      Next y
   Next x
   GoTo Line
End Sub

工作簿1.rar (13.02 KB, 下载次数: 2)

我行我速2008 · 发表于 2022-9-27 07:39

本帖最后由我行我速2008 于 2022-9-27 07:41 编辑

感觉没必要跳转，也没必要设变量y。
Sub aa()
Dim x%
   For x = 1 To 56
            Cells(x, x).Interior.ColorIndex = WorksheetFunction.RandBetween(1, 56)
            Cells(x, 57 - x).Interior.ColorIndex = WorksheetFunction.RandBetween(1,56)
   Next x
End Sub

我行我速2008 · 发表于 2022-9-27 07:40

感觉没必要跳转，也没必要设变量y。
Sub aa()
Dim x%
   For x = 1 To 56
            Cells(x, x).Interior.ColorIndex = WorksheetFunction.RandBetween(1, 56)
            Cells(x, 57 - x).Interior.ColorIndex = WorksheetFunction.RandBetween(1,56)
   Next x
End Sub

砂海 · 发表于 2022-9-27 10:50

这无条件的 Goto, 死循环啊, 靠机器自我察觉, "不行, 我有点晕, 得歇会儿"

hcm19522 · 发表于 2022-9-27 11:09

本帖最后由 hcm19522 于 2022-9-27 11:16 编辑

範圍 30格 A1:AD (白色字按F4就變)=RANDBETWEEN(1,9)*((ROW()-COLUMN()=0)+(ROW()+COLUMN()=31))

格式化黃色=A1=1
格式化紅色=A1=2
格式化綠色=A1=3
格式化藍色=A1=4
格式化紫色=A1=5
格式化橘色=A1=6
格式化黑色=A1=7

ccq000000 · 发表于 2022-9-27 21:08

砂海发表于 2022-9-27 10:50
这无条件的 Goto, 死循环啊, 靠机器自我察觉, "不行, 我有点晕, 得歇会儿"

能运行，不是死循环。

ccq000000 · 发表于 2022-9-27 21:10

hcm19522 发表于 2022-9-27 11:09
範圍 30格 A1:AD (白色字按F4就變)=RANDBETWEEN(1,9)*((ROW()-COLUMN()=0)+(ROW()+COLUMN()=31))

格式 ...

我的问题是：有时该程序可以顺利执行有时只能运行几秒，想知道原因。

ccq000000 · 发表于 2022-9-27 21:14

我行我速2008 发表于 2022-9-27 07:40
感觉没必要跳转，也没必要设变量y。
Sub aa()
Dim x%

是可以不设置变量y。我的要求是不断进行动态填色，所以需要进行跳转。就是在这种跳转中程序有时可以一直运行下去，有时却不行，代码也不显示错误。想知道这是为什么。

哥儿- · 发表于 2022-9-27 23:56

ccq000000 发表于 2022-9-27 21:08
能运行，不是死循环。

楼上说的没错，死循环，本质上就是do loop的翻版，你想要的应该是附件上的效果吧
Sub test()
Dim i%
For i = 1 To 56
Cells(i, i).Interior.ColorIndex = Application.RandBetween(1, 56)
Cells(i, 57 - i).Interior.ColorIndex = Application.RandBetween(1, 56)
Next
Application.OnTime Now + TimeValue("00:00:01"), "test"
End Sub

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