Tag: 循环

math方程在vba中: 我在表格“ Accrued Expenses ” Range("E7")上有math公式。公式是打算循环，直到列C中的lastrow两个关键页是“起始页”和“应计费用 ” 。问题是，我无法进入VBA代码。它使用Excelmacroslogging器，但它不会有效的维护。我的公式和代码如下。 =('Accrued Expenses'!C7*'Start page'!$F$5)/'Start page'!$F$13*'Accrued Expenses'!D7 在Excellogging器代码和循环中： Option Explicit Sub Calculating_Accruedexpense() Sheets("Accrued Expenses").Select Dim LastRow As Long LastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).row Range("E7").Select Do Until ActiveCell.row = LastRow + 1 If IsEmpty(ActiveCell) Then ActiveCell.FormulaR1C1 = _ "=('Accrued Expenses'!RC[-2]*'Start page'!R5C6)/'Start page'!R13C6*'Accrued Expenses'!RC[-1]" End […]

在列中将数字转换为date格式dd / mm / yyyy直到空单元格: 所以我有下面的代码工作的特定范围的单元格。但是我希望这个macros可以适用于不同的范围。我基本上需要通过每个单元的代码，直到它到达一个空的单元格。代码的第二部分我已经能够做到这一点，但改变前半部分是更棘手一些。谁能帮忙？ Sub OldestDateComplete() Sheets(1).Activate Dim l As String Dim testdate As String Dim ConvertDate As Date Dim k As Integer For k = 3 To 7 l = Sheets(1).Cells(k, 9).Value testdate = CStr(l) dotdate = False If InStr(testdate, ".") Then dotdate = True If dotdate = False Then ConvertDate = DateValue(CInt(Left(testdate, […]

如何遍历Excel列并查找产品名称中的更改？: 我有一个Excel工作表，列A有一个产品名称的列表。大多数产品有多种变化，例如： A1: LDP2-sm A2: LDP2-med A3: LDP2-lg A4: LDP3-sm A5: LDP3-med A6: LDP3-lg A7: LDP3-xlg 在这里， LDP2是3个变体的1个产品， LDP3是4个变体的1个产品我如何循环访问这个列表并find新变体的开始？在上面的例子中，我想findA1和A4 。然后，我想在每个上面插入一行。这是我到目前为止的代码： Dim rw As Long Dim lr As Long Dim cnt As Long lr = 500 rw = 2 cnt = 1 Do If Range("A" & cnt).Value = *FIRST VARIATION OF A […]

通过所有工作表循环macros: 我试图通过当前工作簿中的所有工作表来循环这个macros，它改变了一年的行的颜色，似乎无法弄清楚如何做到这一点。我试图从其他问题和答案一些东西一起，无济于事。任何帮助，将不胜感激。这里是代码： Sub ExpirationYeartoColors() Dim num As Integer, lr As Long, r As Long lr = Cells(Rows.Count, "A").End(xlUp).Row ActiveSheet.Select For r = 2 To lr Select Case Range("A" & r).Value Case Is = "2015" Range("A" & r).Interior.Color = RGB(181, 189, 0) Case Is = "2016" Range("A" & r).Interior.Color = RGB(0, 56, 101) Case […]

Excel中DoEvent的接口控件: 我有一个macros来循环遍历一个范围，并返回基于.Display的电子邮件 DoEvents 元素在我的模块。我反复说： row_number = 1 'And Do DoEvents row_number = row_number +1 'Then a bunch of formatting requirements Loop Until row_number = 'some value 我想知道是否会有一个简单的方法来在接口中引入一个计数器函数，在这个模块中，我告诉它我想要的起始行和最后一行的位置。例如，如果我有一个单元格包含“开始在行”单元格与一个增加或减lessbutton来增加或降低它，然后一个“结束行”单元格与两个button，将增加或减less结束基于哪些行我需要启动或停止的值？那有意义吗？谢谢！

使用readxl R将excel文件读入单个数据框: 我有一堆excel文件，我想读取它们并将它们合并到单个数据框中。我有以下代码： library(readxl) files <- list.files() f <- list() data_names <- gsub("[.]xls", "", files) 将每个excel文件读入数据框 for (i in 1:length(files)){ assign(data_names[i], read_excel(files[i], sheet = 1, skip = 6)) } 但是，如果我尝试将它保存在一个variables中，只保存了最后一个文件 for (i in 1:length(files)){ temp <- read_excel(files[i], sheet = 1, skip = 6) }

Excel VBA – 一次循环一列: 我正在循环Sht1 (B2:B138)每一行，并为该循环中的每个项目设置一个“input”单元Sht2 (A1) ，一次一个。然后，“输出”单元Sht2 (N7)将被复制回Sht1 (C2:C138) 。举个例子： Sht2 (A1) = value in Sht1 (B2) ，则Sht1 (C2) = value in Sht2 (N7) 重复 Sht2 (A1) = value in Sht1 (B3) ，则Sht1 (C3) = value in Sht2 (N7) 一遍又一遍，直到它到达列表的底部。最终，我可能不得不在Sht1 ColB扩展列表，所以我一直试图让它评估dynamic需要的迭代次数。我在下面的代码给了我所有正确的“输出”，但他们并没有在Sht2 ColC正确的单元格。请看下面。我研究并发现这个Q / A是有用的，并用它来影响代码。我感谢你的帮助提前。我的工作簿，以防你需要看到它。 Sub fnDescCalc() 'Define the objects […]

不能终止我的循环: 我已经创build了一个循环，但不知道如何阻止它。当活动单元格为空时，我希望循环停止，即使单元格是空的，它也会继续循环。 Do Until IsEmpty(ActiveCell) Sheets("UNIT BUYSHEET").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("PAYOFF INFO & LIEN RELEASE").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("AUTHORIZATION FOR PAYOFF").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("GUARANTEE OF TITLE").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("FLEET LIST & QUOTE").Select Rows("9:9").Select Selection.Delete Shift:=xlUp Loop 这是我迄今为止创build的，它打印所选“单位”的表单，一旦所有表单被打印，它将删除单位，并打印下一个单位表格。我已经添加了多个单位，循环工作很好，但不会停止，当没有更多的单位。有什么build议？

VBA INDEX MATCH LOOP: 如何在VBA中循环索引匹配function？目前我的索引匹配工作正常 – 我现在需要通过“Table2”中的所有行循环查找“table1”中的匹配值每次运行内置到工作簿中的查询时，表1“N”和“I”的填充行的数量都会更改。在运行while while循环时，我总是收到语法错误（我对VBA相当陌生）请帮忙！谢谢， total = Application.WorksheetFunction.Index(Sheets("table1").Range("I16:I100"), Application.WorksheetFunction.Match(Sheets("Table2") _ .Range("B2"), Sheets("table1").Range("N16:N100"), 0))

简单循环通过最后一行定义的指定范围: 我正在尝试一个相对简单的代码不起作用。我试图循环遍历指定的范围，并删除第一列的单元格不等于另一个特定单元格的每一行。循环应该遍历以单元格“A11”开始的区域，并在LR处结束，反之亦然。我已经尝试了最后一行以及for循环的许多不同的变体。我不明白为什么像这样简单的代码将无法正常工作。代码如下： Dim sht5 As Worksheet Dim LR As Long Set sht5 = ThisWorkbook.Sheets("Summary") LR = Cells(Rows.Count, 1).End(xlUp).Row With sht5 For i = LR To Range("A11") step -1 If i <> Range("B9").Value Then Rows(i).Delete shift:=xlUp End If Next i End With