Tag: for loop

For …使用Not（）运算符时，下一个循环会中断: 我正在运行for … next循环来检查数据集中的条目是否满足特定条件（在本例中为IsNA）。然而，改变这个循环中的if-then-else条件来检查一个条件是否被满足，似乎会中断for / next循环。即使sub的元素没有改变，我也会收到Next for For error。我为什么认为在for循环中没有下一个代码没有改变的时候我迷失了方向。 – 原创工作守则 – Option Explicit Dim i As Double Dim a As Range Public ssht As Worksheet Public susht As Worksheet Public mdsht As Worksheet Public LastRow As Long Dim testcell As Long Public Sub MissingDataSetCopy() 'Part Bii 'Find rows with NA error Application.ScreenUpdating […]

为什么这个for循环不使用Apache POI迭代通过行？ Java的: 我有一个for循环内的另一个循环，第一个循环设置行，第二个循环读取通过4个单元格，第一次循环运行它效果很好，但之后，即时通讯猜测其不变行，因为它只是重复结果第一个循环，但没有显示单元格的值，这里是代码： for(int k=1; k<=2; k++){ XSSFRow row1 = worksheet.getRow(e); System.out.println("Row: "+e); e++; for(int i=0;i<Oleo18_1.size();i++){ XSSFCell c = row1.getCell((short) d); if (c == null || c.getCellType() == Cell.CELL_TYPE_BLANK) { Oleo18_1.set(i, false); } else { Oleo18_1.set(i, true); c.setCellType(Cell.CELL_TYPE_STRING); } if(Oleo18_1.get(i) == true){ values_18_1.set(i, 9.09090909); } String a1Val = c.getStringCellValue(); System.out.println("valor ponderacion"+(d+1)+": "+values_18_1.get(i)); System.out.println("valor celda "+(d+1)+": "+a1Val); d++; […]

如果行包含指定的值，则将ID复制到第一列: 如果一行包含值“车”我试图将ID单元格的内容复制到A1。例如，如果行D12包含“car”，我想将单元格B12的内容复制到A12。目前这是我的代码： Dim lastRow As Long Dim cell As Range lastRow = Range("A" & Rows.Count).End(xlUp).Row + 1 For Each cell In Range("D2:D" & lastRow) If InStr(1, cell.Value, "CAR") <> 0 Then cell.Offset(0, -3).Value = "test" End If Next 所以目前的代码find的行有“汽车”，但填充单元格的值“testing”。我正在努力如何引用/复制单元格。这是因为我的工作表的第一列需要连接值作为ID，我不想将其应用于此string。感谢您的任何build议/帮助！

'对于下一个'循环重置计数器在达到'ubound'之前导致无限循环…可能的名称/参考冲突？: 我正在开发一个数千行的程序，收集/生成一堆数据文件，所有格式都不相同，然后收集（制表）一部分数据并进行一些分析。该计划几星期前工作正常。现在，尽pipe没有触及它，但是连续两次的testing运行和两个逐步debugging会话已经无限地降落到了i = lbound（…）到ubound（…）…. next i循环中。相关代码转载如下。显示的函数只是简单地通过二维数组（通过将范围赋值给一个变体创build）循环到类似于一维数组的string中。导致错误的范围是238×33。然而，“行”索引“我”达到44，然后重置为0，而不是增加到45及以上。而且，当发生这种情况时，被反对的string从“* example *”跳转到“** example **”，每当“i”计数器重置为0时，星号的数量逐渐增加。我最好的猜测是有一些名称/参考冲突。但是，为什么现在才出现，并且说出来，似乎有点超出我的意思。 function定义： Function arrayFirstLike(ByRef dataArr As Variant, ByVal fieldArr As Variant, _ Optional ByVal byRows As Boolean = True, Optional ByVal exactSearch As Boolean = False) As Variant 呼叫线路： Set infowb = addSaveTemplate(rootPath & templatesPath & "\yFcstIndexInfo", rootPath […]

VBA：在for循环中设置一个对象，对象卡在第一个值上: 我有一些代码从一个单元格获取文件path并读取目录中的文件夹列表。我想要它在一个循环中做两个单元格（在我的情况下B8和B9）。目前代码正在查看第一个文件path两次，而不是两个path一次。代码中的部分我认为是造成我的问题在这里： Dim objFSO As Object Dim objFolder As Object For k = 8 to 9 Set objFSO = CreateObject("Scripting.FileSystemObject") MsgBox k Set objFolder = objFSO.GetFolder(Range("B" & k).Value) MsgBox objFolder 'do the bit of code that reads the files Next 第一个消息框按预期方式返回8或更高版本9，但MsgBox objFolder停留在B8.value上。我觉得我需要通过将objFolder设置为null或类似来清除objFolder，但是尝试了一些这种变化，但没有成功。更新提供更多的代码，以防万一我不知不觉地做了一些我不应该做的事情：整个事情读取文件path，在path中find一个特定的文本文件，解压缩，然后将文本文件导入到两个选项卡。 Sub Example1() Dim objFSO As Object Dim objFolder […]

在满足条件时创build单元格后命名的新文本文件: 到目前为止，我看了一下，发现了一些帮助，但是我正在努力为这个Excelmacros创build每个逻辑。基本上我有4列的数据。列A具有某种东西的名称，列D具有TRUE或FALSE。我想要一个macros连接到一个button，在一个给定的目录中创build一个新的文本文件，该目录以列A的内容命名，但是只有该列中的列D被标记为“TRUE”。例如，如果我有以下。 ColA =testingColD = TRUE ColA = Test2 ColD = FALSE ColA = Test3 ColD = TRUE 我将得到两个文本文件主题Test.txt和Test3.txt。我知道我需要每个循环来查看a1-d的范围（无论数字），然后当D = True做一个SaveAs我猜？这是我迄今为止的代码（是的，我知道这是非常不完整的，但是就我的逻辑而言，它是在打墙之前得到的）。 Dim fileName As String Dim filePath As String Dim curCell As Object Dim hideRange As Range filePath = "C:\ExcelTest\" hideRange = Range("D1:D1048576") fileName = *Content of Cell A from […]

问题循环/variables通过HTML表格元素: 我正在处理这个项目，其中涉及从Excel工作表中的URL列表跟踪个别货件的订单状态。目前，代码能够循环遍历URL并从中提取信息，但是当我尝试将exception和variables添加到每个不同URL的循环中时，出现types不匹配的情况。目前，为了从HTMLCollection / Table中提取HTML信息，我需要3个variables。我想在这里做的是：循环访问每个URL（在IE中插入URL并继续前进，而无需打开新的标签）从HTML元素获取每个URL的项目状态联邦快递：交付（td class =“status”） UPS：交付（id =“tt_spStatus”） USPS：抵达USPS设施（class =“info-text first”）我的代码： Sub TrackingDeliveryStatusUpdate() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = True Dim rngURL As Range Dim wb1 As Workbook, ws1 As Worksheet, ws2 As Worksheet Dim MyURL As String Dim Rows As Long, links As Variant, IE As […]

如何将matrix数据转换为列？: 我有100 x 101数据。我想将它们串行转换，例如对于第一行所有列数据，然后对于第二行所有列数据等等。这意味着结果将只有三列。第一列是行号，第二列是列号，第三列是相应行和列的值。你能帮我做这个转换在MATLAB中。可用的数据是ASCII格式，可以在MATLAB和Excel中打开。

在使用java，Apache POI的每3列之后，在Excel中创build列标题: 我试图创build一个Excel表，其中我得到一个ArrayList的所有标题值，并循环它打印每3个单元格后的标题。这是我的代码。 for (int x = 4; x < projectLocationList.size(); x++) { columnHeaderCell = regionList.createCell(x+3); columnHeaderCell.setCellValue(projectLocationList.get(x-3)); columnHeaderCell.setCellStyle(columnHeaderStyle); } 对于x=4因为我必须从第7格打印列。我面临的问题是我只得到最后三个值。请帮我解决这个循环。谢谢。

如何从第3行开始select整个列 – vba: 嘿这里是我的代码，它正在工作，而不是select整个列，我想select第3行后的所有列buter，例如我想select所有的列b，但在B3后，我希望是有道理的。有任何想法吗？ Sub HorizontalLoop() Dim lCol As Long Sheets("output").Select For lCol = 1 To 100 Dim inputrange As String If Not IsEmpty(Cells(lCol).Value) Then inputrange = Cells(1, lCol).Value Cells(1, lCol).EntireColumn.Select Selection.Copy Sheets("input").Select ActiveSheet.range(inputrange).Select ActiveSheet.Paste Sheets("output").Select End If Next lCol End Sub 任何帮助将非常感激:)谢谢H