Tag: 循环

如何与其他人在一起: 所以我在这里有这段代码： While day = "M" Call Schedule(i) Wend While day = "T" Call Schedule(i) Wend While day = "W" Call Schedule(i) Wend While day = "R" Call Schedule(i) Wend While day = "F" Call Schedule(i) Wend 有没有更简单的方法来编写所有这些while语句。澄清事情，我有一个表格，有2000行与信息有关的课程，我希望代码阅读的日子顺序wekk：星期一，星期二，星期三，星期四，星期五，我怎么能这样做在这里。提前致谢

循环行直到空白: 我有下面的代码，执行以下操作。它在列A中find文本“EE Only”并logging行号。然后在logging的行号中添加四个矩形，其中三个矩形在下面的三行中。然后格式化没有填充和黑色边框的矩形。我有昏暗的c整数和c = 2。然后，我用它作为列。到目前为止，所有事情都应该如此。我遇到的问题是，我需要在第3行中的B之后的每列都增加一个列号。换句话说，第一组形状将总是在列B中。之后，如果在C3中有东西，那么我需要将列数加1，并将形状添加到列C.如果D3中有东西，则将c增加1并添加形状到D列等等。第一次行3是空白的循环将停止。我已经尝试了几个不同的东西，我完全丧失了。我遇到的另一个问题是，如果我运行c = 2的代码的形状格式正确。如果我然后离开这些形状，然后手动更改为c = 3并再次运行代码，则新的形状集具有蓝色填充。再次，尝试了一切我能find，没有任何工作。 Sub AddShapes() Const TextToFind As String = "EE Only" Dim ws As Worksheet Dim RowNum As Range Dim SSLeft As Double Dim SSTop As Double Dim SS As Range Set ws = ActiveSheet Dim c […]

VBA：循环通过Excel筛选器中的条件？: 我一直想弄明白这一点。有没有办法在Excel中的列filter中循环条件，而使用条件的名称填充数组？看来过滤对象只有一个criteria1和criteria2。对不起，如果我的术语不清楚，我很新的Excel。（这是使用Excel 2007）

Excel / VBA – 遍历范围: 我有以下代码： TotalCount = Application.Sum(Worksheets("Data").Range("B14:G14")) Sheets("Data").Range("H14") = TotalCount TotalCount = Application.Sum(Worksheets("Data").Range("B13:G13")) Sheets("Data").Range("H13") = TotalCount TotalCount = Application.Sum(Worksheets("Data").Range("B12:G12")) Sheets("Data").Range("H12") = TotalCount TotalCount = Application.Sum(Worksheets("Data").Range("B11:G11")) Sheets("Data").Range("H11") = TotalCount 正如你所看到的…这不是很有效。问题是，我无法find一个循环的解决scheme，使其更好。当我尝试创build一个循环，我要么得到的结果，我不期望或它不工作。我正处于需要帮助的地步…帮助！并提前谢谢你。

另一种方式，而不是直到循环，使代码执行更快: 我需要帮助如何使我的代码更快地执行。我有一个非常大量的数据，我的“ Do Until loop ”导致执行缓慢。我想知道是否有办法让我的代码运行得更快。我只用了，直到循环，因为我很舒服。谢谢 Dim WB1 As Workbook Dim ws1 As Worksheet Dim last As Long Dim i As Integer Dim x As String, y As String Set WB1 = ThisWorkbook Set ws1 = WB1.Worksheets("Source") last = ws1.Cells(Rows.Count, "X").End(xlUp).Row i = 2 Do Until Sheets("Source").Cells(i, 1) = "" x = […]

单一For Statement下的多个期间: 我看着运行一个For循环的行数和列数，但是我跳过一些列。所以ATM我的代码类似于这个，但是这是行不通的。我怎么能expression这个列的范围，同时也不包括我不需要的列。 For irow = DateStart To DateEnd For icolumn = 32 To 40 For icolumn = 43 To 58 For icolumn = 60 To 61 For icolumn = 63 To 67 提前致谢 Sub Button16_Click() Dim wb As Workbook Dim ws As Worksheet Dim Drill As String Dim postRow As Integer Dim irow As […]

带有循环VBA的multidimensional array: 尝试检查第一列的值（即multidimensional array中的列），如果它匹配与该行匹配的值的另一列。我认为我做错了，但这是我第一次搞乱multidimensional array。我是否需要在每个循环中使用UBound和LBound来告诉它要查看哪个colum？除了仅仅是当前问题的答案/解决scheme之外，我对于学习将来使用这种方法的最佳实践方法感兴趣。码： Private Sub ThisStuff() Dim CoaAmt As Long Dim COAArray(3, 2) Dim ThisValue As String Dim AnotherValue As String AnotherValue = "Bananas" ThisValue = "Apples" COAArray(0, 0) = "Apples" COAArray(1, 0) = "Oranges" COAArray(2, 0) = "Peaches" COAArray(3, 0) = "Pomegranets" COAArray(0, 1) = 498 COAArray(0, 1) = 505 […]

试图操纵数据（VBA）后Excel循环挂起: 我已经在VBA中编写了一个简单的嵌套for循环，循环通过我的工作表中的logging，如果它发现一些基于条件的值，复制当前工作表中的值。 NumRows和NumRowSTGSales的值分别是4000和8000。当我运行代码时，Excel只是挂起 Dim curRowNo As Long curRowNo = 2 NumRowSTGSales = Worksheets("Worksheet1").UsedRange.Rows.Count ' Set numrows = number of rows of data. NumRows = Worksheets("Worksheet2").UsedRange.Rows.Count ' Select cell a1. ' Looping through GL accounts 'Looping through items in GL accounts For y = 2 To NumRows 'Looping through customer code found in sales data For […]

Excel VBA：是否有可能获得循环中的每个单元格的地址，并将其用于循环外: 我想通过工作簿的一些工作表来写一个循环，以获得每个工作表中的一个特定单元格的地址。我的目的是获取这些单元格的地址，并将它们用作循环引用。我写了一个代码，但它不工作，我想要的： Sub RegionalAverage() For i = 1 To 2 Sheets(i).Activate Range("A1").Select Selection.AutoFilter ActiveSheet.Range("A1:H23393").AutoFilter Field:=6, Criteria1:=1 Columns("A:H").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Find(What:="1/1/2008", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Select ActiveCell.Offset(0, 4).Select Name (i) = "'" & Selection.Parent.name & "'" & "!" & Selection.Address(External:=False) Next i MsgBox Name(1) MsgBox Name(2) End Sub

新的VBA运行时错误6，脚本停在空白单元而不是循环: 最近开始与VBA合作。 Youtube和这个论坛迄今为止都非常出色。但是，我的问题是这样的： Private Sub CommandButton1_Click() Dim i As Integer i = 1 Do While Sheet2.Cells(i, 1).Value <> 0 Sheet3.Cells(i, 1).Value = Sheet2.Cells(i, 1) i = i + 1 Loop Do While Sheet2.Cells(i, 10).Value <> 0 Sheet3.Cells(i, 4).Value = Sheet2.Cells(i, 10) i = i – 1 Loop Do While Sheet2.Cells(i, 6).Value <> 2 Sheet3.Cells(i, 3).Value […]