Tag: for loop

隐藏空数据图表的标题行: 我有一系列显示Vlookups值的工作表。我创build了一个隐藏表中的所有空行，但我不确定如何隐藏标题行，如果它下面的所有行都隐藏。对于隐藏行函数，我使用颜色和四列中的值来确定是否使用具有行数的for循环隐藏行。行隐藏代码如图所示。 Public Sub RowHide() Application.ScreenUpdating = False 'variable declarations Dim ws As Worksheet 'column number ref. Dim r As Integer r = 6 Dim num As Integer 'To go through Each WS For Each ws In ActiveWorkbook.Worksheets Dim i As Integer Dim plusVar As Integer Let plusVar = 2 'To go through […]

尝试使用百分比作为值的数字: 您好，我正在尝试运行一个循环，将包含0％的所有单元格的值更改为值“N / A”。我写了下面的代码： Dim Fail As Integer Fail = "0%" ThisWorkbook.Sheets("Summary").Activate LastRow = Cells(Rows.Count, "G").End(xlUp).Row For X = 22 To LastRow If Range("G" & X).Value = Fail Then Range("G" & X).Value = "N/A" Next X 但是它所做的只是将G列中的所有值replace为“N / A”。我哪里做错了？

设置一个范围以使macros在工作表中的所有填充行上运行: 我拼凑了一个macros，让我通过计算基于开发人员的特定比率来计算故事任务的成本。我在第二张纸上有费率表。我能够得到一个macros设置为（第2行）的单元格的结果，但希望它在所有行上运行。我知道我必须设定一个通用的范围，但我不确定。我应该如何改变范围声明在所有行上运行？这里是代码： Sub GetCost() Range("D2").Select ' Set Do loop to stop when an empty cell is reached. Do Until IsEmpty(ActiveCell) Dim Estimate As Integer, Assignee As String, RodRate As Integer, GarthRate As Integer, DerekRate As Integer, TotalCost As Integer Estimate = ThisWorkbook.Worksheets("Sheet1").Range("D2").Value Assignee = ThisWorkbook.Worksheets("Sheet1").Range("E2").Value RodRate = ThisWorkbook.Worksheets("Sheet2").Range("B2").Value GarthRate = ThisWorkbook.Worksheets("Sheet2").Range("B3").Value […]

在VBA中取得一个范围的子: 我试图写一个Sub在VBA中需要一个Range ： Sub MarkCell(ByRef rng As Range, value As String) For Each C In Range.Cells If C = value Then aCell.Interior.ColorIndex = 3 End If Next C End Sub 但是我得到了一个“编译错误：参数不可选”在我的For语句。我错过了什么？

使用for循环来设置VBA中列宽的范围: 我想能够使用某种循环来设置在Excel表中的列宽，所以我不必input每一列我想改变的宽度。在这个图片的情况下，我希望所有的黑色列的宽度为0.92，绿色为0.83，橙色为7.29，我希望这些继续超过我在这里显示的设置范围。以下是我使用的通用代码，但正如我所说的，我不想input每一列来改变宽度。 sub Set_Column_Width Range("E:E, I:I, M:M, Q:Q, U:U, Y:Y, AC:AC, AG:AG, AK:AK, AO:AO, AS:AS, AT:AT, AX:AX").ColumnWidth = 0.92 Range("G:G,K:K,O:O,S:S").ColumnWidth = 0.83 Range("F:F, H:H, J:J, L:L").ColumnWidth = 7.29 End sub

VBA for-loop有三个variables: 我对VBA相当陌生，但我正在学习。我有一个工作表“模型”，有18个表。我用“开始”和“结束”来定义他们的范围。因此，您可以在下面的VBA中看到，第一个表格在C3：E13中，最后一个表格在C224：E234中。我想复制这些并在Sheet1中一一粘贴。在那里他们必须粘贴在单元格B5，B21，B38，…，B166。所以第一个表格应该粘贴在B5，第二个粘贴在B21等等所以我的问题是，我怎么能在我的for循环中创build这个variables“输出”（它定义输出rownumber）？ Dim start As Long Dim eind As Long Dim output As Long For start = 3 To 224 Step 13 end = start + 10 'output = —>>> this should be 5, 21, 38, …, 166. 'So something like output = 5 To 166 Step 16 Sheets("Model").Select […]

在一个循环（为）视觉基础EXCEL中的VLOOKUP: 我有以下问题我有一个VLOOKUP，我想在一个循环运行，但是当查找没有find一个相应的值，然后停止脚本。如果我使用error handling程序来处理错误，那么它将会跳转，并且也会暂停。 Sub Botón1_Haga_clic_en() Dim filas As Integer Dim desdefila As Integer filas = InputBox("Cuantas files tiene éste bloque de pagos?") desdefila = InputBox("Desde que fila empieza?") filasfinal = filas + desdefila For x = desdefila To filasfinal Dim Nombre As String Dim Rango As Range Set Rango = Sheets(6).Range("A:B") Nombre = Application.WorksheetFunction.VLookup(Range("A" & […]

在VBA中跳过空白单元的循环: 大家好，这是我第一次在这里问一个问题，这可能是最基本的，但这是我第一次编码macros。我正在做一个excel电子表格长长的数据值列表，并且需要删除一定金额以下的所有行，这部分我已经完美地工作了。但是我有空白单元格在同一行作为分隔不断被删除的分组的标题，我需要保持这些。有没有办法跳过for循环中的空白单元格。这是我的代码： Private Sub CommandButton1_Click() Dim LastRow As Long, n As Long For n = 1000 To 1 Step -1 If Cells(n, 9).Value < 1.01 Then Cells(n, 9).EntireRow.Delete Next n End Sub

对于每个循环需要指导: 这个想法是我想要评估在工作簿中的每个Ws给定的标准在VBA。如果符合标准，我希望它做一些事情。如果不符合，我想去下一个ws。我知道这是简单的东西。任何帮助将非常感激这是我迄今为止。 Sub dataconsol() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If ActiveSheet.Range("B9").Value = 1 Then Range("A1").Value = 2 ElseIf Range("b9").Value <> 1 Then End If Next Ws End Sub

“退出”不起作用: 在Excel VBA中进行反向循环，查找某个列中最后一个已填充的单元格。一旦find，它应该退出循环，但退出For不工作，并继续循环回来。有任何想法吗？ rewind: ' so we 're still "under", rollback to the right line While Not Range("I" & a).Value = getsum a = a – 1 On Error GoTo TryCatch If Not Range("E" & a).Value = "" Then Rows(a).Select currfield = Range("E" & a).Value runningstrsum = runningstrsum – currentstrsum 'we're switching streets ' […]