Question

浏览我并没有找到任何特定的东西，因为我确实需要。

我正在寻找的代码，使用＆＃34; AG6＆＃34;和＆＃34; AK6＆＃34;。 AG6是我的客户（44个客户）和ak6我的产品（4个产品）。

作为循环，对于AG6 = 1且ak6 = 1，它将创建粘贴特定范围[A1：T35]的功率点表示，依此类推。 AG6仍为1而ak6 <= 4，并且每次ak6改变它时都会创建演示文稿。当ak6达到4时，ag6变为2，当ak6达到4时，ag6 +1再次变为44。

我试图让自己更清楚。我已经完成了ppt代码，但我仍然坚持这个循环。

提前谢谢!! 见你

Answer 1

这是你在找什么？我不确定你的标题是你的问题是循环代码还是调用PowerPoint - ＆＃34;使用替换代码＆＃34;意思？无论如何，这是一个简单的嵌套循环 - ＆＃34; Debug＆＃34; line只是为了表明循环实际上有效。

Sub testloop()
Dim client As Integer
Dim product As Integer
With ActiveSheet
    For client = 1 To 44
        .Range("AG6") = client
        For product = 1 To 4
            .Range("AK6") = product
            'Do Something Here
            Debug.Print .Range("AG6") & " - " & .Range("AK6")
        Next product
    Next client
End With

End Sub

Answer 2

当我写另一个问题时忘了它，这是我的错误！

例：

1

. client as 1 and prod as 1
    client as 1 and prod as 2
    client as 1 and prod as 3
    client as 1 and prod as 4

当prod达到4时，客户端转到2并执行相同的操作。

每次prod变量改变之间

，我将创建ppt表示。

EXCEL VBA不断更改变量并按间隔创建ppt表示

2 个答案: