Tag: for循环

如何停止每个循环: 我是VBA新手。我试图for each循环提供一个值，其中x=y的位置，但我一直在我的陈述(C10)中获得最后一个Y的位置。我希望有一个人可以帮助我。亲切的问候 Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Range("C1:C10") For Each x In Selection For Each y In CompareRange If x = y Then y.Select Application.CutCopyMode = False Selection.Copy x.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.PasteSpecial Paste:=xlPasteValues x.Offset(0, 3).Value = y.Address Next y x.Offset(0, 5).Select […]

循环在单张纸上工作正常，无法在工作簿中循环。: 我有一个工作簿几张，我试图检测C9：C200中的数字，并将它们复制到一个单元格三列以上 – 每个表格从7日开始。最外层的forloop中的代码在单张纸上工作正常，但是当我尝试通过其余纸张循环时，出现错误消息。我想我有两个问题：我不确定如何在工作簿中循环显示c9：c200范围内的工作表我想我需要告诉VBA重置评估，以便从头开始下一张表。我用这个方向正确吗？谢谢！ Sub MoveQtrLoop（） Dim CEL As Range Dim RNG As Range Dim I As Integer Dim WrkSht As Worksheet Dim WS_Count As Integer I = 0 WS_Count = ActiveWorkbook.Worksheets.Count For Each WrkSht In ActiveWorkbook.Worksheets I = I + 1 If 6 < I < WS_Count Then Set […]

Excel VBA：设置每个循环: 编辑：添加下面的原始数据的示例我每个月都会运行一次索赔报告，并将数据复制到一个标签中。所有的数据都组织成列，我一直在使用一个电子表格充满了SumProduct和CountIf的计数和组织数据根据不同的标准集，但它只是需要太长的时间来处理，所以我想写一个VBA子来完成这个更高效。其中一个数据栏是“调节器家庭办公室”。这一栏基本上是每个索赔起源的办事处清单。我使用AdvancedFilter来提取此列中的所有唯一值，并将它们复制到列A中的单独的选项卡。然后，在C列中的每个位置下，我有一个索赔types列表或“行项目”在每个办公室。我没有问题得到这部分设置。在D列中，我需要能够显示该指定地点的每个订单项的计数。这就是所有Countif和SumProduct都在我以前使用的旧模板中起作用的地方。这是我遇到困难的地方。我正在尝试使用For Each循环来计算第一个位置下方B列中的每个行项目，然后移动到A列中的下一个位置并重复。以下是我试过的代码： Private Sub CommandButton23_Click() Dim linerngs As Range Dim lineitem As Range Dim lastlinerow As Long Dim wsf Dim TabLastRow Dim claimstab As String Dim officesrange As Range Dim office As Range claimstab = Sheet2.Range("F2") & " Claims" TabLastRow = Sheets(claimstab).Cells(Sheets(claimstab).Rows.Count, "A").End(xlUp).Row Set […]

运行VBA for循环时出现未知的神秘错误: 我想使用下面的VBA子查找相应的第一列值为每个后续列的初始负值/最后正值，但是当我运行它立即给了我一个 “400” 错误。你们知道有什么可能的原因吗？ Sub findzero() For i = 225 To 335 For j = 19 To 10018 If Range(Cells(j, i)).Value < 0 Then Range(Cells(14, i)).Value = Range(Cells(j – 1, 1)).Value Exit For End If Next j Next i End Sub

在没有VBA的情况下创build类似Excel的“循环”: 我正在尝试构build一个在Excel中模拟“循环”的公式。电子表格将数据库中的数据转换为四个电子表格。如果find的值是＃N / A，则公式需要遍历表单，移动到下一个表单上。当前设置使用index(match())来查找表格中的值。为了在表单之间移动，我使用了choose()来驱动一个indirect()来切换到下一个表单，但我不知道如何模拟循环…问题似乎是我需要引用function回到自己，然后跳出循环。我想象的解决scheme会是这样的 =IFNA(CHOOSE( [the next number], INDEX(Sheet[the next number]!A1:Z500, MATCH(G1, Sheet[the next number]!A1:Z1), MATCH(A250, Sheet[the next number]!A1:A500) 该表不能使用VBA。

循环只循环一次，崩溃: 我试图做一个macros，其中VBA查找列中的特定单词，当它find单词时，它将整个行从一个工作簿复制到另一个。它可以find多于一次的单词，所以我试图让它循环，虽然它只在for循环中循环一次，然后停止。这是for。 Application.Workbooks.Open ("C:\Documents and Settings\1848052\Mis documentos\Portafolios\Vistas\Portafolio.xlsm") i = 9 For j = 8 To 1000 celda = Workbooks("Portafolio.xlsm").Sheets("FemCo").Range("B" & j).Value If celda = area Then Workbooks("Portafolio.xlsm").Sheets("FemCo").Range("B" & j).Select fila = ActiveCell.Row Windows("Portafolio.xlsm").Activate ' Copiar row Range("A" & fila & ":" & "V" & fila).Select Selection.Copy Windows("Vista RPAs.xlsm").Activate 'Pegar row Range("B" & i & […]

System.out.println（）如何在java中工作？: 在下面提到的代码中，我试图从Excel工作表中获取数据并将其存储在数组中。我已经写了代码来从我的ReadExcelData方法中的Excel文件中获取数据。现在，我面临的问题是我的主要方法，当我通过使用数组打印数据数据打印多次。我发现，因为我已经使用System.out.println（）里面的两个lop这就是为什么它被打印多次。为了解决这个问题，我删除了System.out.println（）（注释 – 在下面的代码中，粗体System.out.println（）是我从ReadExcelData方法中删除的），一旦我做了，我无法得到任何输出。请告诉我如何才能从ReadExcelData获取数据，而不打印它，因为我想在主要方法中打印数据。 package com.selenium; import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.IOException; import org.apache.poi.openxml4j.exceptions.InvalidFormatException; import org.apache.poi.ss.usermodel.*; @SuppressWarnings("unused") public class ReadExcelData { static String[] data = new String[15]; public String getData() throws InvalidFormatException, IOException{ String data="Initial"; File file = new File("C:\\Users\\Admin\\Desktop\\ScreenShot\\Excel.xls"); FileInputStream input = new FileInputStream(file); Workbook work = WorkbookFactory.create(input); […]

为什么我嵌套的for-if循环在嵌套时会加载很多？我能解决这个问题吗？: 对不起，如果问题有点模糊，但代码非常复杂，我希望你有正确的眼睛看到和理解它:) 我将显示2个sorting代码。代码只是读取Excel表格，并根据它包含的文本，将它们放在一个列表中。例如：我有一个excel表格： A1 = Peter D1 = hello A2 = Frank D2 = bye A3 = Jan D3 = hello A4 = Obama D4 = hello HELLO列表将包含：D1，D3，D4列表BYE将包含：D2 我第一次有这个代码来做它运行得非常快： List<string> ARowList = new List<string>(); List<string> DRowList = new List<string>(); List<string> HELLO = new List<string>(); List<string> BYE = new List<string>(); List<List<string>> AllMeetingsLists = new List<List<string>>(); […]

VBArecursion“For循环”排列？: 以下是我的代码。我想通过recursion方法达到相同的结果，因为嵌套循环的数量从2到最大8。 Sub permutation() c1 = Array(1, 2) c2 = Array(3, 4) c3 = Array(5, 6) c4 = Array(7, 8) c5 = Array(9, 10) c6 = Array(11, 12) c7 = Array(13, 14) c8 = Array(15, 16) With Sheets("Criteria") .Cells.Clear n = 1 For a = LBound(c1) To UBound(c1) For b = LBound(c2) To UBound(c2) For […]

从excel数据循环到每个键有多个值的字典: 我相当新的Python，我认为这个问题是相当容易，但我不明白… 我在Excel中有一个数据表，我有B列string和C到I列作为值。我想创build一个字典，其中为B列中的每个键值，我分配C到列的值我想出了如何做到每行，一次在一次，但我正在寻找for循环语法在整个excel数据表中做到这一点。这是我的代码： NYSE = {} NYSE.setdefault(sheet['B5'].value, []).append(sheet['C5'].value) NYSE.setdefault(sheet['B5'].value, []).append(sheet['D5'].value) NYSE.setdefault(sheet['B6'].value, []).append(sheet['C6'].value) NYSE.setdefault(sheet['B6'].value, []).append(sheet['D6'].value) print NYSE 我可以保持手动添加到此… B7 C7，B7 D7等，但必须有一种方法来循环此function，并输出字典。