[已解决]转弯问题

amulee

QUOTE:

以下是引用大灰狼在2009-12-3 14:14:00的发言：

空多少列那个inputbox是不是多余了?

两列一个step是固定的呀?还是我没看懂?

不是多余的，你试试看楼主的源程序里面输入一个2或者3看看效果。

amulee

QUOTE:

以下是引用大灰狼在2009-12-3 14:12:00的发言：

Sub Turn()
    Dim RoMax As Byte
    Dim Ro As Byte
    Dim Col As Byte
    Dim ColMax
    Dim Cnt As Byte
    With ThisWorkbook.Sheets(1)
        .UsedRange.Clear
        RoMax = Application.InputBox("Input max row:", Default:=20)
        ColMax = (56 \ RoMax) * 2 + 1
        For Col = 1 To ColMax Step 2
            For Ro = 1 To RoMax
'                Cnt = (Col \ 2) * RoMax + Ro'这个地方其实都不用这样计算,可以直接从1开始计数了,所以简化成cnt=cnt+1
                Cnt = Cnt + 1
                If Cnt = 57 Then Exit Sub
                .Cells(Ro, Col).Interior.ColorIndex = Cnt
                .Cells(Ro, Col + 1) = Cnt
            Next Ro
        Next Col
    End With
End Sub

这个思路和我一样

[em01]

大灰狼

那我又改了一下
Sub Turn()
    Dim RoMax As Byte
    Dim Ro As Byte
    Dim Col As Byte
    Dim ColMax
    Dim Cnt As Byte
    Dim Stp As Byte
    With ThisWorkbook.Sheets(1)
        .UsedRange.Clear
        RoMax = Application.InputBox("Input max row:", Default:=20)
        Stp = Application.InputBox("Input max colume:", Default:=0)
        ColMax = (56 \ RoMax) * (2 + Stp) + 1
        For Col = 1 To ColMax Step 2 + Stp
            For Ro = 1 To RoMax
                Cnt = Cnt + 1
                If Cnt = 57 Then Exit Sub
                .Cells(Ro, Col).Interior.ColorIndex = Cnt
                .Cells(Ro, Col + 1) = Cnt
            Next Ro
        Next Col
    End With
End Sub

大灰狼

QUOTE:

以下是引用amulee在2009-12-3 14:18:00的发言：

这个思路和我一样

[em01]

嘻嘻,咱俩心有灵犀嘛

[em02][em02]

amulee

QUOTE:

以下是引用大灰狼在2009-12-3 14:21:00的发言：

嘻嘻,咱俩心有灵犀嘛

[em02][em02]

[em06][em06][em06]

大灰狼

QUOTE:

以下是引用amulee在2009-12-3 14:24:00的发言：

[em06][em06][em06]

[em07][em31][em32]

开辆小富康

阿木的办法，排除了mod，就是先取行列的范围，然后在其中循环。很高的哦。

c = Int(i / (x + 0.01)) * (y + 2) + 1

思路是这样的，比如x是10，那么1-10就是第一列。i/10,如果i=10,那么int(i/10)就是1了。我现在要1-10的除以10以后全不满1，所以是i/(10+0.01).

amulee

QUOTE:

以下是引用大灰狼在2009-12-3 14:25:00的发言：

[em07][em31][em32]

2006-8-30 11:16:00注册？帖子总数8 篇!!!

你真是超级潜水员啊。

才发现都不大来。。。。。

大灰狼

QUOTE:

以下是引用amulee在2009-12-3 14:29:00的发言：

2006-8-30 11:16:00注册？帖子总数8 篇!!!

你真是超级潜水员啊。

才发现都不大来。。。。。

嘻嘻嘻,我是追随小红帽来的,小红帽冒泡,我才冒出来,小红帽不冒泡,我陪她一起潜水

[em04]

爱疯

明白了自己的方法，

现在这么多好方法，

让我一直深度迷糊中 ... 先学习[em04]

谢谢来自海底的大灰狼！