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

VBA Do While循环的正确语法

Do While *Condition*

CODE

Loop

你错过了＆＃39;循环＆＃39;在底部。

Answer 2

不需要设置整数/长整数，只需要定义它们。对象和范围需要set命令。

在使用整数时，您应该从Set删除Set counts = 27。

如果仍然出现错误，最好使用F8（或中断/暂停代码）逐步查看代码，以确切了解正在发生的行错误。

http://www.vbtutor.net/提供了一些很好的教程，以便在您想要对VB编码进行扎实的介绍时开始。我希望这有帮助...

带解算器的简单VBA循环

2 个答案: