具有多个变量的VBA Goalseek循环
VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言，可以通过编写宏来自动化和定制化各种任务。Goalseek是VBA中的一个功能，用于通过调整一个或多个变量的值来实现目标值的计算。
具有多个变量的VBA Goalseek循环是指在VBA中使用循环结构来实现多个变量的Goalseek计算。通过循环遍历不同的变量组合，可以找到满足特定目标值的最优解。
在VBA中实现多个变量的Goalseek循环，可以按照以下步骤进行：
- 定义需要调整的变量：根据具体需求，确定需要调整的多个变量，并在VBA代码中进行定义。
- 设置目标值和容差：确定需要达到的目标值，并设置一个容差范围，用于判断是否达到目标值。
- 编写循环结构：使用VBA中的循环结构（如For循环、Do While循环等），对多个变量进行遍历。
- 在循环中进行Goalseek计算：在每次循环中，通过调用VBA的Goalseek函数，根据当前变量组合计算目标值，并与设定的目标值进行比较。
- 判断是否达到目标值：根据计算结果和容差范围，判断当前变量组合是否满足目标值要求。如果满足，则退出循环；如果不满足，则继续进行下一次循环。
- 输出最优解：在循环结束后，输出满足目标值要求的最优解，即达到目标值的变量组合。
VBA Goalseek循环在实际应用中可以用于各种场景，例如金融领域的投资组合优化、工程领域的参数调优等。通过自动化计算和遍历，可以快速找到最优解，提高效率和准确性。
腾讯云提供了一系列与云计算相关的产品，可以帮助开发者实现各种需求。具体推荐的产品和产品介绍链接地址如下：
- 云服务器（CVM）：提供灵活可扩展的云服务器实例，满足不同规模和性能需求。产品介绍链接
- 云数据库MySQL版（CDB）：提供高可用、可扩展的MySQL数据库服务，支持自动备份和容灾。产品介绍链接
- 人工智能平台（AI Lab）：提供丰富的人工智能开发工具和服务，包括图像识别、语音识别、自然语言处理等。产品介绍链接
- 物联网套件（IoT Hub）：提供全面的物联网解决方案，包括设备接入、数据管理、消息通信等功能。产品介绍链接
- 云存储（COS）：提供安全可靠的对象存储服务，支持海量数据存储和访问。产品介绍链接
请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求进行评估和决策。
相关·内容
如何在VBA中将其更改为for循环？ Sub GoalSeekV1()
Range("E34").GoalSeek Goal:=0, ChangingCell:=Range("Inputs!$F$73")
Range("F34").GoalSeek Goal:=0, ChangingCell:=Range("Inputs!$G$73")
Range("G34").GoalSeek Goal:=0, ChangingC
浏览 64提问于2021-08-17得票数 0
回答已采纳
1回答
我希望在指定表的每一行中执行目标搜索。下面的VBA代码成功执行了GoalSeek。 Sub GoalSeek()
Dim lo As ListObject
Dim rw
Set lo = Sheet1.ListObjects("Table1")
For rw = lo.DataBodyRange.Rows.Count To 1 Step -1
Range("M" & rw).GoalSeek Goal:=Range("N" & rw).Value, ChangingCell:=Range("E" &
浏览 49提问于2021-08-14得票数 0
回答已采纳
在VBA中有没有GoalSeek的替代品？我的工作表中充满了不喜欢从子例程中调用GoalSeek的函数，我正在寻找一种替代方法进行优化。
浏览 7提问于2017-12-13得票数 0
我有一个非常大的工作簿，里面有许多工作表和数据。由于某些原因，当我手动执行特定的Goalseek时，它会按预期工作，但如果我尝试在VBA中执行相同的Goalseek，它将按预期更新理想单元格，但似乎只是停止工作。因此我得不到想要的结果。(似乎Goalseek只是在一定的迭代次数后停止，可能是在一次迭代之后。)
与手动运行Goalseek相比，是什么原因导致Goalseek在VBA中无法工作？同样值得注意的是，我从来没有得到一个运行时错误。代码将执行到结束，只是不会得到想要的结果。
我试着在一个很小的工作簿(只有一张数据)中运行代码，它可以正常工作，所以问题不在于我的语法。
浏览 0提问于2015-08-25得票数 1
1回答
我是新来这个网站和全新的VBA。我有一个与目标寻找相关的问题。
我需要在VBA中多次使用Goal seek。以下是我的Excel工作表的示例：
我需要通过更改I(硬编码)中的单元格，将F(链接到另一个工作表的公式)中的单元格设置为0。我有完成此操作的基本代码，但我想知道如何告诉Excel“嘿，为列中的每个单元格循环此操作”。我不想在VBA中手动输入此命令数百次。这是我在VBA中实际拥有的东西。
Sub Goal_Seek()
'
' Goal_Seek Macro
Range("F7").Select
Range("F7
浏览 16提问于2018-11-22得票数 1
我需要在VBA代码中使用Goalseek，但不是在电子表格中寻找目标“单元格”的目标，而是需要在VBA代码中寻找“变量”的目标。
例如，我需要设置一个在VBA代码中声明的目标变量，而不是将某些目标单元格设置为"A3“。
当然，这同样适用于“通过更改”字段。
这有可能吗？
浏览 2提问于2012-04-13得票数 1
回答已采纳
我在VBA中有一个使用goalseek的Excel宏。我要将此宏转换为独立的VBA文件，以便插入到其他vba程序中。我可以在VBA中使用与goalseek等效的工具吗？
浏览 0提问于2010-12-07得票数 0
代码是
Sub GoalSeek()
'
' GoalSeek Macro
' Goal seek with input box for ending EBIT
'
'
Dim EBIT As String
EBIT = InputBox("Enter ending EBIT goal in Millions", "Ending EBIT", "e.g. 140")
Range("I56").GoalSeek Goal:=EBIT, ChangingCell:=Range(&
浏览 8提问于2022-07-21得票数 -1
1回答
我有一个excel文件，其中我必须运行目标搜索vba来实现某个数字。但是，如果我在其他单元格中运行，每次我都需要手动更改目标搜索编号。有没有办法弹出一个输入框，我可以在其中输入所需的数字，然后宏将运行以完成操作？
在下面的代码中，goal seek设置为40。但当我需要目标时，我必须手动更改数字。我期待着一些扩展，这将需要一个目标寻求号码，每次我运行宏时。有什么想法吗？
'
' Run_DIO Macro
'
' Keyboard Shortcut: Ctrl+q
'
ActiveCell.GoalSeek Goal:=40, Changing
浏览 16提问于2019-11-04得票数 0
回答已采纳
我正在尝试在excel电子表格中利用VBA中的goalseek命令。我在F3、F7和F18中有一个值。当我更改F3中的值时，我得到以下错误：
运行时错误'1004'：引用无效
以下是代码
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Mdl")
If Target = Range("F3") Then
Range("F3").GoalSeek Goal:=Range("F7"), ChangingCell:=Ran
浏览 0提问于2016-02-06得票数 0
我正在尝试在Office 365中编写一个VBA代码来寻找目标。我已经使用目标搜索公式记录了单个单元格的代码。如何使其在特定范围内可用？ Sub ddpdio()
'
' ddpdio Macro
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("J6").GoalSeek Goal:=5.5, ChangingCell:=Range("H
浏览 70提问于2019-09-03得票数 0
回答已采纳
1回答
使用VBA中的goalseek来查找期末考试中获得A所需的分数。当前使用：
Function AFinalGrade(SetExamLocation As Range, SetGradeLocation As Range)
ExamLocation = SetExamLocation.Address
GradeLocation = SetGradeLocation.Address
AFinalGrade = Range(GradeLocation).GoalSeek Goal:=.9, ChangingCell=:Range(ExamLocation))
End Fun
浏览 2提问于2020-02-20得票数 0
我已经努力了一段时间，试图在VBA中实现一个目标搜索函数，但没有任何结果，这就是为什么我转向你们。
我有一个双精度值的变体，其中最后一个元素只是一个临时设置值，必须进行更改(就像在goalseek中一样)，以便整个数组的和等于1。当然，这正是您在工作表中要做的事情，但我在VBA中需要它，不处理任何单元格……
有没有一种方法可以在VBA中调用Goalseek函数，而不必使用工作表(或单元格)，而只使用变量？
谢谢，尼克拉斯
浏览 2提问于2013-07-24得票数 1
1回答
当工作表中的任何单元格发生更改时，我希望跨多行应用goal seek。我想把它从第7行应用到第11行。我遇到的第一个问题是，每次我运行它时，excel都会崩溃。我刚刚开始学习VBA，所以任何帮助都是非常感谢的。谢谢!
我的代码如下：
Option Explicit
Private Sub Worksheet_Calculate()
CheckGoalSeek
End Sub
Private Sub CheckGoalSeek()
Range("T7").GoalSeek Goal:=0, ChangingCell:=Range("V7")
End Sub
浏览 4提问于2013-04-26得票数 0
回答已采纳
2回答
我从某人那里得到了下面的脚本，然后对它进行了修改，以便与我的工作簿一起工作。本质上所发生的是，GoalSeek功能被应用于M和E列。
因此，我将M列设置为0.3，然后计算E列中相应的值。目前，第一行数据从第7行开始，最后在第33行结束。然而，我使用这个来计算金融交易，有时我有更多的交易可以适合在第7行到第33行，例如，我可能有7行到60行。
如何修改VBA代码，以便它将GoalSeek应用到数据的最后一行(所以不是工作表的最后一行为空)？
这将避免每次我的交易分析超出第33行时手动编辑VBA的需要。例如，Excel如何‘识别’我的数据以第60行结尾，并自动将其合并到VBA中？
Public S
浏览 1提问于2018-05-10得票数 1
1回答
我正在尝试在excel中插入一个消息框，它是我为某些计算所做的宏的一部分。嗯，我的宏执行GoalSeek函数，最后我希望它在消息框中显示计算值。出现这个问题是因为当宏进行计算并显示结果是excel工作表中的百分比数字时，它的格式类似于0.8383854828321838，而我希望它格式化为百分比，就像在excel工作表中一样，如83,84%。可以在VBA MsgBox中格式化单元格值吗？！？！你能帮帮我吗？！
我在这里粘贴了来自vba的代码，让你看看它现在是什么样子。
Sub Anuitet()
range("O2").GoalSeek Goal:=0, Changin
浏览 5提问于2014-01-04得票数 0
我有一个多项式方程要解: L^3-4043L-60647=0，使用vba中的目标搜索。根据我的计算器，这个等式有3个根: L1=70.06，L2，-54.04和L3=-16.02。但我只希望我的excel单元格中的L显示第一个正根作为我的答案。
我已经尝试使用Do until和if语句。然而，Do until语句总是崩溃，If语句给了我错误的值。
Sub GoalSeek()
'GoalSeek Macro
Dim Length As Double
Dim i As Long
Range("Length") = i
If i > 0 Then
Ap
浏览 0提问于2019-05-31得票数 0
嗨，我是vba的新手，我整天都在寻找一种让它工作的方法。无论如何，我需要我的GoalSeek宏来影响列"EW“中的所有单元格，当"EX”中的相邻单元格>0时调整EP的值，如果"EX“中相邻单元格的值= 0，则将其留空或将值更改为0。列"EP“、"EW”和"EX“都会影响彼此的值。下面是我拼凑而成的代码。我收到编译错误: Block if without End if
谢谢你的帮助
Private Sub CommandButton1_Click()
Dim StartTime As Double
Dim MinutesElapse
浏览 0提问于2016-10-18得票数 0
一个简单的VBA函数。当我尝试在我的工作表中使用它时，无论我做什么，得到的结果都是“该名称无效”。我没主意了。
Sub FindABV(temperature)
With Worksheets("Sheet1")
.Range("C28").GoalSeek _
Goal:=temperature, _
ChangingCell:=.Range("B28")
End With
FindABV = .Range("B28").Value
End Sub
我已经尝试创建一个新的模块来放入它。没有变化。并且没有来
浏览 28提问于2015-05-14得票数 0
1回答
我是VBA方面的新手，在我的第一段代码中，我尝试为一个GoalSeek函数通过2列(P和J)进行循环。
集合单元依次为P2、P3、P4等，而变化单元为J2、J3等。
我想从第2行迭代到第N行(数字N存储在单元格D1中)
以下是我写的：
N = ThisWorkbook.Sheets("Reverse DCF").Range("D1").Value
Dim i As Integer
For i = 2 To N
Range(Cells((i), "P")).GoalSeek Goal:=0, ChangingCell:=Range(C
浏览 6提问于2016-01-20得票数 3
回答已采纳
可以在VBA中的数组元素上运行目标查找，而不是Excel工作表范围？
我有一个数组，该数组从excel输入表中获取初始值，进行许多计算，并将值打印回excel工作表上的报表区域；输出大约为200行x28列的计算值。我以前在每个单元格里都用公式来做这件事，但是它非常非常慢。我转换成一个全vba，它可以快速地完成计算，并将完成的值粘贴到excel的报表范围中。
问题是，我还需要在不同的单元格上运行目标搜索，Excel不能在一个只有值的单元上运行，它需要一个带有公式的单元格。和我的花哨，高效的阵列，我不能再寻找目标了！
是否有一种方法可以通过测试实际位于excel表上的输入值(如Range("
浏览 11提问于2017-02-19得票数 1
我正在编写一段代码，它进入不同的工作表，并对单词"Obj“和"Var”的行执行GoalSeek。完成第一个工作表后，代码移到第二个工作表，并提示error 1004。它说我对Do ... Loop函数的引用不再有效。为什么会这样？
Sub GoalSeek()
Dim FirstAddress As String
Dim SecondAddress As String
Dim Arr As Variant
Dim Rng As Range
Dim Rng2 As Range
Dim y As Long
Dim i As Long
Arr = Array("She
浏览 0提问于2017-02-17得票数 0
回答已采纳
1回答
我对VBA很陌生。我一直试着通过尝试和阅读论坛来学习，但我不知所措。
Sub Macro()
Dim i As Long
For i = 1 To 100
ActiveCell.Offset(1, 0).Select
ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3)
Next i
End Sub
这是我在论坛上或多或少发现的，它适用于一个随机数的列，这是很好的。但我需要它跳过空白细胞。或者，我需要它只将宏应用到可见的单元格(过滤时)。
我已经找到了这个问题的答
浏览 1提问于2016-04-12得票数 0
回答已采纳
嗨，我试图在VBA中构建一个目标搜索，使用一个来自命名单元格的值作为目标值。我使用了以下源代码，但它不起作用。你能帮帮我吗？
谢谢!
Worksheets("Assumptions & Results").Range("EIRRHybrid").GoalSeek Goal:=Worksheets("Assumptions & Results").Range("TargetEIRR").Value, ChangingCell:=Worksheets("Assumptions & Results"
浏览 2提问于2014-02-24得票数 0
2回答
我在这里抓稻草，所以任何帮助都是很好的。我不知道我在用VBA做什么)。
我试图通过创建目标查找宏来解决Excel中的循环引用问题--基本上
S3 = M + S2，
S3 = L * G。
我的目标是通过改变M来寻找与S3相等的L * G。
所以，我把
L * G in cell H32，
S3 in H18，
M in G18，
S2 in F18
到目前为止，这就是我收集到的。
Sub GoalSeek()
Dim x As Integer
x = Range("H32").Value
Range("H18
浏览 5提问于2013-08-09得票数 2
回答已采纳
2回答
我有一个目标--寻找宏观：
Sub GOALSEEK()
Range("K25").GOALSEEK Goal:=0, ChangingCell:=Range("K10")
End Sub
这适用于2015Q4，单元格K25为0%。
我想调整宏的移动目标和寻找变量。
移动目标将存储在C25中(0、0.0 1、0.0 5等)，移动搜索将依赖于C6 (Q2、Q3、Q4，分别映射到I25、J25、K25 )。
编辑
经过一些修改后，我发现移动目标可以通过将Goal:=0更改为Goal:=Range("Cell")来实现。
Sub GO
浏览 5提问于2015-04-02得票数 0
回答已采纳
Sub Goal Seek()
Dim i As Integer
Dim ResultQty As Integer
Dim ChangingCell As Integer
Dim TargetSales As Integer
For i = 4 To 18
TargetSales = Cells(i,7).value
Cells(i, 6).Formula = "(C" & i & "*" & "E" & i & "
浏览 2提问于2022-11-23得票数 0
每次单元格" E9“的值改变时，我都需要运行一个目标搜索，单元格E9= Rand()，有没有办法做到这一点？goalseek和单元格E9在不同的工作表上。我在网上找到的VBA脚本如下所示，它不起作用。一旦我点击F9，我的Excel就会不断地迭代，并给出"#NUM!“这里我漏掉了什么？我的目标是与单元格E9相关。单元70是E9的函数。
在Sheet1中，我有：
Private Sub Worksheet_Calculate()
Dim KeyCell As Range
Set KeyCell = Range("E9")
If Not Application
浏览 0提问于2016-07-13得票数 1
我有一个Excel工作簿计算器依赖于一些参数。我希望客户机能够将这些参数插入到每个电子表格上的适当“客户端输入”单元格中，这样他就不必在电子表格之间来回跳。
有什么好办法吗？我尝试了以下方案，但由于我不知道的原因，它是有问题的：
使VBA模块声明变量以保存我的参数
使用Workbook_Open事件的适当初始值初始化它们
使特定的工作表将这些值写入Worksheet_Activate事件上的“客户端输入”单元格
在Worksheet_Deactivate事件中，如果“客户端输入”单元格彼此不同，则更新VBA变量。
这有时起作用，但并非总是如此。有更好的方法吗？
编辑：
浏览 2提问于2015-07-30得票数 1
回答已采纳
我设定了一个目标，使用宏观计算销售价格的盈亏平衡，将目标利润设定为1000美元。我现在想知道我是否可以更改我的vba代码，如果我将设置的目标利润(目标值)从1000更改为200 (或任何数字)，它将更新盈亏平衡价格。
将单元格值更改为1000 c12 (我在goal seek选项卡中手动输入)
Sub FindBreakEven()
'
' FindBreakEven Macro
'
Range("E12").GoalSeek Goal:=1000, ChangingCell:=Range("B5")
End Sub
浏览 13提问于2016-09-25得票数 0
2回答
我不太熟悉VBA，所以下面的代码大多只是复制、粘贴和研究，就是找不到一种方法来多次使用Dim来对不同的列使用它。有没有什么我可以在"lastrow“前面添加一些东西来使它不同，而不会得到”编译错误:当前作用域中的重复声明“。
Dim lastrow As Long
lastrow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Dim pointer As Integer
pointer = 1
Do Until point
浏览 3提问于2019-12-16得票数 0
3回答
有人有这个算法的代码吗？任何基于C的编程语言都可以，但我更喜欢C#。
我可以尝试去实现但我肯定不是第一个.
编辑:这不是家庭作业，这是一个“给我机会”的问题:我只是不想重新发明轮子
浏览 17提问于2010-11-26得票数 7
回答已采纳
3回答
这是excel的VBA中的一个循环示例。
Sub Tests ()
Dim a As Integer
Dim b As Integer
b = 5
For a = 1 to b
MsgBox a
Next a
End Sub
当我在a中删除Next a时，脚本仍然正常运行。那么为什么我们要有Next a而不是Next呢？
浏览 3提问于2014-05-01得票数 1
回答已采纳
这是用户定义的函数，我在其中调用GoalSeek。
我将其放入模块中，但是它不能在给定的上下文中求解。
Function FindYield() As Double
Worksheets("Sheet1").Range("N8").GoalSeek _
Goal:=0, _
ChangingCell:=Worksheets("Sheet1").Range("N9")
End Function
相同的设置与Sub相同。
浏览 2提问于2015-03-14得票数 0
3回答
我想让Goalseek通过几个专栏("BB:BP")。目前，它仅以下列方式处理"BB“栏：
单元格"BB63“中的值更改时，单元格"BB62”中的值等于单元格"BB61“中的值。
这是代码：
Sub Goalseek()
With Worksheets("sheet_input")
.Range("bc62").GoalSeek _
Goal:=.Range("bc61").Value, _
ChangingCell:=.Range(
浏览 6提问于2015-10-13得票数 1
回答已采纳
我完全是VBA的新手--到目前为止，我所“编码”的一切都纯粹来自于记录宏函数。宏是有效的，但它非常笨拙。本质上，我试图做的是运行一个目标搜索函数，获取答案，并将其放入一个单元中。接下来，我将递增到下一个输入，并再次执行该过程(然后再执行38次)。下面是前两个增量：
Range("B11").Select
ActiveCell.FormulaR1C1 = "=R[-8]C[13]"
Range("C37:D37").Select
Range("C37").GoalSeek Goal:=0, ChangingC
浏览 21提问于2020-02-18得票数 1
回答已采纳
3回答
我试图通过用VBA更改Excel中的另一个单元格来运行目标搜索，将某个单元格设置为零。
我想设置为零的单元格改变了位置，所以我想我需要使用一个匹配偏移量组合。
当我运行代码时，我得到了一个编译错误，无效的限定符。有什么想法吗？
谢谢。
Private Sub CommandButton1_Click()
Dim x As Integer
x = Application.WorksheetFunction.match("G3", Range("I6:SF6"), 0).Value
Range("I199").Offset(0, x.Value)
浏览 0提问于2015-07-03得票数 0
背景，所以我需要优化每日销售不超过每日容量和不超过期末(EOP)总容量。所以我认为代码运行得很好，然后我意识到它所做的只是把每天的容量提高到0，直到我的EOP容量达到我的目标。所以它基本上是全部或没有，所以有时我的目标不会被击中。也就是说，你离EOP目标有150个单位，但是你每天的容量都是200+，所以它永远不会达到我想要的目标。(我应该提一下，销售额可能是负的)
那么，目标是追求我真正想要的吗？我可以设定一个范围(比如-10到10)的目标吗？
Sub cashPark()
Set enddate = Sheets("Cash").Range("E4"
浏览 2提问于2015-08-14得票数 1
回答已采纳
1回答
在工作中，我一直在使用这个快速求解器宏(使用Record创建)，但是最近这个快捷方式停止了运行。
当其他人意识到他们的个人宏的名称已经更改为显示在Excel宏列表中时，我看到了其他人修复了一个类似的问题，但我在这里没有看到这个问题。
如果我从developer选项卡中选择它，它运行良好，只是键盘不工作，这是非常令人恼火的。有人知道是什么导致了这一切吗？
我在Windows10上，使用MicrosoftOffice365 ProPlus (16.0.12527.21296 64位)
下面是作为文本的代码：
Sub Break_Solver ()
Keyboard Shortcut: Ctrl+
浏览 6提问于2021-07-13得票数 0
1回答
我不是VBA程序员。然而，我有一个“不愉快”的任务，那就是用另一种语言重新实现某人的VBA代码。VBA代码由75个模块组成，这些模块使用一个庞大的“计算表”来存储所有“全局变量”。因此，它通常不使用描述性变量名称，而是使用：
= Worksheets("bla").Cells(100, 75).Value
或
Worksheets("bla").Cells(100, 75).Value =
更糟糕的是，“计算表”中还包含了一些公式。
有没有什么(免费的)工具可以让你对这类代码进行逆向工程(例如创建Nassi-Shneiderman图、流程图)？谢谢。
浏览 1提问于2012-06-25得票数 4
回答已采纳
2回答
我尝试在excel中使用带有目标搜索的循环，但是不能工作，你能改正下面的代码吗？
Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Integer
i = 5
Do While Cells(i, 9) <> ""
Cells(i, 7).Value = Range("H5
浏览 0提问于2015-10-27得票数 0
我有一个如下设置的工作表：
$B$13 = the string "'TopCap'!$C$12"
$D$13 = the string "'TopCap'!$E$12"
工作表TopCap单元格$C$12中的单元格具有目标搜索所需的公式。TopCap!$E$12是变化的单元格所在的位置。
下面是我的代码：
Private Sub CommandButton1_Click()
Range("$B$13").GoalSeek _
goal:=Range("$C$13").Va
浏览 0提问于2016-03-23得票数 2
1回答
我正在尝试在多个工作表中使用goal seek来更新项目的销售回报率。所有的单元格都有公式，并且有一个单元格是我们硬编码的，以便与我们最初的销售回报率联系在一起。 下面是我正在使用的代码，非常简单。 由于某些原因，当我运行这个宏时，它没有给出我想要的销售回报率的期望值% Sheets("DEV INFAS WLKDN").Select
Range("F30").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("F30
浏览 20提问于2020-09-22得票数 0
我无法使我的代码在Excel VBA (office 365)中运行。 我想让这段代码在用户或代码更改任何单元格后运行： ` Sub Workbook_SC()
Dim var1 As Double
Application.EnableEvents = False
Worksheets("GSCells").Cells(5, 4).Value = 22
Worksheets("GSCells").Cells(5, 5).GoalSeek Goal:=0, ChangingCell:=Worksheets("GSCells").Cells
浏览 42提问于2019-09-14得票数 3
回答已采纳
1回答
这应该很简单，我就是想不通。
我有3列
A B C如果A中包含数据，我想在B和C上运行目标搜索
Range("B3").GoalSeek Goal:=0，ChangingCell:=Range("C3")
我想要类似这样的东西：
If CellA>0:
Range("D1").GoalSeek Goal:=0, ChangingCell:=Range("C1")
如果这有什么不同的话，可能会有大约7000行代码
浏览 1提问于2012-09-14得票数 0
回答已采纳
我要把头发扯出来。
当我在工作表中运行目标搜索时，一切都很好。当我试图运行完全相同的目标从vba (记录或手工编码)的目标寻求，我应该是目标寻找显示为0，并且变量不会改变。F9什么也不做。如果我编辑目标搜索单元格，强制它重新计算，它将再次显示原始输出--因为没有什么改变。
还有其他人遇到过这个吗？
Range("G14").GoalSeek Goal:=0, ChangingCell:=Range("F14")
G14是一个用户定义的公式，包含两个范围参数和两个单细胞参数。
F14是一个范围参数内的单元格，并且肯定是计算中的驱动程序。
浏览 4提问于2014-07-09得票数 1
回答已采纳
1回答
循环访问表
、、
我正在Access中创建一个数据库，其中将有许多具有相同的相似表，并且它们的名称都将按顺序命名，例如table_0、table_1……
我想知道是否有一种方法可以在VBA中进行循环，首先制作表格，然后修改表格，例如更容易地添加字段。
因此，如果我要制作这些表，这将是一个过程，但在VBA中
while(i=0, i<20,i++){
CREATE TABLE table_i(
field_1 int PRIMARY KEY,
field_2 CHAR(255));
}
浏览 3提问于2012-07-12得票数 1
回答已采纳
1回答
我正在尝试创建一个vba代码，该代码通过一列搜索相同的值，然后从B列返回最新的日期，例如：
column A B output C
-------------------------------------
102 12.01.2016 12.01.2016
102 17.10.2015
102 25.12.2015
105 30.03.2015
105 01.01.2016 01.01.2016
它应该在A列中
浏览 1提问于2016-01-14得票数 0
回答已采纳
1回答
我试图使用vba将这个表10x10转换为6x6。我需要考虑各种不同选择的可能性，这样“用户”就可以选择这6家公司中的任何一家，并将创建一个包含这些值的新表。
例如，如果我选择了C2,C4,C5,C6,C9,C10，那么我的新表将是
C2xC2
C2xC4
C2xC5
C2xC6
C2xC9
C2xC10
C3xC2..... and so on for 36 values
我还没有试过什么，也不知道从哪里开始。如能提供任何帮助，将不胜感激。
浏览 2提问于2022-11-18得票数 0
我正在尝试制作一个VBA，它可以读取HTML并检查是否选中了特定的复选框，并在单元格中写入选中或取消选中。但我有与VBA的困难，因为我不经常使用它，任何建议都将不胜感激。
HTML
<input id="foo1" type="checkbox" name="Device" value="iPad"
checked="checked">
VBA
Sub getValue()
Dim IE As Object: Set IE =
CreateObject("
浏览 1提问于2018-08-01得票数 0
云服务器
ICP备案
实时音视频
云直播
对象存储
腾讯云开发者
