簡單的VBA環路與求解

Question

我在VBA下面的宏，我想獲得它的工作，但我得到一個錯誤：「編譯錯誤：所需的對象」

Sub Macro6() 


' Macro6 Macro 


Dim counts As Integer 

Set counts = 27 

Do While counts < 28 

SolverOK SetCell:=Sheets("Slag Case_forcedConvection").Cells(counts, 66), MaxMinVal:=3, ValueOf:=1, ByChange:=Sheets("Slag Case_forcedConvection").Cells(counts, 32) 

SolverSolve userfinish:=True 

    counts = counts + 1 

End Sub 

Answer 1

整數/多頭做不需要設置它們只需要定義。對象和範圍需要set命令。

由於您使用的是Integer，因此應該從Set counts = 27中刪除Set。

如果仍然出現錯誤，最好使用F8（或打破/暫停代碼）來查看代碼，以確切查看發生的線路錯誤。

http://www.vbtutor.net/提供了一些很好的教程，以便在需要對VB編碼進行深入介紹的情況下開始使用。我希望這有助於...

Answer 2

一個VBA做正確的語法while循環

Do While *Condition* 

CODE 

Loop 

您在底部錯過了「迴路」。