按规则向指定位置写数据

天地一相

感谢帮助！！！详见截图附件。

liulang0808

Sub 按钮3_Click()
    If [H1] = 16 Then
        [H1] = 1
    Else
        [H1] = [H1] + 1
    End If
   
    If [g1] = 33 Then
        n = 1
        For j = 6 To 2 Step -1
            If Cells(1, j) < 33 - n Then
                Cells(1, j) = Cells(1, j) + 1
                x = Cells(1, j)
                For i = j + 1 To 7
                    x = x + 1
                    Cells(1, i) = x
                Next i
                GoTo l1
            End If
            n = n + 1
        Next j
        For i = 2 To 7
            Cells(1, i) = i - 1
        Next i
    Else
        [g1] = [g1] + 1
    End If
l1:
End Sub

liulang0808

测试不全面，楼主根据需求再看看是否能满足需求吧

天地一相

liulang0808 发表于 2023-6-7 13:01
测试不全面，楼主根据需求再看看是否能满足需求吧

谢谢，有点雏形了。末位简单，我拆分成独立的宏了。现在就剩下前六位了。我尝试了新的说明，请看看附件，内附了一些数据做说明演示。

天地一相

liulang0808 发表于 2023-6-7 13:01
测试不全面，楼主根据需求再看看是否能满足需求吧

谢谢，回你的帖子还在审核，我又循环测试了，基本是你的逻辑。就是提前设定一个每个位置的初始值应该就对了。

天地一相

liulang0808 发表于 2023-6-7 13:01
测试不全面，楼主根据需求再看看是否能满足需求吧

谢谢你，在本站搜索再三琢磨，这样实现了，给你汇报下，见截图。

天地一相

天地一相 发表于 2023-6-9 12:16
谢谢你，在本站搜索再三琢磨，这样实现了，给你汇报下，见截图。

接着加嵌套循环吧。我琢磨了这个写法，是从第一位层层递进嵌套的，可根据个数自行增减位数。若去掉不许重复的限制，去掉本级加1是下级起始值。

天地一相

liulang0808 发表于 2023-6-7 13:01
测试不全面，楼主根据需求再看看是否能满足需求吧

谢谢你，是我没看懂你的问题还是你在考我呢。我理解你是在说10个位置。点评没法回复，班门弄斧了，回答在我的帖子下了。