Tag: while循环

VBA：退出时如果: 好吧，可能是一个简单的，但我只是开始使用这种语言，在这段代码： While DATA.Cells(1, i).value & "" <> "" If InStr(DATA.Cells(1, i).value, columnName) > 0 Then column = i Exit While End If i = i + 1 Wend 它看起来不是使用Exit While的方式？我应该怎么做呢？

VBA使用SelectSingleNode循环XML节点: 我正在尝试使用循环更新.xml文件中的节点值。显示的oXMlFile.SelectSingleNode行正确地更新了单个节点，但我不知道如何修改代码，以便可以遍历所有节点并更新值。任何帮助，将不胜感激。 Set oXMLFile = CreateObject("Microsoft.XMLDOM") oXMLFile.Load (ConfigFile) 'Update Node Attributes Dim ii, TotChan As String ii = 0 TotCh = 500 Do While (ii < TotCh – 1) Set CalibrationDateTimeNode=oXMLFile.SelectSingleNode("/HConfig/Signal[0]/CalibrationDateTime") CalibrationDateTimeNode.Text = "2016-04-16" ii = ii + 1 Loop

MATLAB：使用while循环在Excel中保存多个表: 我有下面的while循环，读取和分析图像，然后将结果保存在Excel表格中，保存在Excel工作表中。我最初做了一个单一的图像/表的代码，然后意识到我需要开发它的n个图像。我基本上希望结果被保存在同一个Excel工作表中，而不会覆盖，理想情况下这些表是由一个空行垂直分隔的。这是我现在的努力： while(1) … %code code code … message = sprintf('Do you want to save the results in an Excel worksheet?'); reply = questdlg(message,'Run Program?','OK','Cancel', 'OK'); if strcmpi(reply, 'Cancel') % User canceled so exit. return; end % Table creation. % code code code % Saving table to Excel T = table(Diameter,BandWidth,n1,n2,P1,P2,Damage,… 'RowNames',Band); filename […]

递增函数参数variables: 我正在尝试编写一个从Excel文件读取的脚本作为模板，然后根据从.txt文件读取的内容插入新的数据。我正在使用xlrd模块进行阅读。目前，我被困在脚本的阅读部分。我打算每次将colx和colx参数variables加1，以便在Excel文件中search每个单元格。但是，似乎Python的参数variables不能被修改？我的脚本增量修改外部variables。有没有办法实现逐个单元格的值search？ # Define variables switch1 = 1 count = 0 rowx = 0 colx = 0 # Loop while switch1 == 1 and count < totalCells: print "AAAA" cellValue = "Long string in here….." if sh.cell_value(rowx=0, colx=0) == cellValue: print "BBBB" switch1 = 0 rowx += 1 colx += […]

确定两个连续单元格是空白的: 下面的While循环意味着迭代一列，直到find两个连续的空白单元格。只要curCell为空，它将立即退出，忽略lastCell中的值。在debugging的时候，我已经validation了lastCell有一个值并且不是空的，但是循环仍然存在。我的和声明有什么问题？ While (lastCell <> "") And (curCell <> "") lastCell = curCell ActiveCell.Offset(1, 0).Select curCell = ActiveCell Wend

Python：testing单元格是否为空时为无限循环: 我是一个新的程序员，试图使工具更容易工作。这是我的代码和我从它得到的错误。我的问题是，在循环处理时，当用户input“空”，它不会停在最早的空单元格，但迭代到xlwt可以处理（65536）的行数的末尾。代码的构build目的只是处理一列。这是错误的： File "sentenceconverter.py", line 114, in <module> db1.write(i,0,new_cell) File "C:\Python27\lib\site-packages\xlwt\Worksheet.py", line 1030, in write self.row(r).write(c, label, style) File "C:\Python27\lib\site-packages\xlwt\Worksheet.py", line 1078, in row self.__rows[indx] = self.Row(indx, self) File "C:\Python27\lib\site-packages\xlwt\Row.py", line 42, in __init__ raise ValueError("row index (%r) not an int in range(65536)" % rowx) ValueError: row index (65536) not an int […]

VBA使用非空单元格和循环数组求和variables范围: 我正在处理一个大的数据重新格式化macros。我正在上传一张带有各种数据的表单，并将一个全新的工作簿变成一些发送给外部用户的东西。我已经非常接近“点击这个button来生成”，除了最后一部分。 F列有数字，也许重复，也许不是。如果列F有重复，我想它列G中相应的金额和最后（H，＃）输出。然后它需要去下一个数据，并在那里testing重复。它也将围绕它的边界，虽然这不是困难的部分。它应该testing从ws1.Range（“F5”）到ws1.Range（“F”＆lRow + 5），这已经在之前被识别了。因为它是从上传数据中提取的，所以这可能是识别终点的最简单的方法，尽pipelRow + 1将是一个空行。但是为了总结，下一行可能总是有数据，所以扫描空单元不会有帮助。 Excel表格的图像我试图做一个while语句，但我不知道如何做重复testing循环作为整个表的更大扫描的一部分。 Let i = 5 While i < lRow + 5 If ws1.Cells(i, 6) = ws1.Cells(i + 1, 6) Then Let CopyRange = ws1.Cells(i, 7) & ":" & ws1.Cells(i + 1, 7) Let PasteRange = ws1.Cells(i + 1, 8) ws1.Range(PasteRange).Formula […]

在没有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。

Excel VBA查找全部: 像往常一样，我已经浪费了几个小时在最后放弃和寻求帮助之前处理一个问题，所以任何帮助将不胜感激！我在我的数据的Sheet Test1上运行一个while循环，以便将数据复制到Sheet Test2中的参数匹配的特定行，但是我目前正在执行此操作的方式也是循环遍历Sheet 2的每一行数据的长度超过5万行，所以尽pipe我的方法对我的10行testing非常有效，但要花费数小时才能处理完整的数据。我想知道是否有人可以简化我的代码，理想情况下，它可以search匹配的行，而不是比较每个？我曾尝试使用Find但我不能让它与多个参数的工作。这是我当前的代码，我省略了设置参数设置以节省空间的部分，但是它们出现在我的工作表中： While row1 <= lastRow1 Param1 = Sheets("Test1").Cells.Range("A" & row1).Value Param2 = Sheets("Test1").Cells.Range("B" & row1).Value Param3 = Sheets("Test1").Cells.Range("D" & row1).Value Param4 = Sheets("Test1").Cells.Range("E" & row1).Value Param5 = Sheets("Test1").Cells.Range("F" & row1).Value Cell_to_copy = Sheets("Test1").Cells.Range("G" & row1).Value *****THIS IS THE BIT I WANT TO OPTIMISE************ For row2 = 2 To […]

VBA如何获取下一个单元格地址: 我正在编写一段代码来完成一个循环，我想要做的是将单元格地址J2存储在一个variables中，然后每次代码运行循环时，都要将它放到下一个单元格中，即J2会去J3然后J3去J4等等。这是我一分钟得到的，并尝试过： Index = 0 CurrentCell = Range("J2").Address Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) RowsCount = Application.CountA(Range("A3:A" & Rows.Count)) While Index < RowsCount CurrentCell = CurrentCell + 1 Recipients = CurrentCell + ";" Index = Index + 1 Wend 有人可以请帮忙。