Tag: for循环

Excel VBA – For循环。find具有值的单元格

我正在努力编写一个有效的macros，它将find列中出现错误的单元格，然后用第一个非空单元格的值replace该单元格，并在其下面没有错误（可能会有连续的错误单元格），然后循环12列。 下面的代码replace了所有12列中的每个错误单元格，但不是一致的方式：一些单元格将确实由包含数字的下一个单元格填充，但是一些单元格的值将是第二个包含一个数字的单元格。 我不知道我的代码中的问题在哪里。 Option Explicit Sub ClearError() ThisWorkbook.Sheets("WorkSheet1").Activate Dim c, x, z As Integer Dim y As Long For z = 3 To 14 Step 1 ' Start with column 'C' and do for total of 12 columns x = 999 For c = 1 To x Step 1 If IsError(Cells(c, z)) Then Cells(c, z) […]

显示错误消息并恢复循环

我创build了一个VBAmacros代码来生成不同的收件人，主题，邮件内容，附件等使用各种标准的电子邮件… 代码工作正常，除了附件有问题时。 当macros未能在给定位置find相关文件时，它会popup一个消息，但不会进一步处理循环。 我的问题是，如果有人可以请看看“下一步”和“退出子”应该放在哪里，以便不停止代码循环，生成“错误popup窗口”和“电子邮件草稿”。 提前致谢… 请find下面的代码… Sub Email_Creation_Tool() On Error GoTo ErrMsg Dim wbk As Workbook Dim OutApp As Object Dim OutMail As Object, signature As String Dim i As Range, j As Long Dim objItem As Object With ActiveSheet Set i = Range("A2", Range("A2").End(xlDown)) For j = 1 To i.Rows.Count Set OutApp = CreateObject("Outlook.Application") […]

C＃如何改善循环填充Excel单元格

我主要是从一个文本文件parsing大量的文本，然后将其填充到一个Excel中。 //populate into worksheet for (int x = 0; x < rawLine.Length; x++) { string[] tempLine = rawLine[x].Split(';'); for (int y = 0; y < tempLine.Length; y++) { DateTime hour = Convert.ToDateTime(tempLine[6]); xlWorkSheet.Cells[y + 2, 1] = tempLine[0]; xlWorkSheet.Cells[y + 2, 2] = tempLine[1]; xlWorkSheet.Cells[y + 2, 3] = tempLine[2]; xlWorkSheet.Cells[y + 2, 4] = […]

命名Excel工作表使用数组C＃

我试图命名创build一个新的Excel工作表，并有variables名称来自一个数组。 码… Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application(); Microsoft.Office.Interop.Excel.Worksheet newWorksheet; string[] Numbers = new string[12] { "1","2","3","4","5","6","7","8","9","10","11","12"}; string[] Months = new string[12] { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}; for (int i = 0; i < Months.Length; i++) { newWorksheet = (Microsoft.Office.Interop.Excel.Worksheet)xlApp.Worksheets.Add(); Microsoft.Office.Interop.Excel.Worksheet Numbers[i] = (Worksheet)xlApp.Worksheets["Sheet" + i]; Numbers[i].Name = […]

如何根据另一个单元格的值在单元格中发布自定义方程？

我似乎无法弄清楚为什么我的代码将无法正常工作。 我正在尝试插入一个公式，该公式将成本乘以通货膨胀系数，这取决于input的评级。 For循环遍历同一列（5）中的7行数据，获取评分，并根据此评分指定一个自定义公式。 当我一步一步地通过代码，这些值都是正确的，我可以在消息框中输出正确的方程。 不知道为什么我不能把它发布到单元格，虽然…我认为这与我使用Range(Cells(j, 4))而不是类似Range("D15")的事实有关 请注意，我通过Inflation5命名了一些单元Inflation5 。 例如：如果在单元格E4中评分为2，则代码应该在公式D15粘贴formula =Inflation2*D4 。 代码如下： Sub InflationFactor() Dim CurrentRow As Long CurrentRow = 4 Dim Rating As Long Dim j As Long j = 15 For i = CurrentRow To CurrentRow + 6 Rating = Cells(i, 5).Value Sheet1.Range(Cells(j, 4)).Formula = "=Inflation" + Str(Rating) + "*D" + Str(i) i […]

macros将循环通过一个范围来填充相邻单元格的坐标值

我正在帮助修改相机校准实验室的Excel电子表格。 原来的校准实验室只有一个工作站，有14个固定目标，允许目标的X, Y, & Z坐标被硬编码成电子表格。 新的实验室有90多个目标，可能有多个站点。 我想制作一个macros允许用户简单地将目标编号插入一个单元格区域，当macros运行时，与第一列相邻的三列（范围）将填充每个目标对应的坐标。 最好将坐标存储在另一个工作表中，按目标编号sorting， X, Y, & Z坐标位于单元格右侧。 我在想代码会是这样的; Define range of target numbers for each cell in range, If cell(2,4) = 1 then ' 1 is the target number cell(2,5) = cell(1,2) ' from another worksheet x value cell(2,6) = cell(1,3) ' Y value cell(2,7) = cell(1,4) ' Z value […]

创build一个循环来select最接近参数的选项

目前我正试图找出如何做一个循环，将search最接近参数的多个选项。 在阀门下面的图像中，B列显示了它们的大小，C栏。此信息在Sheet2中列出。 在Sheet1上，根据特定速度的限制C3进行select。 如果当前所选阀门的速度太快，Sheet1 A3太高。 然后，用户需要在Sheet1 A1的下拉列表中select一个不同的阀门，直到A3的值低于C3的值。 看下面的图片。 我想要创build的是一个循环，它将search速度为A3的阀门刚刚低于极限。 所以第一个值是<C3。 代码必须在单元格A1中显示哪个阀门是最好的select。 这是我到目前为止的代码，但我不知道如何继续这个工作。 Sub Selectvalve() Dim x As Integer Dim y As Integer x = Worksheets("Sheet1").Range("A3").Value y = Worksheets("Sheet1").Range("C3").Value For Each cell In Worksheet("Sheet2").Range("C1:C9") If x < y Then Else End If Next cell End Sub 附加信息：工作表1： A1有单元名称：“Valve_size” A2包含公式：'= VLOOKUP（Valve_size; Sheet2！$ B $ 1：$ C $ […]

VBA循环通过文本框，并插入不同的行上的每个框

我有很多这种forms 编码到我想要的，但我在最重要的部分有困难。 如图所示，具有30个文本框的窗体中的框架被devise为具有input的名字。 每个盒子都有不同的名字。 当我点击“保存数据”button时，我希望文本框中的名字被input到工作表中的下一个可用行，也在图像中。 所以，如果表单在前三个框中包含Bob，Joe和Jane，我希望工作表中的行A：2-4分别填充每个名称。

在selenium webdriver中从excel中获取多个值

我是Selenium的新手，想重复多次select。 我有一个Web应用程序，我应该多次重复相同的操作，并做到这一点，我通过从Excel作为input值。 我已经写了一个for loop ，它首先获得行计数，然后使用，直到我们已经完成所有的行选项 for(int i=0;i<row.getLastCellNum();i++) { String data12 = sheet2.getRow(i).getCell(0).getStringCellValue(); driver.findElement(By.id("summary")).sendKeys(data12); driver.findElement(By.id("clone-issue-submit")).click(); driver.manage().timeouts().implicitlyWait(70, TimeUnit.SECONDS); driver.findElement(By.id("opsbar-operations_more")).click(); JavascriptExecutor js = (JavascriptExecutor)driver; js.executeScript("window.scrollBy(0,250)", ""); driver.findElement(By.id("clone-issue")).click(); } 现在我的问题是：我在Excel中testing了两行或更多行的数据。 对于第一个执行，第一行被选中并执行，但不是第二行。 谁能帮我？

Excel VBA，循环

我很新的VBA，不能得到一个loop工作。 J列包含某些ID号码 。 对于每个ID号我有几行显示在我的数据库。 我sorting我的数据库J列（升序）。 我想筛选列J中的所有值，并将每个ID号码的所有行复制到一张新的表中，我想重命名为ID号 。 这里是macros，但loop不起作用（ Run-time error 13, Type mismatch, error in the following code row: For i = 45 To LastEmpNo ） 任何帮助将受到欢迎。 谢谢 Sub Macro3() Dim MyDataFirstCell Dim MyDataLastCell Dim EmpNoStart Dim EmpNoFinish Dim i As Integer Range("A1").Select MyDataFirstCell = ActiveCell.Address Selection.End(xlDown).Select Selection.End(xlToRight).Select MyDataLastCell = ActiveCell.Address Range("J2").Select EmpNoStart = ActiveCell.Address […]