Tag: 循环

在excel中退出嵌套循环: 我有一个循环macros我正在写下面的结构：本书中有两个工作表。原始数据（因此是endpointDatavariables）和G / L（总帐）表（因此是端点GLvariables）这个函数中有三个for循环：（1）第一个循环遍历原始数据文件中的每个logging。（2）第二个循环遍历REGEXP （正则expression式search）和（3）第三个循环遍历G / L并find相应的匹配，并将（使用： PUT_DATA_RANGE ）该数据放入适当的点。这是我得到的东西：伪代码： For i = 2 To endpointData If SOME_TEST = True Then Set MATCHES = REGEXP.EXECUTE() For Each myMatch In MATCHES For j = 1 To endpointGL If myMatch.value = SOME_CONDITION Then PUT_DATA_RANGE Exit For ElseIf myMatch.value <> SOME_CONDITION Then […]

如何在VBA中结束一个while while循环: 我想知道我的代码有什么问题，因为我无法在Microsoft Excel VBA中结束我的while循环。如果下一行是空白，我希望结束这个while while循环。 Do While Cells(RowName, 1) <> "" Name = Cells(RowName, ColumnName) MsgBox Name RowName = RowName + 1 Loop 请赐教，因为我还是个初学者。 MsgBox保持popup状态，即使空白也不会结束。

如果表中的值满足条件，VBAmacros将从表中复制行: 我试图做一个macros：经过一张桌子看看该表的B列中的值是否具有一定的值如果有，则将该行复制到另一个工作表中的范围结果类似于筛选表，但我想避免隐藏任何行我有点新vba，真的不知道从哪里开始，任何帮助非常感谢。

如果单元格A为空，则清除列B到F的内容: 我有一个工作表，其值取决于单元格A.如果A列中的一行包含一个值，那么列B到H中的单元格将相应地更改。如果列A的单元格为空，则要重置列D至F中的单元格。我写下了下面的VBA代码 Private Sub Worksheet_Change(ByVal Target As Range) Dim n As Integer For n = 5 To 75 Application.EnableEvents = False If VarType(Cells(n, 1)) = vbEmpty Then Cells(n, 4).ClearContents Cells(n, 5).ClearContents Cells(n, 6).ClearContents Application.EnableEvents = True End If Next n End Sub “FOR”循环令人讨厌，并且在任何进入任何单元格之后让Excel暂停1秒或更长时间，任何人都可以帮助我纠正上面的代码，以便在没有“FOR”循环的情况下执行我所需的操作。

如何根据类别组内的统计数据评估一个条件？: 首先，我将展示一下我的数据和我到目前为止的代码的一个简单例子，所以解释我的问题会更容易一些。考虑以下数据： ID Esp DBH Cod 55 E_grandis 9.00 55 E_grandis 9.71 7 55 E_grandis 10.00 55 E_grandis 1.00 7 55 E_grandis 7.00 7 55 E_grandis 1 我试图validation如果行与Cod = 7具有大于以下值： average of DBH – 1 * standard deviation of DBH. 在上面的例子中，DBH的平均值是7.34，标准偏差是3.73。因此，标记Cod 7时，DBH值不应大于3.61（7.34 – 3.73）。细胞D3和D6不通过标准，因为它们的DBH（C3和C6）大于3.61。在所有具有Cod 7的行中，只有C5小于3.61。我写下面的代码显示一个消息框，当这样的标准不符合： Sub Cod7() Dim msg As String […]

如何testing多个命令行参数（sys.argv: 我想在循环中重新testing多个命令行参数 > python Read_xls_files.py group1 group2 group3 没有这个代码只testing第一个（group1）。 hlo = [] for i in range(len(sh.col_values(8))): if sh.cell(i, 1).value == sys.argv[1]: hlo.append(sh.cell(i, 8).value) 我应该如何修改这一点，以便我可以对这些论据中的一个，两个或全部进行testing？所以，如果在一个sh.cell（i，1）中有group1，则附加列表，如果有group1，group2等，则附加hlo。

Excel中的逻辑运算符If循环: 所以这个工作： =IF(OR(D2="MEXICO",D2="TURKEY",D2="CHINA",D2="BRAZIL",D2="INDIA",D2="INDONESIA",D2="POLAND",D2="COLOMBIA",D2="ARGENTINA",D2="PHILIPPINES"),D2,"Others") 但是这不是 =IF(D2=OR("MEXICO","TURKEY","CHINA","BRAZIL","INDIA","INDONESIA","POLAND","COLOMBIA","ARGENTINA","PHILIPPINES"),D2,"Others") 有没有办法避免每一次写入D2 =？我正在查看是否可以在多个地方使用标准..说在另一张表我也有国家名称，但只是不在列“D”。

Excel VBA：通过单元格循环并将值复制到另一个工作簿: 我已经花了几个小时在这个问题上，但我没有find一个工作解决scheme的成功。这是我的问题描述：我想在一个工作簿中循环一定范围的单元格，并将值复制到另一个工作簿。根据第一个工作簿中的当前列，我将这些值复制到第二个工作簿中的其他工作表中。当我执行我的代码时，我总是得到runtime error 439: object does not support this method or property 。我的代码看起来或多或less是这样的： Sub trial() Dim Group As Range Dim Mat As Range Dim CurCell_1 As Range Dim CurCell_2 As Range Application.ScreenUpdating = False Set CurCell_1 = Range("B3") 'starting point in wb 1 For Each Group in Workbooks("My_WB_1").Worksheets("My_Sheet").Range("B4:P4") Set CurCell_2 […]

中断/中止一个VBA循环: 在Excel的VBA中，我有几千个单元格的循环，这需要几分钟的时间。是否有可能中止一个长期的循环（如果是这样，如何）/我可以build立一个button或类似的东西手动中断此循环？ build立一个button，并用macros覆盖它不是一个问题，只有代码本身。

VBA通过工作表的不需要的循环: 我已经使用了这个网站，但是这是我发布的第一个问题，希望我能给出足够的细节。我无法find任何相关的答案，因为不pipe我search什么，我都会得到与循环代码有关的各种答案。一些背景：我devise了一个Excel文档来跟踪我工作场所的一些项目（以下简称为“主文档”）。由于以前的跟踪器允许用户随时编辑任何内容，因此我使用了表单来确保所有信息都能正确input并存储。对于主文档中的每个项目，都有一个单独的Excel工作簿（以下简称项目文档）。主文档中有许多表单，它们每次被激活时都会运行代码（因为它们需要更新）。由于每个项目文档中都有一些VBA代码，这些代码对于与主文档同步数据至关重要，所以我添加了一个警告工作表，该项目文档在没有macros的情况下打开时显示。这涉及在保存事件之前和保存事件之后使用打开的工作簿，以确保只显示没有macros的警告。下面是每个事件的代码（显然，放在ThisWorkbook Module中） Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Auto_Open 'This is for sync (Master Document checks for text file to see if any changes have been made to Item Document) If booChange = True Then Dim oFile As Object Set oFile = fso.CreateTextFile(strTextFile) SetAttr […]